‘VBA-Wikipedia表作成-エクセル表から ファイルは マイドのtest.txtへ出力
Sub table()
TT =
""
TT = TT &
"{| class=" & Chr(34) & "wikitable" & Chr(34)
& " style=" & Chr(34) &
"width:100%" & Chr(34) & Chr(13) + Chr(10)
For n = 1 To
10
TT = TT &
"|-" & Chr(13) + Chr(10)
For m = 1 To 5
If m = 1 Then
TT = TT & "|" & Me.Cells(n, m) Else
TT = TT & "||" & Me.Cells(n, m)
Next
TT = TT & Chr(13) + Chr(10)
Next
TT = TT &
"|}" & Chr(13) + Chr(10)
Open "test" &
".txt" For Output As #1 '
シーケンシャル入力モードで開きます。
Print #1, TT
Close #1 ' ファイルを閉じます。
DoEvents
End Sub
‘改行形式
Sub table2()
TT = ""
TT = TT & "{| class=" & Chr(34) & "wikitable" & Chr(34) & " style=" & Chr(34) & "width:100%" & Chr(34) & Chr(13) + Chr(10)
For n = 1 To 10
TT = TT & "|-" & Chr(13) + Chr(10)
For m = 1 To 5
TT = TT & "|" & Me.Cells(n, m) & Chr(13) + Chr(10)
Next
Next
TT = TT & "|}" & Chr(13) + Chr(10)
Open "test" & ".txt" For Output As #1 ' シーケンシャル入力モードで開きます。
Print #1, TT
Close #1 ' ファイルを閉じます。
DoEvents
End Sub