プロセスを自動化するためにExcel VBAでプログラムを構築しています.csvファイルに保存されたデータをインポートする必要があります。そのため、クエリ テーブルを使用して特定の列を csv ファイルにインポートしようとしています。
Jet Provider OLE DBを使用してcsvファイルとやり取りするためにADOを使用しています。接続文字列では、プロバイダー、データ ソース、および拡張プロパティを指定しました。Windows XP と Office 2003 を使用しているため、Excel のバージョンは 8.0 です。プロバイダーを Microsoft.Jet.OLEDB.4.0 と指定しました。私のコードを以下に貼り付けます。コードを実行すると、以下のコードに含めた最後の行に「インストール可能な ISAM が見つかりませんでした」というエラーが表示されます。構文に問題が見つからないので、正しいバージョンの Jet がインストールされていないためにこのエラーが発生するのではないかと考えていました。以下のコードを参照してください。ありがとう
Sub Excel_QueryTable()
Dim oCn As ADODB.Connection
Dim oRS As ADODB.Recordset
Dim ConnString As String
Dim SQL As String
Dim qt As QueryTable
ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\testfile.csv;" & _
"Extended Properties=Excel 8.0;HDR=Yes; FMT=Delimited; IMEX=1"","
Set oCn = New ADODB.Connection
oCn.ConnectionString = ConnString
oCn.Open