SQL文を文字列として変数にいれてExcelに出力したいです。

Question

前提・実現したいこと

SQL文を文字列として変数にいれてExcelに出力したいです。
もうこれしかないのですが。。。
まず、文字列として変数に入ってくれません。
’１３０’でもエラーになったり、BETWEENがエラーとなったりして赤文字になります。
現状はloginから全てが赤文字表記になってしまいます。
※Excel出力のコードはまだ書いてません。

発生している問題・エラーメッセージ

構文エラー

該当のソースコード

Sub SQL抽出()

Dim sday As String
Dim fday As String
Dim wb As Workbook
Dim sh As Worksheet

 Set wb = ThisWorkbook
 Set sh = wb.Worksheets("条件")

'①期間内ログイン者抽出
 Dim login As String
 sday = wb.sh.Range("D2")
 fday = wb.sh.Range("D3")
 
    login = "SELECT _
             distinct kr_recoponloginlog2.customer_cd _
             into #login _
             FROM _
             dba.kr_recoponloginlog2 _
             WHERE_
             kr_recoponloginlog2.kigyo_cd='130' and _
             kr_recoponloginlog2.loginday BETWEEN   ' & sday & 00:00:00' _
             AND  ' & fday & 00:00:00'"


End Sub

Answer 1

変数 sday fday は、"" の外に出さないと。

login = "SELECT " & _
        "distinct kr_recoponloginlog2.customer_cd " & _
        "into #login " & _
        "FROM " & _
        "dba.kr_recoponloginlog2 " & _
        "WHERE " & _
        "kr_recoponloginlog2.kigyo_cd='130' and " & _
        "kr_recoponloginlog2.loginday BETWEEN '" & sday & " 00:00:00' " & _
        "AND '" & fday & " 00:00:00'"

---

下記の２行もエラーになるので、修正ですね。

 Set wb = ThisWorkbook
 Set sh = wb.Worksheets("条件")

'①期間内ログイン者抽出
 Dim login As String
 'sday = wb.sh.Range("D2")
 sday = sh.Range("D2").Value
 'fday = wb.sh.Range("D3")
 fday = sh.Range("D3").Value   

Comments

[Naoko_Coco]

その通りです。。。
最近いろんなことやってて変数に値すら入れられなくなって恥ずかしい限りです。
回答ありがとうございました。

Answer 2

私もttyp03さんのように記述しますが、一応別な書き方として
ついでに日付型の修正とinto #loginを省いた。

login = "SELECT " & _
        "distinct kr_recoponloginlog2.customer_cd " & _
        "FROM " & _
        "dba.kr_recoponloginlog2 " & _
        "WHERE " & _
        "kr_recoponloginlog2.kigyo_cd='130' and " & _
        "kr_recoponloginlog2.loginday BETWEEN #" & sday & " 00:00:00#" & _
        "AND  #" & fday & " 00:00:00#"

Comments

[Naoko_Coco]

回答ありがとうございます。
文字列として表示したいので日付型はこのままで大丈夫です。

Answer 3

文字列の途中で改行はできません。
こんな感じで書くのが良くあるパターンでしょうか。

login = ""
login = login & "SELECT "
login = login & "distinct kr_recoponloginlog2.customer_cd "
login = login & "into #login "
login = login & "FROM "
login = login & "dba.kr_recoponloginlog2 "
login = login & "WHERE "
login = login & "kr_recoponloginlog2.kigyo_cd='130' and "
login = login & "kr_recoponloginlog2.loginday BETWEEN   ' & sday & 00:00:00' "
login = login & "AND  ' & fday & 00:00:00'"

Comments

[ttyp03]

他の回答見て気づきました。
変数も含まれているのですね。
そこのところはこんな感じでしょうか。
login = login & "kr_recoponloginlog2.loginday BETWEEN '" & sday &
" 00:00:00' "
login = login & "AND '" & fday & " 00:00:00'"

[Naoko_Coco]

回答ありがとうございます。
こんな書き方もありますね。
こっちのほうがすっきり見やすいですね。
書き直します！