‘VBA-HTM表文書作成2
‘エクセル表から
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
'<table
border="1" width=2000 cellpadding="5">
Dim a(10,
5)
n1 = 10
m1 = 5
For n = 1 To
n1
For m = 1 To
m1
a(n, m) = Worksheets(1).Cells(n, m)
Next
Next
'表作成
ttt = ttt & "<html>表題<br><table border=1 width=100%>" & Chr(13) + Chr(10)
For n = 1 To
n1
ttt = ttt & "<tr>"
For m = 1 To
m1
ttt = ttt & "<td>" & a(n, m) &
"</td>"
Next m
ttt = ttt & "</tr>"
& Chr(13) + Chr(10)
Next n
ttt = ttt & "</table></html>" & Chr(13) + Chr(10)
'HTM
Open "test" &
".htm" For Output As #1 ' シーケンシャル入力モードで開きます。
Print #1, ttt
Close #1 ' ファイルを閉じます。
DoEvents
End Sub