教えて下さい。m(__)m

ADODB6.1を使用し"smp2013*.xls"の"Sheet1"の列から"済"の数をカウントしたいのですが
列名に改行コード[ALT＋Enter]があり、うまく取得できません。お助け下さい。
下記コードでは"0"と表示されます。(※エラー処理等は記述しておりません。)
PC:Win7pro 64bit、Excel2010 32bit

Sub smp_1()

Dim myCon As New ADODB.Connection, myRS As New ADODB.Recordset, FileName As String
Dim j As String, i As Integer
Dim val_day As String

val_day = "\\share01\12345\"
FileName = Dir$("\\share01\12345\smp2013*.xls")

myCon.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;" & _
"Data Source=" & val_day & FileName

j = "select count(*) from [Sheet1$] where ""H24"" & Chr(10) & ""決済"" = '済';" 　'←ここです。
myRS.Open j, myCon
Worksheets(1).Range("A1").CopyFromRecordset myRS

myRS.Close
Set myRS = Nothing
myCon.Close
Set myCon = Nothing

End Sub

No.1 ベストアンサー 回答者： nicotinism 回答日時： 2013/08/20 06:52

こちらで試した限りでは

dim fld as object
j = "select * from [Sheet1$] " 　'←ここです。
myRS.Open j, myCon
for each fld in myrs.fields
debug.print fld.name
next
だと
Alt + Enter （chr(10)）は、_ アンダーバー
になってますね。

j = "select count(*) from [Sheet1$] where H24_決済 = '済';"
だと？

この回答へのお礼

助かりました。早々の回答有難うございます。アンダーバーとは・・・・・debugprintで見る方法まで回答に入れて下さって有難うございました。

お礼日時：2013/08/20 19:38