同じフォルダ内に、別名保存で保存したい。

Question

前提・実現したいこと
エクセルファイルを同じフォルダ内に、別名保存で保存したい。
（既存ファイルの上書き保存実施後に別名保存させようとしています。）

発生している問題・エラーメッセージ
エラーメッセージは特になく、
デスクトップ　または　ドキュメントフォルダに保存されてしまいます。

VBA初心者です。勉強不足で恐縮ですがよろしくお願い板います。

該当のソースコード

Dim thisPath As String

thisPath = ThisWorkbook.Path

ThisWorkbook.SaveAs Filename:=thisPath & "ファイル名.xls"

（不要な部分は割愛しております）

Answer 1

ThisWorkbook.SaveAs Filename:=thisPath & "ファイル名.xls"
を
ThisWorkbook.SaveAs Filename:=thisPath & "" & "ファイル名.xls"
に変えてください。""は半角の円マークです。

Comments

[nozomi0930]

できました！！（:_;）
構文をもっと勉強します。ありがとうございました！

Answer 2

えーっと、こういうときは、デバッグしてみてください。
デバッグというほどじゃなくても、いわゆる printfデバッグ っていうやつでもいいです。

Excel VBA では MsgBox関数でしたっけ? あれを使って、

Dim thisPath As String

thisPath = ThisWorkbook.Path

MsgBox thisPath & "ファイル名.xls"

' ThisWorkbook.SaveAs Filename:=thisPath & "ファイル名.xls"

のように一旦、MsgBox関数を入れて、変数内のデータがどのようになっているか確認してみてください。

ファイルパスとかだと、うっかりが多いので。

Excel VBA は最近触っていなかったので、「Excel VBA ThisWorkbook.Path」で検索したところ、
私の環境では、エクセルVBAでThisWorkbook.Pathによるフルパスを定数っぽく使えるようにする方法がヒットしました。

これを読むと、

ThisWorkbook.Path & “\” & ファイル名

とか

FILE_PATH = ThisWorkbook.Path & "\sample.txt"

となっています。
質問者さんのコードと見比べてみると、

「質問者さんのコードには"区切り文字"がない」みたいです。

まず、MsgBox関数で試してみてください。