Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


51745 / 76732 ←次へ | 前へ→

【29848】Re:CSVからデータの取込
発言  小僧  - 05/10/14(金) 17:09 -

引用なし
パスワード
   ▼ほびっと さん:
>ごめんなさい、ADO の使用例を載せ忘れていました。

Sub ADOで()
Dim adoCON As Object
Dim adoRS As Object

  Set adoCON = CreateObject("ADODB.Connection")
  Set adoRS = CreateObject("ADODB.Recordset")
  adoCON.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _
         "DBQ=" & ThisWorkbook.Path & ";" & _
         "ReadOnly=0"
  
  adoRS.Open "select * from tmp.csv", adoCON, 3

  'ここに処理
    Debug.Print adoRS.RecordCount
  
  adoRS.Close
  adoCON.Close
  Set adoRS = Nothing
  Set adoCON = Nothing
End Sub

こんな感じでレコードカウントがイミディエトウィンドウに
表示されたかと思います。
2 hits

【29823】CSVからデータの取込 ほびっと 05/10/14(金) 12:01 質問
【29828】Re:CSVからデータの取込 awu 05/10/14(金) 14:34 回答
【29830】Re:CSVからデータの取込 小僧 05/10/14(金) 14:58 発言
【29838】Re:CSVからデータの取込 ほびっと 05/10/14(金) 15:59 質問
【29845】Re:CSVからデータの取込 小僧 05/10/14(金) 16:53 発言
【29850】Re:CSVからデータの取込 ほびっと 05/10/14(金) 17:14 発言
【29852】Re:CSVからデータの取込 小僧 05/10/14(金) 18:34 発言
【29853】Re:CSVからデータの取込 ほびっと 05/10/14(金) 19:25 お礼
【29848】Re:CSVからデータの取込 小僧 05/10/14(金) 17:09 発言
【29834】Re:CSVからデータの取込 awu 05/10/14(金) 15:15 発言
【29839】Re:CSVからデータの取込 ほびっと 05/10/14(金) 16:02 発言

51745 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free