差分
この文書の現在のバージョンと選択したバージョンの差分を表示します。
|
office:2003:excel:vba00 [2010/08/08 12:46] miyako |
office:2003:excel:vba00 [2010/08/08 15:01] (現在) miyako |
||
|---|---|---|---|
| ライン 7: | ライン 7: | ||
| <head> | <head> | ||
| <title>エクセル マクロ テスト</title> | <title>エクセル マクロ テスト</title> | ||
| - | <meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS" /> | + | <meta http-equiv="Content-Type" content="text/html; |
| + | charset=Shift_JIS" /> | ||
| </head> | </head> | ||
| <body> | <body> | ||
| ライン 129: | ライン 130: | ||
| Dim WFILE As Variant | Dim WFILE As Variant | ||
| Dim intFFIN As Integer | Dim intFFIN As Integer | ||
| - | Dim intFFOUT As Integer | ||
| Dim strREC As String | Dim strREC As String | ||
| Dim CNT As Integer | Dim CNT As Integer | ||
| ライン 136: | ライン 136: | ||
| '挿入用HTMLを作成 | '挿入用HTMLを作成 | ||
| - | 'ここは既に出来てると思うけど･･･ファイルに書きだしてるのかな？ | ||
| 'vbNewLineは改行の意味なので適当にHTMLを生成してくださいｗｗｗ | 'vbNewLineは改行の意味なので適当にHTMLを生成してくださいｗｗｗ | ||
| 'SHTMLという変数に差し込みたいHTMLを全て入れるのがポイントね | 'SHTMLという変数に差し込みたいHTMLを全て入れるのがポイントね | ||
| + | 'このサンプルではvbaが組み込まれたシートのX=3,Y=7からY軸を下に | ||
| + | '確認していき空白になるまで繰返しテーブルタグに入れるって書いてます | ||
| CNT = 7 | CNT = 7 | ||
| SHTML = SHTML & "<table>" & vbNewLine | SHTML = SHTML & "<table>" & vbNewLine | ||
| ライン 149: | ライン 150: | ||
| SHTML = SHTML & "</table>" | SHTML = SHTML & "</table>" | ||
| - | 'SHTML = "<font size=7>" & vbNewLine & Cells(7, 3) & vbNewLine & "</font>" | ||
| '読込む用のHTMLファイルを選択する | '読込む用のHTMLファイルを選択する | ||
| ライン 226: | ライン 226: | ||
| あっ！\\ | あっ！\\ | ||
| - | 吐き出すHTMLファイルの文字コードを変える場合は、最初に作成したサンプルのHTMLのMETAタグの\\ | + | 吐き出すHTMLファイルの文字コードを変える場合は、最初に作成したHTMLのMETAタグの\\ |
| 文字コードも修正が必要ですよ（＾＾；） | 文字コードも修正が必要ですよ（＾＾；） | ||
