CSVファイルを読み込むには？？ (ID:113250)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 よく見たら、表題がCSVって書いてあるし。(--;;; 実際、何がわからないのかはまだよくわかってませんが、 上記VBAのソースを見るに、CSVからデータをどうやってる取得するかが問題のようですね。 Say様/michi様が書かれているような処理でよさそうですね。 SQLがわかるのであれば、データベース処理を行う方が「私は」楽です。 その際のコードは本や、サイトを参考にすると良いと思います。 以下、そのままでは動くはずもありませんが、コードです。 参照設定にMicrosoft ActiveX Data Objects 2.x Libraryを指定しています。 ------------------------------ Dim objAdoCon As ADODB.Connection 'コネクション Dim objAdoRec As ADODB.Recordset 'レコードセット Dim strSql As String 'SQL文格納 Dim strCSVPath As String 'CSVパス '---------------------------------------------------- strCSVPath = "C:\TEMP\TEST.CSV" Set objAdoCon = New ADODB.Connection Set objAdoRec = New ADODB.Recordset objAdoCon.ConnectionString = _ "Provider=MSDASQL.1;" & _ "Extended Properties=""" & _ "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _ "DBQ=" & strCSVPath & """" '接続 objAdoCon.Open 'オープン objAdoRec.CursorType = adOpenForwardOnly 'カーソルタイプ objAdoRec.LockType = adLockReadOnly 'ロックタイプ strSql = "SELECT * FROM TEST_TABLE" Set objAdoRec = objAdoCon.Execute(strSql) 'SQL実行 Label1.Caption = objAdoRec.Fields(0).Value objAdoRec.Close objAdoCon.Close Set objAdoRec = Nothing Set objAdoCon = Nothing