お世話になります。
このコードは「ここが知りたかった!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ベストアンサー
- 回答日時:
よく分からないでアドバイスしていますが、
「'Sheet1$'が見つかりません」
と表示されていますが、 「Sheet1$」というシートは存在するのですか?コードを見る限り、変数等で実際の名前が設定されているようにも見えませんが?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelからAccessのテーブルに書き込む時に時間がかかる 1 2022/10/14 20:38
- Visual Basic(VBA) SQLで抽出 4 2022/12/04 13:55
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Visual Basic(VBA) エクセルVBAのコードで質問です。 下のコードはJ16の文字列をB3を起点とする範囲から探して、見つ 5 2023/04/07 11:07
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Excel(エクセル) VBA フォルダ見える化のコードについて 2 2023/06/19 15:04
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
SQLServer 日付が直前のレコー...
-
平成20年 春期 基本情報技術者 ...
-
Access終了時の最適化が失敗?
-
GROUP BYを行った後に結合した...
-
Oracleでの文字列連結サイズの上限
-
Accessで別テーブルの値をフォ...
-
カレントレコードが無い事を判...
-
ファイル書込みで一行もしくは...
-
SQL文で右から1文字だけ削除す...
-
【MYSQL】asでリネームしてwher...
-
SELECTで1件のみ取得するには?
-
MERGE文を単体テーブルに対して...
-
Access 文字+年ごとの自動採番
-
[VBA] ADOの Clone と AddNew
-
SQLの書き方(チェックボックス)
-
access 自動採番 年が変わる...
-
実績累計の求め方と意味を教え...
-
select句副問い合わせ 値の個...
-
SQLについて質問です。 AVG関数...
-
sum()の出力結果順に並び替えを...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Access終了時の最適化が失敗?
-
CREATE テーブルでの複数外部...
-
沿線コード
-
10営業日前の日付を取得したい...
-
Order by句でバインド変数を使...
-
ヤマト急便のチェックデジット...
-
同一コード毎に最新の名称を取...
-
SQLに関して
-
【SQL】登録されているかを比較...
-
SELECT文で
-
オラクル 名称をコードに変換
-
SQLの抽出条件の記述の仕方につ...
-
一度のSQL発行で結果を得るには...
-
ACCESSで、コード基本のお勧め...
-
SQLにて縦を横へ展開
-
SQLの集約の方法
-
SQLで<>を使用するとき、
-
基本情報技術者の試験について
-
ストアドプロシージャーの引数...
-
SQL GROUP BY
おすすめ情報