こんにちは！VBScriptの世界へようこそ。
業務自動化の現場で、Excelマクロの限界を超えてWindows環境を裏から支える頼もしい相棒、それがVBScript（WSH）です。
さて、日々の自動化業務でこんなストレスを感じたことはありませんか？
「データベースに投げる長文のSQLクエリや、送信するHTMLメールの本文をVBScriptに書こうとして、文字列の連結（`&`）地獄にハマった…」
「ダブルクォーテーションの重ねすぎで、どこが文字列でどこがコードかわからない…」
「保守性？そんなのゼロに等しい…」
他のモダンな言語（PythonやPHP、JavaScriptなど）には、改行をそのまま保持して長文を記述できる「ヒアドキュメント」という素晴らしい機能があります。しかし、レガシーなVBScriptにはそんな気の利いた機能は標準ではありません。
「じゃあ、VBScriptでは諦めるしかないの？」
いいえ、そんなことはありません。今回は、`Array`関数と`Join`関数を華麗に組み合わせることで、VBScript上でヒアドキュメントを完全に擬似再現する極意を伝授します。
ここをクリアすれば、あなたの書くコードの可読性は劇的に跳ね上がり、メンテナンス性も神レベルに向上します。さあ、一緒に見ていきましょう！
—
1. なぜVBScriptの文字列結合は「地獄」と化すのか？
まずは、悪名高い「従来の文字列結合」の姿をお見せしましょう。例えば、データベースから顧客情報を取得するSQLクエリをVBScriptで組み立てようとすると、こうなります。
‘ 【閲覧注意】従来の文字列結合による地獄のコード
Dim strSQL
strSQL = “SELECT C.CustomerID, C.CustomerName, O.OrderDate ” & _
“FROM Customers C ” & _
“INNER JOIN Orders O ON C.CustomerID = O.CustomerID ” & _
“WHERE C.Status = ‘Active’ ” & _
“AND O.OrderDate >= ‘2023-01-01’ ” & _
“ORDER BY O.OrderDate DESC;”
……どうでしょう。行末の `& _`（行継続文字）の嵐、クォーテーションの閉じ忘れ、SQLのインデント（見た目の美しさ）の崩壊。これでは、後からSQLを修正しようものなら、どこかの `&` を消してしまいエラーの温床になります。
これがHTMLメールのテンプレートともなれば、タグの山で発狂しそうになるのは想像に難くありません。
—
2. 救世主：「Array ＋ Join」によるヒアドキュメント擬似再現
この問題を一刀両断するのが、「配列（Array）」と「文字列結合（Join）」のコンビネーションです。
VBScriptの `Array` 関数で「行ごとの文字列」を配列として保持させ、それを `Join` 関数で改行コード（`VbCrLf`）を糊（のり）にして一つに結合します。
百聞は一見に如かず。先ほどのSQLを、このテクニックで書き直してみましょう。
‘ 【洗練】ArrayとJoinを活用したヒアドキュメント風コード
Dim strSQL
strSQL = Join(Array( _
“SELECT C.CustomerID, C.CustomerName, O.OrderDate”, _
“FROM Customers C”, _
“INNER JOIN Orders O ON C.CustomerID = O.CustomerID”, _
“WHERE C.Status = ‘Active'”, _
“AND O.OrderDate >= ‘2023-01-01′”, _
“ORDER BY O.OrderDate DESC;” _
), vbCrLf)
WScript.Echo strSQL ‘ 確認用
この書き方の何が素晴らしいのか？
1. SQLやHTMLの「見た目の形」がそのまま保たれる
データベース管理ツール（SSMSやDBeaverなど）で書いたSQLを、そのままコピペして前後に `””` と `,` をつけるだけでコードに落とし込めます。
2. ダブルクォーテーションの地獄からの解放
行ごとに独立しているため、構文エラーが圧倒的に起きにくくなります。
3. 圧倒的なメンテナンス性
どこにどの行があるかが一目瞭然です。
—
3. 実践！動的パラメータの埋め込み（スニペット付き）
「静的な文字列が綺麗になるのはわかったけど、条件によって値を変化させたい（動的パラメータの埋め込み）場合はどうするの？」
鋭いですね！現場で使うテンプレートは、条件によって日付やユーザーIDを変えたいケースがほとんどです。
VBScriptでは、VBAでお馴染みの `Replace` 関数をチェイン（連続使用）させるか、あらかじめ定義したプレースホルダー（置換マーカー）を書き換える手法が最もスマートです。
以下に、実務でそのまま使える「HTMLメール生成テンプレート」の完全なコードサンプルを提示します。
‘ ==============================================================================
‘ スクリプト名: GenerateHtmlMail.vbs
‘ 概要: ArrayとJoinによるヒアドキュメント構築 ＋ 動的パラメータ埋め込みの極意
‘ ==============================================================================
Option Explicit
‘ 1. 動的に埋め込みたい変数群を定義
Dim targetDate, userName, statusMessage
targetDate = “2023年10月度”
userName = “山田 太郎”
statusMessage = “正常に処理が完了しました。”
‘ 2. HTMLテンプレートをArrayで定義（プレースホルダー [KEY] を仕込んでおく）
Dim htmlTemplate
htmlTemplate = Join(Array( _
““, _
““, _
“
” “, _
”
““, _
““, _
”
[USER_NAME] 様
“, _
”
お疲れ様です。[TARGET_DATE] のバッチ処理結果をお知らせします。
“, _
”
”
ステータス: [STATUS_MESSAGE]
“, _
”
“, _
”
詳細は社内ポータルをご確認ください。
“, _
““, _
“” _
), vbCrLf)
‘ 3. Replace関数を使って動的パラメータを流し込む（置換の連鎖）
Dim finalHtml
finalHtml = htmlTemplate
finalHtml = Replace(finalHtml, “[USER_NAME]”, userName)
finalHtml = Replace(finalHtml, “[TARGET_DATE]”, targetDate)
finalHtml = Replace(finalHtml, “[STATUS_MESSAGE]”, statusMessage)
‘ 4. 結果の確認（実際にはここでCDO.Message等に渡してメール送信します）
WScript.Echo finalHtml
ポイント：HTML内のダブルクォーテーション
HTMLの属性を指定する際（例：`style=”…”`）、VBScriptの文字列リテラル内ではダブルクォーテーションをエスケープするために `””`（二個連続） で書く必要があります。ここだけはVBScriptのお作法として覚えておきましょう！
—
4. 陥りやすい罠とパフォーマンスの知見
ここで、チーフアーキテクトとして一つ、プロフェッショナルな知見を共有しておきます。
「毎回 `Array(…)` と `Join(…)` を呼ぶのは、パフォーマンス的にどうなの？」という疑問を持つ鋭い読者もいるかもしれません。
結論から言うと、数千行・数万行のループ内でこれを毎回実行しない限り、人間には知覚できないほどの微小な差です。業務自動化で扱う数十行～数百行のSQLやHTMLであれば、パフォーマンスの懸念よりも「コードの読みやすさと保守性（＝人がメンテナンスでミスをしないこと）」のメリットが圧倒的に勝ります。
ただし、一つだけ注意すべきエラーがあります。
よくあるエラー：型ミスマッチ（Error 13: Type mismatch）
`Join` 関数の第一引数には、必ず「配列（Array）」を渡す必要があります。もし、うっかり以下のように書いてしまうと、実行時エラーが発生します。
‘ 【NGパターン】Array関数を書き忘れて単なるカンマ区切りにした場合
strSQL = Join(“SELECT FROM A”, “SELECT FROM B”, vbCrLf) ‘ -> 型ミスマッチエラー！
`Join` の第一引数は括弧で括られた配列（`Array(…)`）でなければならない、という基本ルールだけは忘れないようにしてくださいね。
—
まとめ
今回は、VBScriptにおける「ヒアドキュメント擬似再現」として、`Array` と `Join` を駆使した長文テンプレート構築術を解説しました。
- 長文の文字列結合に `& _` を使うのはもう卒業する。
- `Array` で行ごとに区切り、`Join(…, vbCrLf)` で結合する。
- 可読性が劇的に上がり、SQLやHTMLのコピー＆ペーストがそのまま活きる。
- 動的パラメータは `Replace` 関数でプレースホルダー（`[KEY]` など）を置換して流し込む。
ここをクリアすれば、あなたのVBScriptコードは見違えるほど洗練され、他のエンジニアが見ても「おっ、分かっているな」と思わせる美しいコードになります。
日々の自動化スクリプト開発を、もっとエレガントに、もっと楽しく。
それでは、次の知見でお会いしましょう！バッチリ使いこなしてくださいね！
