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

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

0 hits

▼

【29823】CSVからデータの取込 ほびっと 05/10/14(金) 12:01