SaveAsエラーについて

投稿者 : かじ     投稿日時 : 2024/03/29(Fri) 13:32:46     OS : 未指定     EXCEL : Office 365

---

初めて質問させて頂きます。
現在社内帳票で使用しているExcelマクロですが、内容変更に伴い修正を行っております。
基本的に現在作動しているコードをコピペしましたが、マクロボタンを押すと
「エラーコード：1004　SaveAsメソッドは失敗しました　’Workbookオブジェクト’」と出ます。
修正箇所が原因とは思いますが、訂正箇所がわからないのでご指導ください。


●「マクロ」シートの指定セルにある保存パスとファイル名を指定場所に保存する

《エラーコード》
Dim wb As Workbook
Dim ws As Worksheet
Dim hozonPath As String
Dim FilName As String


Set wb = ThisWorkbook

Set ws = Worksheets("マクロ")

hozonPath = ws.Range("C16").Value

FilName = ws.Range("D14").Value

wb.SaveAs Filename:=hozonPath & "\" & FilName



《現在動作しているコード》

Dim wb As Workbook
Dim ws As Worksheet
Dim hozonPath As String
Dim FilName As String


Set wb = ThisWorkbook

Set ws = ActiveSheet

hozonPath = ws.Range("S187").Value

FilName = ws.Range("S185").Value

wb.SaveAs Filename:=hozonPath & "\" & FilName

投稿者 : さんこう     投稿日時 : 2024/03/29(Fri) 14:25:00

---

「「マクロ」シートの指定セルにある保存パスとファイル名」を確認してみてはいかがでしょうか。

投稿者 : かじ     投稿日時 : 2024/03/29(Fri) 14:51:38

---

■[返信 1] さんこうさん（2024-03-29 14:25:00）の記事
＞ 「「マクロ」シートの指定セルにある保存パスとファイル名」を確認してみてはいかがでしょうか。
＞
＞
＞
さんこうさん、返信ありがとうございます。
仰る通り・・・ただのスペルミスでした。指定セル修正後動作確認出来ました。
有難うございました。