Excel VBAを使ってHTML生成をしたい

質問

エクセルにデータを入力し、下記のようなｈｔｍｌファイルに各々のセルに対応した数値が代入されたものを生成したいと考えています。

<a href="【A１】.html">【A２】</a><br/>
<a href="【B１】.html">【B２】</a><br/>
<a href="【C１】.html">【C２】</a><br/>
<a href="【D１】.html">【D２】</a><br/>
<a href="【E１】.html">【E２】</a><br/>

VBAを使ってこのようなことは可能でしょうか？
また、そのほかどのような方法が考えられますでしょうか？
なにとぞよろしくお願いいたします。

回答No.2

Siegrune · ベストアンサー

VBAでもできるし、式だけでもできますが。

VBAなら、sheets("シート名").cells(1,1).valueがA1の値だから、
open "作成するhtmlファイル" for output as #1
print #1,"<a href=""" & sheets("シート名").cells(1,1).value & ".html"">" & sheets("シート名").cells(1,2).value & "</a><br/>"
・・・
close
といった具合ですし、
式だけで作ろうと思えば、
別のシートに、
="<a href=""&シート名!A1&".html"">"&シート名!A2"</a><br/>"
・・・
と式を入れておいて、そのシートだけ保存すればいい。
（新しいマクロを記録しておくと保存するボタンも作れますし。）

個数が可変かどうか？（というか上限が決めれるかどうか）
で使い分けたらいいと思います。

お礼

ありがとうございます。
参考にしてやってみます。

回答No.1

ORUKA1951

動的にでなければ私なら
1)保存したファイル(新しいエクセルならXMLですから)からXSLTを使ってHTMLにする。
2)いったんCSVで保存して、テキストエディタか、CGIでHTMLに変換する。
　(2)の場合CSVからXMLを作ってXSLTを使う。これは価格表からHTMLを作るときに何度も使いました。XSLTはローカルでは対応しているブラウザが限られるので、サーバーのものを使うほうが良いでしょう。
<?xml version="1.0" encoding="UTF-8"?>
<?xml-stylesheet type="text/xsl" href="../xsl/sample.xsl" ?>
<DOC>
　<title>価格表</title>
　<author>
　　<firstname>Firstname</firstname>
　　<lastname>
　　　Lastname
　　</lastname>
　</author>
　<大分類>
　　<title>鍋</title>
　　<中分類>
　　　<title id="wh">両手鍋</title>
　　　<小分類>
　　　　<title id="wh_st">ステンレス</title>
　　　　<品名>ステンレス１層</品名>
　　　　<表>
　　　　　<見出し>
　　　　　　<項目 縦="3">呼び寸法</項目>
　　　　　　<項目 縦="3">サイズ</項目>
　　　　　　<項目>18-0</項目>
　　　　　　<項目 横="2">18-8</項目>
　　　　　</見出し>

＠IT：XMLテクニック集 - XML文書をXSLTスタイルシートに動的に紐付ける（ASP.NET編） ( http://www.atmarkit.co.jp/fxml/tecs/003dynstyleliink/03.html )
とか・・・

お礼

高等なテクニックをご教示いただきありがとうございます。
お恥ずかしながら私にはSiegruneさんの方がわかりやすかったです。