VBA - Excelシートは現在のディレクトリに保存されません - デフォルトはマイドキュメント

Question

xlsmファイルの2枚を.bat拡張子のMSDOSテキストファイルとして保存してスクリプトとして実行して保存できます現在のディレクトリ。代わりにそれがMy Documentsにデフォルト設定される原因は何ですか？

私はコーダーではありません - レコードマクロを使用して作成し、特定のパスを取り出すために編集しました。 ActiveWorkbook.Saveを最初に追加し、ActiveWorkbook.Close SaveChanges：= Falseを最後に追加するまで、私は実際にこの作業をしていましたので、誤って手動で保存してもフォーマットが失われることはありません。これで、私が試したことに関係なく、ファイルがマイドキュメントに保存されます。私はそれが原因だろうと想像することはできませんし、それらの2行を外してもそれを修正しませんでした。私は何が欠けていますか？ここで

は私のコードです：

ActiveWorkbook.Save 
Sheets("Copy Script").Select 
ActiveWorkbook.SaveAs Filename:= _ 
    "copy.bat", FileFormat:= _ 
    xlTextMSDOS, CreateBackup:=False 
Sheets("Plot Script").Select 
ActiveWorkbook.SaveAs Filename:= _ 
    "plot.bat", FileFormat:= _ 
    xlTextMSDOS, CreateBackup:=False 
ActiveWorkbook.Close SaveChanges:=False 

Answer 1

は完全に働いたこの

ActiveWorkbook.SaveAs Filename:= ThisWorkbook.Path & "\copy.bat", FileFormat:= xlTextMSDOS, CreateBackup:=False