VBAを用いた任意の名前を付けたCSV出力のやり方

Question

VBAを用いてCSVに任意の名前を付けたい

VBAを用いてCSVファイルを出力しようとしています。その中で調べても解決できないことがあったので質問します。

名前を付けて保存ができない

以下に記載のコードを試したところ、できませんでした。
エラーメッセージは#52が出ています。

#52 ファイル名または番号が不正です。

該当のソースコード

Sub WriteVBA()
Dim Filename As String, Filepath As String, FileNo As Integer
Filepath.ActiveWorkbook.Path & Application.GetSaveAsFilename(Filename:=FileName, FileFormat:=csv)
FileNo = FreeFile
Open Fileopath for output As #FileNo
   ...(CSV読み込み処理)
End Sub

試したこと

Application.GetSaveAsFilenameの位置が悪いのかと思い、変更してみましたがほかのエラーが出てしまいました。
改変前のコードも載せておきます。

Sub WriteVBA()
Dim Filename As String, Filepath As String, FileNo As Integer
Filepath.ActiveWorkbook.Path & "\data.csv"
FileNo = FreeFile
Open Fileopath for output As #FileNo
   ...(CSV読み込み処理)
End Sub

関係あるのかどうかわかりませんが、このプログラムでは2つのシートのデータを1つのCSVファイルにしようとしています。

ご回答のほうよろしくお願いいたします。

Answer 1

下記でどうでしょうか。

Sub WriteVBA()
    Dim Filename As String, Filepath As String, FileNo As Integer
    Filepath = Application.GetSaveAsFilename(FileFilter:="CSVファイル(*.csv),*.csv")
    FileNo = FreeFile
    Open Fileopath for output As #FileNo
     ...(CSV読み込み処理)
End Sub

あちこちのコードを意味を理解せずに適当に継ぎ足ししても動きません。
ヘルプなどでそれぞれのコードを理解するようにしましょう。

Comments

[MorningSmash]

迅速なご回答ありがとうございます！動きました！
確かにその通りですね…。今後はおっしゃる通りひとつひとつ理解して学習していくことにします！
ご教授ありがとうございます！