【Excel】VBAマクロでファイル出力（テキストファイルやcsv：utf-8：Shift-jisの文字コード：出力先指定など）する方法

Sub TextFileOutputUTF8()
    Dim hozonbasho As Variant
    hozonbasho = Application.GetSaveAsFilename(FileFilter:="テキストファイル (*.txt), *.txt", Title:="保存先を選択してください")

    If hozonbasho <> False Then
        Dim fso As Object
        Set fso = CreateObject("Scripting.FileSystemObject")
        Dim fileStream As Object
        Set fileStream = fso.CreateTextFile(hozonbasho, True, True) ' True for overwrite, True for Unicode

        Dim sh As Worksheet
        Set sh = ThisWorkbook.ActiveSheet

        Dim r As Range
        For Each r In sh.UsedRange.Rows
            fileStream.WriteLine Join(Application.Transpose(Application.Transpose(r.Value)), vbTab)
        Next r

        fileStream.Close
    End If
End Sub

Sub ExportSheetsToCSV()
    Dim sh As Worksheet
    Dim hozonbashoCSV As Variant
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    For Each sh In ThisWorkbook.Sheets
        hozonbashoCSV = Application.GetSaveAsFilename(InitialFileName:=sh.Name, _
                                                     FileFilter:="CSVファイル (*.csv), *.csv", _
                                                     Title:="保存先を選択してください（" & sh.Name & "シート）")
        If hozonbashoCSV <> False Then
            Dim fileStream As Object
            Set fileStream = fso.CreateTextFile(hozonbashoCSV, True, False) ' True for overwrite, False for non-Unicode (Shift-JIS)

            Dim r As Range
            For Each r In sh.UsedRange.Rows
                fileStream.WriteLine Join(Application.Transpose(Application.Transpose(r.Value)), ",")
            Next r

            fileStream.Close
        End If
    Next sh
End Sub