Excelファイルのデータをテーブルへインポートできない

質問

お世話になります。
このコードは「ここが知りたかった！ACCESS　VBA　500の技」
の452ページに載っているものです。
エラーで動作しません。
私には分からないので教えて下さい。

Sub ExceltoMDBTable()
Dim adoExcelCon As New ADODB.Connection
Dim adoSheetRst As ADODB.Recordset
Dim strSQL As String
Dim adoMdbCon As New ADODB.Connection
adoExcelCon.Open "Driver={Microsoft Excel Driver (*.xls)};" & _
"DBQ=c:\temp\test.xls;ReadOnly=0;"
Set adoMdbCon = Application.CurrentProject.Connection
Set adoSheetRst = adoExcelCon.Execute("select distinct 得意先コード,得意先名 from [Sheet1$]")
Do Until adoSheetRst.EOF = True
strSQL = ""
strSQL = strSQL & "insert into test"
strSQL = strSQL & " (得意先コード"
strSQL = strSQL & " ,得意先名"
strSQL = strSQL & " ,登録日 )"
strSQL = strSQL & "Values ( '" & adoSheetRst("得意先コード") & "'"
strSQL = strSQL & " ,'" & adoSheetRst("得意先名") & "'"
strSQL = strSQL & " ,#" & Date & "# )"
adoMdbCon.Execute (strSQL)
adoSheeyRst.MoveNext
Loop
adoSheetRst.Close
adoMdbCon.Close
adoExcelCon.Close
Set adoSheetRst = Nothing
Set adoMdbCon = Nothing
Set adoExcelCon = Nothing
End Sub

回答No.2

chukenkenkou · ベストアンサー

よく分からないでアドバイスしていますが、

「'Sheet1$'が見つかりません」

と表示されていますが、 「Sheet1$」というシートは存在するのですか？コードを見る限り、変数等で実際の名前が設定されているようにも見えませんが？

お礼

ありがとうございました。
シート名が違っていました。

回答No.1

hana-hana3

＞エラーで動作しません。

どんなエラーメッセージが出ているのでしょうか？

お礼

ありがとうございました。

補足

[Microsoft][ODBC Excel Driver] 'Sheet1$'が見つかりません。パラメータや別名が正しいこと、無効な文字や区切り記号が含まれていないこと、または名前が長すぎないことを確認してください。というエラーメッセージが表示されます。