WEB HTMLファイルのリンクページを作成

※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。

※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。

Option Explicit

Sub HTMLFileAdd()
'*********************
'HTMLファイル作成
'*********************

Dim MyFile As String
Dim My_Title As String
Dim SubTitle() As String
Dim MyURL() As String
Dim MyName() As String
Dim x As Long
Dim y As Long

MyFile = ThisWorkbook.Path & "\test\test1.html"

Open MyFile For Output As #1

My_Title = "情報処理"

Print #1, "<TABLE border=""4"" width=""640"" cellpadding=""2"">"
Print #1, " <TBODY>"
Print #1, " <TR>"
Print #1, " <TD colspan=""2"" bgcolor=""#000099"">"
Print #1, "<FONT size=""-1"" color=""#ffffff"">" & My_Title & "</FONT></TD>"

y = 20

For x = 1 To y

ReDim SubTitle(y) As String
ReDim MyURL(y) As String
ReDim MyName(y) As String

SubTitle(x) = "情報処理" & x
MyURL(x) = "http://www.jp-ia.com/"
MyName(x) = "JPIACOM" & x

Print #1, " <TR>"
Print #1, " <TD><FONT size=""-1"">" & SubTitle(x) & "</FONT></TD>"
Print #1, " <TD><FONT size=""-1""><A href=""" & MyURL(x) & """>" & MyName(x) & "</A></FONT></TD></TR>"

Next x

'Print #1, " </TBODY>"
'Print #1, "</TABLE>"

Close #1

End Sub