VBAでCSVファイル出力後文字化けする

Question

Excelのマクロを使用しCSVファイルを出力しようと思っています。
マクロ実行後CSVファイルは出力されるのですが、文字化けしております。
CSVをExcelで開くとファイルの破損メッセージが表示されますが、内容は表示されておりました。
テキストエディタで開くと文字化けしてしまいます。
どのようにすれば文字化けせずに出力できますでしょうか。

※Excelでの設定部分かもしれないですが、念のためVBAのコードも記述しておきます。

【追記】
マクロファイルにあるマクロをVBSで外部実行し
CSV出力を行っています。
Excelを開かずに非表示状態でマクロの処理を行っています。

Sub Macro1()
'
' Macro1 Macro
'

'
    Application.ScreenUpdating = False
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;ファイルパス\ファイル名.csv", Destination:=Range( _
        "$A$1"))
        .Name = "取込ファイル"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlOverwriteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 932
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 5, 2, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
	-----------------------------
	処理
	-----------------------------

    ChDir "ファイルパス"
        'メッセージ非表示
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:="ファイルパス\出力ファイル名.csv" _
    Application.Quit
    Workbooks.Close
    Workbooks("マクロ作成ファイル名.xlsm").Close
       
End Sub

Answer 1

ここを

ActiveWorkbook.SaveAs Filename:="ファイルパス\出力ファイル名.csv"

こうしてみては

ActiveWorkbook.SaveAs Filename:="ファイルパス\出力ファイル名.csv", FileFormat:=xlCSV

Comments

[hj_zebra]

回答ありがとうございます。
助かりました。