差分
この文書の現在のバージョンと選択したバージョンの差分を表示します。
|
office:2003:excel:vba00 [2010/08/08 12:40] 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> | ||
| ライン 119: | ライン 120: | ||
| 出力ファイルの文字コードをEUCにするコードも考えてみよう | 出力ファイルの文字コードをEUCにするコードも考えてみよう | ||
| + | |||
| <code> | <code> | ||
| + | |||
| Private Sub CommandButton1_Click() | Private Sub CommandButton1_Click() | ||
| '変数の宣言 | '変数の宣言 | ||
| ライン 127: | ライン 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 | ||
| ライン 134: | ライン 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 | ||
| ライン 147: | ライン 150: | ||
| SHTML = SHTML & "</table>" | SHTML = SHTML & "</table>" | ||
| - | 'SHTML = "<font size=7>" & vbNewLine & Cells(7, 3) & vbNewLine & "</font>" | ||
| '読込む用のHTMLファイルを選択する | '読込む用のHTMLファイルを選択する | ||
| ライン 210: | ライン 212: | ||
| txt.Close | txt.Close | ||
| Set txt = Nothing | Set txt = Nothing | ||
| + | xlAPP.StatusBar = False | ||
| Close #intFFIN | Close #intFFIN | ||
| - | xlAPP.StatusBar = False | ||
| MsgBox ("処理が完了したよ（＾＾）") | MsgBox ("処理が完了したよ（＾＾）") | ||
| End Sub | End Sub | ||
| - | </CODE> | ||
| - | さぁ、どこが変わってるかわかったかな？ | + | </code> |
| + | |||
| + | さぁ、どこが変わってるかわかったかな？\\ | ||
| コメントを参考にして自分の環境に合わせて自由に使ってみてください（＾＾） | コメントを参考にして自分の環境に合わせて自由に使ってみてください（＾＾） | ||
| + | |||
| + | あっ！\\ | ||
| + | 吐き出すHTMLファイルの文字コードを変える場合は、最初に作成したHTMLのMETAタグの\\ | ||
| + | 文字コードも修正が必要ですよ（＾＾；） | ||
| + | |||
| + | <code> | ||
| + | <meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS" /> | ||
| + | ↓ | ||
| + | <meta http-equiv="Content-Type" content="text/html; charset=EUC-JP" /> | ||
| + | </code> | ||
| + | |||
