|
1ページ目とか2ページ目とかは解りません。
とりあえず、メモ帳に出力してみました。
・String * 5
だと、半角スペースになるので、位置がうまく合いません。
適当に修正してください。
Sub monmon()
Dim Wrt() As String
Dim Ht1 As String * 5, Ht2 As String * 5, Ht3 As String * 5
Dim St1 As String * 10
Dim St2 As String * 5
Dim St3 As String * 15
LSet Ht1 = Range("A1").Value
LSet Ht2 = Range("B1").Value
LSet Ht3 = Range("C1").Value
EndR = Range("A65536").End(xlUp).Row
'ReDim Wrt(1 To EndR)
FNo = FreeFile
ファイル名 = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\○○.txt"
Open ファイル名 For Output As #FNo
For i = 2 To EndR
LSet St1 = Cells(i, 1).Value
Print #FNo, Ht1 & St1
LSet St2 = Cells(i, 2).Value
Print #FNo, Ht2 & St2
LSet St3 = Cells(i, 3).Value
Print #FNo, Ht3 & St3
Next
Close #FNo
End Sub
|
|