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

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][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






Production Japan Import Application. Since 1998