Accessでデータの流し込み

前提・実現したいこと

ACCESSでECサイトへ登録するための商品情報をデータベース化しています。
それぞれのモールに対応した形でCSV出力ができるように制作中ですが
HTML説明文の生成部分で詰まっています。

HTMLの定型文があり、スペック部分など決まった箇所に
商品ごとのデータを流し込んでHTML説明文を生成したいのですが
今までやっていた方法がしっくりきておらず、いい方法がないかアドバイス頂けないでしょうか。

これまでやっていた方法は下記の通りです。

・流し込みたいデータの前後で分割したHTMLタグのテーブルを作り
クエリで文字列を結合していく
→クエリの文が長すぎてエラーになることが多かった

・テンプレート用のテーブルを作り、流し込む部分を変数のように記号にして
VBAで置き換え作業をする

自分の知識ではここまでの方法しか思いつきませんでした。
詳しくはないのですが、PHPの変数のように簡単にデータの流し込みをする方法はないのでしょうか。

行動規範の内容に同意します

回答1件

ベストアンサー

・テンプレート用のテーブルを作り、流し込む部分を変数のように記号にして
VBAで置き換え作業をする

この方法でいいと思います。

例
テーブル　T_Template
フィールド　HTMLDescription　長いテキスト（メモ型）

フィールドには下記のように入力。

〇〇〇〇〇〇〇[商品名]〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇
〇〇〇〇〇〇〇〇〇〇[価格]〇〇〇〇〇〇〇〇〇〇〇〇〇〇
〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇[メーカー]〇〇〇〇〇〇〇〇〇

コードは下記のようなイメージ

vba
1Const FieldList = "商品名 価格 メーカー"
2Dim s As String, FieldName
3Dim rs As DAO.Recordset
4
5s = DLookup("HTMLDescription","T_Template")
6Set rs = CurrentDB.OpenRecordSet("商品テーブル")
7
8For Each FieldName in Split(FieldList)
9    s = Replace(s,"[" & FieldName & "]", rs(FieldName).value)
10Next
11
12Debug.Print s