エクセルのマクロについて教えてください。

マクロを実行して指定ファイル名を呼び込み指定ファイル形式で保存出来るように設定しましたが、j保存できません、解決方法を教えてください。
マクロ
Dim f_Path As String
Dim tmp As String

f_Path = ActiveWorkbook.Path & "\"
tmp = Dir(f_Path & "*.erirct")

If tmp = "" Then Exit Sub

Workbooks.OpenText Filename:=f_Path & tmp, Origin _
:=932, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:= _
False, Space:=False, Other:=False, FieldInfo:=Array(1, 2), _
TrailingMinusNumbers:=True
Columns("A:A").ColumnWidth = 53.25
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & "FDﾃﾞｰﾀ.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub
があります、指定の拡張子「.erirct」のファイルを呼び込みExcel形式の「FDﾃﾞｰﾀ.xlsx」（ファイル名はFDﾃﾞｰﾀで固定です）でマクロがある同じフォルダ内に保存されるように設定しておりますが、
マクロ実行すると
「この場所に'\FDﾃﾞｰﾀ.xlsx'という名前のファイルが既にあります。置き換えますか」
の警告文が表示され「はい（Y）」をクリックしてもフォルダ内に「FDﾃﾞｰﾀ.xlsx」のファイルが保存されません、
又、元々同じフォルダ内に「FDﾃﾞｰﾀ.xlsx」のファイルはないのですが、
「この場所に'\FDﾃﾞｰﾀ.xlsx'という名前のファイルが既にあります。置き換えますか」と表示されるのかも不明です。
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & "FDﾃﾞｰﾀ.xlsx", _
このコードに問題があるのでしょうか？
解決方法を教えてください。
よろしくお願いいたします。

No.1 ベストアンサー 回答者： rexfan 回答日時： 2023/02/06 13:54

ActiveWorkbook.Path が空白です。

この回答へのお礼

回答ありがとうございました。

お礼日時：2023/02/06 14:15