Excel VBAでシートのデータをテキストファイルに保存する

Option Explicit

Private Sub CommandButton1_Click()
    Dim fno As Integer
    Dim lrow As Long
    Dim i As Long
    Dim sfile As String

    sfile = Application.GetSaveAsFilename(fileFilter:="テキストファイル (*.txt), *.txt")
    If sfile = "False" Then
        Exit Sub
    End If
    
    
    'ファイル番号
    fno = FreeFile
    '入力行
    lrow = Range("D1").CurrentRegion.Rows.Count
    
    '出力モードでファイルオープン
    Open sfile For Output As #fno
    
    '項目名を保存
    Write #fno, Cells(1, 4), Cells(1, 5), Cells(1, 6), Cells(1, 7)
    
    '都道府県別データを保存
    For i = 2 To lrow
        Write #fno, Cells(i, 4), Val(Cells(i, 5)), Val(Cells(i, 6)), Val(Cells(i, 7))
    Next
    
    'ファイルを閉じる
    Close #fno

End Sub