![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
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ベストアンサー
- 回答日時:
こちらで試した限りでは
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で見る方法まで回答に入れて下さって有難うございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Visual Basic(VBA) Excel VBAについて、 フォルダ内のファイルを全て開きたい場合、 FSOを使えば、Dirは使わ 1 2023/01/27 13:18
- Visual Basic(VBA) Excel VBA メール作成について 本文の中にExcel でコピーした図を上下に2つ 貼り付けを 2 2023/06/14 01:48
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) ExcelからAccessのテーブルに書き込む時に時間がかかる 1 2022/10/14 20:38
- Visual Basic(VBA) サブフォルダ(データ)にある複数の.xlsxファイルのSheet3のA2セルの値で01から左側をB2 2 2022/08/14 15:46
- Visual Basic(VBA) 集めたシートのシート名を変更したい。 下記のコードでサブフォルダにあるファイルのSheet3を集めて 6 2022/08/23 10:38
- Visual Basic(VBA) VBA★PDFをPDFアプリで印刷しようと思っていますが上手くゆきません 1 2022/06/06 22:04
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
あるカラムのMAX値+1をINSERTし...
-
複数行を1行にするSQL
-
GROUP BYを行った後に結合した...
-
Accessで別テーブルの値をフォ...
-
MERGE文を単体テーブルに対して...
-
SELECTで1件のみ取得するには?
-
Date型にNULLをセットしたい V...
-
ファイル書込みで一行もしくは...
-
カレントレコードが無い事を判...
-
【MYSQL】asでリネームしてwher...
-
月別、販売員別の集計がわかり...
-
Accessのクエリでフィールドの...
-
SET句内で複数の条件を指定して...
-
レコードセット(ADO.Recordset)...
-
レコード長を数えてくれる関数
-
select句副問い合わせ 値の個...
-
DataGridViewの、選択されてい...
-
select insertで複数テーブルか...
-
固定値を含む結合と複数テーブ...
-
Oracleでの文字列連結サイズの上限
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
あるカラムのMAX値+1をINSERTし...
-
レコードが選択されないときの...
-
複数行を1行にするSQL
-
テーブル結合について、下記SQL...
-
Oracle 9iで英字を含まないレコ...
-
SQLPLUSにて演算子を使う方法と...
-
外部結合に条件をつけたい
-
SELECT文でINを使わずに検索したい
-
ORACLEのSQLで
-
ループの仕方
-
sqlのwhereで指定した条件の前...
-
教えて下さい。m(__)m
-
sumやcount関数について
-
複数条件に当てはまる行の抽出...
-
SQL:外部結合について
-
PL/SQLの基礎的な質問ですが・・
-
通番を振りたい
-
distinct句を使わずレコード総...
-
副照会を簡単に使いまわせますか?
-
SQLのCOUNT件数表示について
おすすめ情報