VBA Document.Script.setTimeoutを使ってダウンロードさせたい

Question

初心者で恐縮です。教えてください。

請求書のCSVデータをダウンロードする画面で、月別のダウンロードボタンが複数あり、どの月度も要素が同じでダウンロードしたいボタンを特定出来ませんでした。

それで、下記のようにonclickイベントで処理したいのですが、変数を代入しようとしてもうまくいきません。
”20190820”と”20190821”の部分を操りたいのですが方法を教えてください。
※下記は「make_csv('/T001/1090/S_00261」の後にログイン情報情報が含まれていた為、一部削除しています。

※実際に作成したVBAはこれです。
Dim strYYYYMMDD As String
strYYYYMMDD = Format(Now, "yyyymm20")
objIE.document.Script.setTimeout"javascript:make_csv('/T001/1090/S_00261__strYYYYMMDD_strYYYYMMDD+1.csv');", 1
End Sub

---

※要素はこれです。
<a id="csvbtn" onclick="make_csv('/T001/1090/S_00261_20190820_20190821.csv')" href="#"><img src="img/csv2.png"></a>

Answer 1

文字列の中に値を入れるには、値/変数を&で繋いでください。

【例】 "aaa" & strYYYYMMDD & "bbb" とすると→ aaa20191120bbb となる。

したがってsetTimeの引き数は以下となります。

"javascript:make_csv('/T001/1090/S_00261__strYYYYMMDD_strYYYYMMDD+1.csv');", 1
 ↓
"javascript:make_csv('/T001/1090/S_00261__" & strYYYYMMDD & "_" & strYYYYMMDD + 1 & ".csv');", 1

ただし、「strYYYYMMDD + 1」の部分は本来は誤りです。なぜならstrYYYYMMDD
をString(文字列)で定義しているのに対し+1は数値演算の指定だからです。
このあたり、VBAではインタプリタが辻褄をあわせてくれてますが、必ずしも望んだ結果
になるとは限りません。

このため、日が20、21の固定でよいのであれば以下のようにすればよいかと思います。

strYYYYMM = Format(Now, "yyyymm")		' 年、月のみ変数に入れる。残りは引き数の中で生成
objIE.Document.Script.setTimeout "javascript:make_csv('/T001/1090/S_00261__" & strYYYYMM & "20_" & strYYYYMM & "21.csv');", 1

※なお、setTimeout と "javascript～ の間は1文字空白を入れてください。

Comments

[meromeropanch]

的確で分かりやすい回答をありがとうございました。全て解決しました。