
No.2ベストアンサー
- 回答日時:
SELECT句で何を求めているのかわからないので、抽出された全項目を表示します。
新規のBookを作成して試して下さい。
あと接続するブック名.拡張子に注意も。
Sub megu()
Dim objCn As Object '★参照設定なし版
Dim objRS As Object '★参照設定なし版
Dim i As Integer
Dim strSQL As String
Set objCn = CreateObject("ADODB.Connection") '★参照設定なし版
Set objRS = CreateObject("ADODB.Recordset") '★参照設定なし版
With objCn
.Provider = "Microsoft.ACE.OLEDB.12.0"
.Properties("Extended Properties") = "Excel 12.0;HDR=YES;" '★HDR(ヘッダー)の扱いに注意
.Open ThisWorkbook.Path & "\test.xls" '★ブック名.拡張子に注意
End With
strSQL = ""
strSQL = strSQL & " SELECT *" '◆何を求めてるのかわからないので抽出できる物全部にしてます
strSQL = strSQL & " FROM ([顧客マスタ$] M INNER JOIN [データ$] T" '★シート名に注意!
strSQL = strSQL & " ON M.顧客番号 = T.顧客番号)"
strSQL = strSQL & " INNER JOIN [売上表$] S"
strSQL = strSQL & " ON M.顧客番号 = S.顧客番号;"
Set objRS = objCn.Execute(strSQL)
With ActiveSheet '★ActiveSheetを使用
.Range(.Range("A2"), .Range("A2").SpecialCells(xlLastCell)).ClearContents
For i = 0 To objRS.Fields.Count - 1
.Cells(1, i + 1).Value = objRS.Fields(i).Name
Next
.Range("A2").CopyFromRecordset objRS
End With
objCn.Close
Set objCn = Nothing
Set objRS = Nothing
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
シングルクォーテーションとダ...
-
Access VBAでクエリーのレコー...
-
ワードで保存するファイル名の...
-
accsessで顧客コードで氏名を呼...
-
Access クロス集計クエリについて
-
ワードでの単純作業の効率化に...
-
結合
-
Access2000 更新のタイミング?
-
Access IF文でテーブルに存在し...
-
Access2000 単票フォーム上の...
-
【続続】Access2002で連番のつ...
-
SQLの抽出方法に悩んでいます(...
-
保存された情報として表示され...
-
Excel 2019 のピボットテーブル...
-
「直需」の意味を教えてください
-
Accessでテーブル名やクエリ名...
-
Oracle 2つのDate型の値の差を...
-
Access テキスト型に対する指定...
-
エクセルVBAで5行目からオート...
-
INSERTできるレコード数を制限...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
データベースの1要素に複数デー...
-
Access フォームのデータがテー...
-
Access 既に開いているフォー...
-
Access VBAでクエリーのレコー...
-
Access IF文でテーブルに存在し...
-
Access 縦(行)のデータを横(列)...
-
Accessデータベースで行と列を...
-
ACCESS で マクロの中でフィ...
-
ADOでレコードを閉じるタイミン...
-
ワードで保存するファイル名の...
-
Accessについて
-
シングルクォーテーションとダ...
-
Accessで名寄せグループの関係...
-
顧客管理に関して
-
Access2000 単票フォーム上の...
-
一発で顧客IDを確認するボタ...
-
ワードでの単純作業の効率化に...
-
エラーが出ます
-
Access クロス集計クエリについて
-
ACCESS2003 Aアクロバットを介...
おすすめ情報
このサイト見ました。しかし、わからなった。
くやしいです。