差分
この文書の現在のバージョンと選択したバージョンの差分を表示します。
|
office:2003:excel:vba00 [2010/08/08 12:48] miyako |
office:2003:excel:vba00 [2010/08/08 15:01] (現在) miyako |
||
|---|---|---|---|
| ライン 130: | ライン 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 | ||
| ライン 137: | ライン 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 | ||
| ライン 150: | ライン 150: | ||
| SHTML = SHTML & "</table>" | SHTML = SHTML & "</table>" | ||
| - | 'SHTML = "<font size=7>" & vbNewLine & Cells(7, 3) & vbNewLine & "</font>" | ||
| '読込む用のHTMLファイルを選択する | '読込む用のHTMLファイルを選択する | ||
