テキストファイルに出力(名前をつけて保存) - お勉強サイト

テキストファイルに出力(名前をつけて保存)

Option Explicit

Sub リストファイル出力()
Dim fno As Integer
Dim startrow As Long
Dim endrow As Long
Dim i As String
Dim sfile As String

'Macのエクセルでは後ろのやつをつけたらエラーになったからコメントアウト
sfile = Application.GetSaveAsFilename '(fileFilter:="テキストファイル (*.txt), *.txt")

If sfile = "False" Then
　 Exit Sub
End If

'ファイル番号
fno = FreeFile

'最終行取得
endrow = Range("C11").End(xlDown).Row

'テキストファイルに出力
Open sfile For Output As #fno
　 For startrow = 11 To endrow
　 i = Cells(startrow, 3) & "," & Cells(startrow, 12) & "," & Cells(startrow, 15) & "," & Cells(startrow, 18)
　 Print #fno, i
　 Next startrow
Close #fno

End Sub