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 回答日時： 2007/01/26 17:52

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

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

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

この回答へのお礼

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

お礼日時：2007/01/28 06:27

No.1 回答者： hana-hana3 回答日時： 2007/01/26 16:11

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

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

この回答への補足

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

補足日時：2007/01/26 16:32

この回答へのお礼

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

お礼日時：2007/01/28 06:29