VBA 新規ファイルを元ファイルと同じ場所に保存する方法

こんにちは。VBA初心者です。
エクセルファイルのシートを、いろいろ行を増やしたり計算を自動にするようにして、
最後にテキスト形式にするためのマクロをつくっております。

元のエクセルファイルの対象のシートをコピーして、新しいファイルを作成しペースト→保存→ファイルを閉じるところまでなんとかできました。
現在、下記のコードで新しいファイルは「マイドキュメント」に保存されていますが、元のエクセルファイルと同じ場所に保存したいのですが、どのようにコードを書けばよろしいでしょうか。
教えていただけますと幸いです。宜しくお願い申し上げます。

Sheets("TXT").Copy
Sheets("TXT").SaveAs FileFormat:=xlCurrentPlatformText, Filename:="今月.txt"
With Workbooks("今月.txt")
.Saved = True
.Close

No.1 ベストアンサー 回答者： hallo-2007 回答日時： 2009/05/17 17:29

ご希望かどうか？

Sheets("TXT").SaveAs FileFormat:=xlCurrentPlatformText, Filename:=ThisWorkbook.Path & "\今月.txt"
として試してみてください。
以下、参考です。

参考URL：http://www.moug.net/tech/exvba/0060050.htm

この回答へのお礼

早速ありがとうございます。

試してみたところ、思いどおりになりました！
本当にありがとうございます。

URLも今後の参考にさせていただきます。

お礼日時：2009/05/17 17:40