ＳＱＬ HDR=ＹＥＳ;IMEX=1

データーのＨＤＲが表示されません
ＥＸＣＥＬ　Ｖｅｒは最新です

With objCn
.Provider = "Microsoft.ACE.OLEDB.12.0"
.Properties("Extended Properties") = "Excel 12.0;HDR=NO;IMEX=1"
.Open ThisWorkbook.Path & "\SQL_N_1.xlsm"
End With

HDR=YES;IMEX=1
YESにしてもデータが出力されなのですが
エラーにはなりません。
わかる方教えてくれませんでしょぅか

No.1 ベストアンサー 回答者： めぐみん_ 回答日時： 2018/03/05 05:53

どのようにデータを出力しようとしているのか、その部分も記載された方が良かったでしょうけど。

ActiveSheetの
・１行目にフィールド名
・2行目以下に抽出した値
で出力する場合。

　　Set objRS = objCn.Execute(strSQL) '★これはADODB.Recordsetです。
　
　　With ActiveSheet '★ActiveSheetを使用
　　　　.Range(.Range("A2"), .Range("A2").SpecialCells(xlLastCell)).ClearContents '★２行目以下の古いデータは削除

'★以下３行でSheetの１行目にフィールド名を順次書き出してます。
　　　　For i = 0 To objRS.Fields.Count - 1
　　　　　　.Cells(1, i + 1).Value = objRS.Fields(i).Name
　　　　Next

'★こちらはA2を基準として抽出されたデータを吐き出してます。
　　　　.Range("A2").CopyFromRecordset objRS
　　End With