[三流君 ] −−＞
[ＶＢＡで楽しく ] −−＞
[バックナンバー一覧 ]Excel VBA テキストファイルで.htmlの雛型を作成する
発行内容
Excel VBA テキストファイルで.htmlの雛型を作成する
どうも、三流プログラマーのＫｅｎ３です。
今回は、
セルに入力したマスターデータを使用して、
テキストファイル(html)を作成してみます。
なんていってても、普通のファイル作成処理です。
/*
* １．やりたいこと 概要
*/ /*
* ２．テキストファイル作りの基本
*/ http://www.ken3.org/vba/backno/vba027.html
でしてました。
新規のテキストファイル作成の基本は、
開けて（Open）、書いて(Print #)、閉めて(Close)
です。
あとは、D:\aaa.txtと絶対パス指定
か
ThisWorkbook.Path & "\aaa.txt"
とファイル名をブックと同じ位置に置いたりするぐらいかなぁ。
Sub test001()
Dim strFNAME As String 'ファイル名格納用
'ブックと同じ位置にtest165.htmlを作成する
strFNAME = ThisWorkbook.Path & "\test165.html" 'ファイル名の作成
Open strFNAME For Output As #1 'ファイル番号１で新規作成
'データ書き込み、
Print #1, "<html>"
Print #1, Now & "です"
Print #1, "</html>"
Close #1 '開いたら閉じようね
'終了メッセージの表示
MsgBox strFNAME & "を作成しました、確認してね"
End Sub
こんな感じで、htmlファイルを簡単に作ることができます。
/*
* ３．ループの作り方いろいろ
*/ Sub test002()
Dim y As Integer 'ループのカウンター
For y = 10 To 56
Debug.Print Cells(y, "B") 'B列をテスト表示
Next y
End Sub
と、
回す人も居れば、47って数字に意味を持たせるために、
Sub test002()
Dim y As Integer 'ループのカウンター
For y = 1 To 47
Debug.Print Cells(9 + y, "B") 'B列をテスト表示
Next y
End Sub
と、1から47のループを作る人も居ます。
都道府県はまず可変にならないんだけど、
可変になっても対応するために、
Sub test002()
Dim y As Integer 'ループのカウンター
y = 10 '10行目から
While Cells(y, "B") <> "" 'B列に何か入っている間ループ
Debug.Print Cells(y, "B") 'B列をテスト表示
y = y + 1
Wend
End Sub
と、B列に何か入っている間のループを作る人も居ます。
固定のときはForで可変の時はWhileやDo loopを使う人多いですね。
まぁ、そんな感じで、データ数分のループを作ります。
/*
* ４．受け取った都道府県名とファイル名を使用してファイルを作成する
*/ 'メインのループ
Sub test002_main()
Dim y As Integer 'ループのカウンター
y = 10 '10行目から
While Cells(y, "B") <> "" 'B列に何か入っている間ループ
'ファイル作成のサブ関数に都道府県名とファイル名を渡す
Call test002_CreateHtmlFile(Cells(y, "B"), Cells(y, "C"))
y = y + 1
Wend
End Sub
と、B列にデータが在る間、
B列(都道府県名)とC列(ファイル名)
を
サブ関数に渡します。
サブ関数では、受け取った名称を使用して、雛形ファイルの作成作業を行います。
'都道府県名とファイル名を受け取り、HTMLファイルを作成するサブ関数
Sub test002_CreateHtmlFile(strKEN As String, strHTML As String)
Dim strFNAME As String 'ファイル名格納用
'ブックと同じ位置にxxx.htmlを作成する
strFNAME = ThisWorkbook.Path & "\" & strHTML 'ファイル名の作成
Open strFNAME For Output As #1 'ファイル番号１で新規作成
'データ書き込み、都道府県だけ変えて作成する
Print #1, "<html>"
Print #1, "<head>"
Print #1, "<title>" & strKEN & " 宿・ホテルの予約／検索</title>"
Print #1, "</head>"
Print #1, "<body>"
Print #1, "<h1>" & strKEN & " 宿・ホテルの予約／検索</h1>"
Print #1, strKEN & "の宿・ホテルの予約や検索サイトをまとめています。<br>"
Print #1, "クリックして探してみてください<br>"
Print #1, ""
Print #1, "あとでここにバナー広告をここに貼る。<br>"
Print #1, ""
Print #1, "</body>"
Print #1, "</html>"
Close #1 '開いたら閉じようね
End Sub
うわっ、芸無くPrint #で縦に羅列したの・・・ぷっ。
笑わないでよ。とっかかりなんだからさ・・・
/*
* ５．終わりの挨拶
*/ http://www.ken3.org/vba/lzh/vba165.lzh
に保存しました。
解凍して都道府県.xlsを開いて、
内容を変えたりして、遊んでください。
パラメータでファイル名と内容を渡し、
テキストファイル(HTML)を作成してみました。
でも、なんか、しっくり来ないし、変更が大変だよねこれでは・・・
次回は、変更しやすい作り方にチャレンジかな。
何か読者の心に残れば、うれしいです。
＊私の独り言をうまく消化してくださいね。
いつも狙いが違うだろ？三流プログラマー Ｋｅｎ３でした。
ページフッター
ここまで、読んでいただきどうもです。ここから下は、三流君のホームページの紹介・案内です
種類別のリンク や 広告など
Blogとリンク :[三流君の作業日記 ]/
[VBAやASPのサンプルコード ]/
広告-[通販人気商品の足跡 ]
三流君(TOP ken3.org へ戻る) ]
/ [VBA系TOPへ ]
/ [VBA系バックナンバー目次へ移動 ]
↑シート作成イメージ