【ExcelVBA】テキストフォーマットの変数書き方

Question

###前提・実現したいこと
設定シート(Eecelシート)から値を取得し、SQL作成するExcelマクロを作成しています。
設定シートから取得する部分を変数に格納し、テキストファイルのテンプレートに入れて
出力したいと考えています。

###発生している問題・エラーメッセージ
テキストファイルテンプレートのイメージが持てません。
例えば下記のようなテンプレートの場合、どんな記載をすればよいのでしょうか。

###該当のソースコード
SELECT　＜変数①＞　
FROM　＜変数②＞
WHERE <変数③＞is not null;

こういった場合変数部分をテキストファイルにどう記載すればよいのか分かっていません。

Answer 1

ローカルルールですよね？
なんでもいいと思いますよ。
置換する際に問題がなければ。
恐らくシートの方には「変数①」「変数②」などが定義されているんですよね？
ただこれだと何を指しているのかわからないので、次のように定義してみたり。

A	B
抽出カラム1	COL1
抽出カラム2	COL2
テーブル名	HOGETABLE
抽出条件	COL1

で、これをテンプレートの方では、次のように書いてみたり。

SELECT {抽出カラム1}, {抽出カラム2} FROM {テーブル名} WHERE {抽出条件} IS NOT NULL;

マクロの方では、こんな風に処理してみたり。

sql = "SELECT {抽出カラム1}, {抽出カラム2} FROM {テーブル名} WHERE {抽出条件} IS NOT NULL;" ' 実際にはファイルから読み込んだテンプレートSQL文が入る
For r = 1 to 4
    sql = Replace(sql, "{" & Cells(r, 1) & "}", Cells(r, 2))
Next
Debug.Print sql

結果

SELECT COL1, COL2 FROM HOGETABLE WHERE COL1 IS NOT NULL;

ただ、単純なテンプレートでは、抽出するカラム数・テーブル数・条件数は固定になると思うので、テンプレート化する意味があまりないように思えるのですが…。

Comments

[chanrina0920]

回答ありがとうございます！なるほど、置換に問題がなければよいのですね。考える観点がつかめた気がします。
>ただ、単純なテンプレートでは、抽出するカラム数・テーブル数・条件数は固定になると思うので、テンプレート化する意味があまりないように思えるのですが…。
こちらですが、設定シートにはそれぞれ大量のテーブル名、カラム名が記載されており、ループ処理で１つ１つ読込、SQLを作成予定です。例で書きましたsqlはあくまで簡単なサンプルなのです。

Answer 2

具体的な例が書かれていないので合っていないかもしれませんが
単純に行毎に設定されている値でクエリを作るならば
マクロの必要もなくてCONCATENATE関数だけでもできるかと思います。
=CONCATENATE("SELECT * FROM ",A1," WHERE id=",B1,";")

もっと高度であったり、読みやすいやり方がよければ
このサイトに紹介されているfunctionを持ってくればprintfのように指定することもできそうです。
http://thom.hateblo.jp/entry/2015/03/08/000000
=CStyle("SELECT * FROM %s WHERE id = %s", Range("A1").Value, Range("B1").Value)

Comments

[yuki-saito]

お役に立てなかったようで残念です・・・