質問: excelvbaに詳しい方に質問! excelvbaに詳しい方に質問! 私は仕事でアンケート集計をしている者です。顧客から調査を依頼される のですが、いただくデータはexcel形式のファイルです。なので、 そこからモニターの方向けにweb化する必要があります。 今回目指しているのは、例えばexcelデータの中でマクロが入った ボタンをたった一回押すだけでhtml形式のwebページに変換 するツールを作りたいと思います。 excel外のマクロでも良いのですが、excelvbaでマクロを組んでweb 化するには具体的にどのようにvbaを組んだらできますか? また、excelvbaでなくexcelファイルをweb化する違う 方法はありますか? excelvbaに詳しい方、是非ご教授の程、よろしくお願いいたします。
回答: >タグで出来た htmlページを作成したいと考えております。 最低限の機能でテーブルのコードをシートに書き出すマクロです。 どのように拡張するかは自由ですが、1個のセルの書き出しのために必要なオプションは多数あります。 それを組み合わせて一つのテーブルにするには、多大な解析が必要になりますしそれを組み合わせる手法も様々です。 sub htmltest() dim workcell as range dim i as integer, j as integer, wid as integer, c as integer dim hed as string dim tbl as string dim ehed as string sheets("table").select set workcell = range("a1:e8") '表範囲 wid = workcell.columns.count * 100 '横幅 'テーブルの定義 hed = "" ehed = "" 'シートへの書き出し c = 1 sheets("html").select cells(c, 1) = hed c = c + 1 'テーブルの書き出し for i = 1 to workcell.rows.count tbl = "" for j = 1 to workcell.columns.count tbl = tbl & " " & workcell(i, j) & "" next tbl = tbl & "" cells(c, 1) = tbl c = c + 1 next cells(c, 1) = ehed end sub 実行結果 1段目の1 1段目の2 1段目の3 1段目の4 1段目の5 2段目の1 2段目の2 2段目の3 2段目の4 2段目の5 3段目の1 3段目の2 3段目の3 3段目の4 3段目の5 4段目の1 4段目の2 4段目の3 4段目の4 4段目の5 5段目の1 5段目の2 5段目の3 5段目の4 5段目の5 6段目の1 6段目の2 6段目の3 6段目の4 6段目の5 7段目の1 7段目の2 7段目の3 7段目の4 7段目の5 8段目の1 8段目の2 8段目の3 8段目の4 8段目の5