‘VBA-HTM表文書作成（枠のみ）
Sub aa()
Dim a(10,
5)
For n = 1 To 10
For m = 1 To 5
a(n, m) = Trim(Str(n)) &
"-" & Trim(Str(m))
Next
Next
'表作成
ttt = ttt & "<table border=1 width=100%>"
& Chr(13) + Chr(10)
For n = 1 To 10
ttt = ttt & "<tr>"
& Chr(13) + Chr(10)
For m = 1 To 5
ttt = ttt & "<td>" & a(n, m) &
"</td>" & Chr(13) + Chr(10)
Next m
ttt = ttt & "</tr>"
& Chr(13) + Chr(10)
Next n
ttt = ttt & "</table>" & Chr(13) + Chr(10)
'HTM
Open "test" &
".htm" For Output As #1 ' シーケンシャル入力モードで開きます。
Print #1, ttt
Close #1 ' ファイルを閉じます。
DoEvents
End Sub