エクセルでファイルをcsv形式で保存するマクロについて

質問

同様の質問が以前にあったのですが、
どうやら私のは少し違うようなので新規質問として投稿させていただきます。

エクセルファイルを保存する際、保存形式を「テキスト（タブ区切り）（*.txt）」にして、
ファイル名の拡張子の部分だけ（.csv）にして保存するマクロを作成したいです。

しかし、エクセルに付いているオートマクロ機能で記録しようとすると、
・ファイル名がオートマクロを作成した際に付けたファイル名になってしまう。
・保存場所がオートマクロを作成した際に保存したフォルダになってしまう。
という問題が発生します。

なので、
・保存する際のファイル名は現在作業しているファイルの名前をそのまま使用する。
・保存する際のファイル名の拡張子部分は（.csv）に変更する
・保存場所は現在作業しているファイルがあるフォルダにする（もしくはプログラムで予めパスを指定できる）。
・保存形式は「テキスト（タブ区切り）（.txt）」
の4つの条件を満たすマクロの作成方法をお教えいただけますでしょうか？

すみませんが、よろしくおねがいします

回答No.1

shishishishi · ベストアンサー

> 保存形式を「テキスト（タブ区切り）（*.txt）」にして、ファイル名の拡張子の部分だけ（.csv）にして保存する

この趣旨がわかりませんが、そのとおりにするとこんな感じですか。

Sub TEST01()
Dim myP As String, myN As String, myNN As String
myP = ThisWorkbook.Path
myN = ThisWorkbook.Name
myNN = Left(myN, Len(myN) - 4) & ".csv"
ActiveWorkbook.SaveAs Filename:=myP & "\" & myNN, FileFormat:=xlText
End Sub

お礼

早速のご返答ありがとうございました。
若干私の希望しているものと異なる部分がありましたが、
少し修正したらその問題も解決できました。

ありがとうございます。

>> 保存形式を「テキスト（タブ区切り）（*.txt）」にして、ファイル名の拡張子の部分だけ（.csv）にして保存する

>この趣旨がわかりませんが、そのとおりにするとこんな感じですか。
私もプログラマの人にそういわれたので詳細まではわからないのですが・・・