ＳＱＬ 顧客マスタから顧客番号 住所 条件 A

Sub test()
Dim objCn As New ADODB.Connection
Dim objRS As ADODB.Recordset
Dim GYO As Long, COL As Long
Dim strSQL As String
With objCn
.Provider = "Microsoft.ACE.OLEDB.12.0"
.Properties("Extended Properties") = "Excel 12.0"
.Open ThisWorkbook.Path & "\" & ThisWorkbook.Name
End With

strSQL = ""
strSQL = strSQL & " SELECT 顧客番号,住所"
strSQL = strSQL & " FORM 顧客マスタ"
strSQL = strSQL & " WHERE = A"　　合っているか

Set objRS = New ADODB.Recordset
Set objRS = objCn.Execute(strSQL)　　←黄色く反転

With Worksheets("練習")
.Range(.Range("A2"), .Range("A2").SpecialCells(xlLastCell)).ClearContents
.Range("A2").CopyFromRecordset objRS
End With

objCn.Close
Set objCn = Nothing
End Sub

顧客番号 顧客名 住所
1 A 東京
2 B 神奈川
3 C 千葉
4 D 埼玉
5 E 青森
6 F 茨城
7 G 栃木
8 H 群馬
9 I 神戸
10 J 岡山
11 K 佐賀
12 L 宮城

練習シートに抽出したい

顧客番号 顧客名 住所
1 A 東京

間違っているところ教えてくれませんでしょぅか

No.2 ベストアンサー 回答者： めぐみん_ 回答日時： 2017/11/30 09:45

strSQL = strSQL & " FORM [顧客マスタ$]"

strSQL = strSQL & " WHERE = 'A'"　

と

Dim i As Integer

を宣言し

　　　　.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

と

.Properties("Extended Properties") = "Excel 12.0;HDR=YES;" '★HDR(ヘッダー)の扱いに注意

これかな？

No.1 回答者： akubi_m 回答日時： 2017/11/29 15:04

>strSQL = strSQL & " WHERE = A"　　合っているか

WHERE 顧客名="A"

じゃないですか？