Excelの表をWebページに

HP作りの裏話 (Excel の表を Web ページに)

当初、ホームページビルダーに頼っていましたが、細かい部分の変更が困難なためタグを覚えました。このホームページの大部分がデータ量の多いExcel の表に基づいていて、さらにタイ文字を表示させるという課題もあり、悪戦苦闘の連続でした。

Excelの表をページに貼り付ける、自分なりの方法を紹介します。プロの方なら他の方法(例えばperl言語CGIとデータベースの併用等々)をとり、なんと稚拙なやり方と笑われかねないですが。

Excelの表が Sheet1 にあるとします。
ここでは、簡略のため表データは A1 cellから詰まっているとします。

表題、罫線、field　などの設定は応用問題です。

ワークシートを2つ挿入して、シート名　"webpage"　"webstyle"　にします。
挿入しなくても Sheet2,Sheet3 が表示されている場合はシート名を定義します。

webstyleのシートのA列のトップから次のような汎用の記述を記入しておきます。

（注）必ずA列のみに書いてください。
書き加えたい事が後々出てくるかもしれませんので、途中空白cellを作ってもかまいません。途中挿入をしないで、50行以内にしてください。(50行あれば十分と思います。）
```
 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
 <html>
 <head>
 <meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
 <meta http-equiv="Content-Style-Type" content="text/css">
 <title>Excelの表</title>
 </head>
 <body>

 -----
 -----
 <table>
```
webstyle のシートの A列の51行目以降に次のようなtable以外の汎用の記述を記入しておきます。
（注）必ずA列のみに書いてください。
書き加えたい事が後々出てくるかもしれませんので途中空白cellを作ってもかまいません。50行以内にしてください。
```
 </table>
 </body>
 </html>
```

html 文書のファイルを可視化するソフトウェアーをブラウザ（例えばインターネットエクスプローラ（IE)など）と呼んで良いと思います。いずれもオリジナルの文書に文法上エラーがあっても原則的無視します。特に新しい定義が必要な場合以外 </tabel>, </font> などの "終わりを宣言する" 記述がなくても動作は同じです。つまり"51行目以降" の記述は必要ないのです。さらに言えば、</td>, </tr> も不必要ですがここでは、文法に忠実な表記をしています。

Excel VBA Macro を記述する。

Alt +　F11　でマクロ画面を表示させる。
挿入で　標準モジュールをクリックし編集画面を表示させる。

編集画面

上画面に以下をcopyして張り付ける。


Sub makeWeb()
Dim x, y, i, j, n As Integer
Dim w As String

n = 1  ’n　はwebpageのシートに作る行の連番

For i = 1 To 50
w = Worksheets("webstyle").Cells(i, 1)
If  w = "" Then
Else
Worksheets("webpage").Cells(n, 1) = w
n = n + 1
End If
Next i

y = Activecell.CurrentRegion.Rows.Count
x = Activecell.CurrentRegion.Columns.Count

For i = 1 To y
Worksheets("webpage").Cells(n, 1) = "<tr>"
n = n + 1

For j = 1 To x
Worksheets("webpage").Cells(n, 1) = "<td>" & Cells(i, j) & "</td>"
n = n + 1
Next

Worksheets("webpage").Cells(n, 1) = "</tr>"
n = n + 1
Next

For i = 51 To 100
w = Worksheets("webstyle").Cells(i, 1)
If w = "" Then
Else
Worksheets("webpage").Cells(n, 1) = w
n = n + 1
End If
Next i

End Sub

50行で足りない場合は　上記の　For i = 1 To 50 、For i = 51 To 100 の部分を
For i = 1 To 100、For i = 101 To 150　の如く換えます

貼り付け後の画面は次のようです。

マクロを実行する。

不測の結果が生じる可能性がありますので、実行前に元のデータ等は backup しておいてください。

マクロ編集画面を閉じ、Sheet1 に戻り、Alt +　F8　またはツール → マクロ →マクロの実行(makeWeb)をクリックします。

本マクロは悪意を持つものでなく、実行してもシステムになんら影響を与えません。

Sheet1 の表データは　A1 cell から作ってください。
データのある任意の cell を active にした上で実行してください。
表の列及び行の数は常識内の範囲であれば特に制限がありませんが、途中に空白行、空白列を作ってはいけません。 WindowXP までの Excelでは列は 256、行は 65,536 が limit です。
現行Excelでは　16,384列、1.048,576行表範囲内に空白cellがあってもかまいません
本例は簡略のため、CurrentRegion を使っています。Sheet を保護しているとエラーになります。
何かの不具合でエラーが出るかもしれません。VBA　が分かっている方はデバッグしてください。分からない時は終了を選んでください。
「実行時エラー9　インデックスが有効範囲にありません」の多くの場合
シート名　"webpage"　"webstyle"　のスペルが間違っていないか確かめてください。

cell 内での改行について
Excel では１つの cell 内で改行したい場合は、Alt + Enter を使います。しかし、ここで紹介する方法で元のデータにこのような改行設定をしていると、次項の notepad に作成されるテキストに不要な引用符 " が表示されます。

これを防ぐためには元のデータには改行の設定をしないでください。設定済みのデータを使って、特に改行を指定したい場合には元のデータを別のファイルにコピーしたうえ、指定解除し改行箇所に<br>を挿入しておけば解決します。
Webのページを作る。
最初に作った、新しいシート(シート名　webpage）にはmetaタグなどを含む原稿が出来ているはずですので、これをnotepadなどに貼り付ければよいわけです。

ファイルの保存には｢名前を付けて保存」を選び、sample.html　など拡張子を付けなければなりません。

タイ語など特殊な文字が含まれていると保存の前に警告が表示されます。

次のようなプロシージャーを加えてください。


Sub NotePadCopy()
Dim MyRange as Range
Set MyRange = Worksheets("webpage").Range("a1").CurrentRegion

MyRange.Copy
Shell "notepad.exe", vbNormalFocus
SendKeys ("%EP")
SendKeys ("%FA")
SendKeys ("sampleweb.html")

End Sub

繰り返して使用する場合の注意

１回の操作でうまくいかなくて、引き続き try する場合や異なるデータを使いたい場合があります。
その際、ワークシート、sheet名 webpage には前回操作した原稿が残っている事を忘れてはいけません。
そのような時は、webpage のシートデータを消去してからにします。

タイ文字の表示

タイ文字に限りませんが、Unicodeを使う以外はコード表示にしなければなりません。

とても人間のする作業ではありません。VBA で例えば次のようにします。

ワークシートを追加挿入し、sheet名を code とします。


Sub codechange()
Dim MySheet As Object

Set MySheet = Worksheets("code")

For Each c In MySheet.Range("moji")
  If c.Value = "" Then
   Else
   ActiveSheet.Cells.Replace What:=c.Value, replacement:="&#" _
   & Trim(Str(c.Range("A2").Value)) & ";"
  End If
Next

End Sub

this page top

戻る