嘗試對saveas進行編碼時出現運行時錯誤1004

Question

因此，以下代碼之前沒有出現任何問題。 基本上，我會將此文檔通過電子郵件發送給我，代碼運行以提取所需的數據，將其保存到工作簿中的指定文件路徑中，並保存到指定的文件名，然后代碼的下一部分將所有收集的數據放在摘要文檔中。

今天，我嘗試添加一個警報消息框，以便如果滿足某些條件，則在嘗試保存時會向用戶提供一條消息。 當我這樣做時，我開始遇到運行時1004錯誤，即使我已經刪除了工作表上的beforesave事件，也仍然得到它。 它正在使用ActiveWorkbook ...，然后在閱讀了有關ActiveWorkbook可能導致錯誤的信息后，將其更改為ThisWorkbook。

我不知道獲得這些文檔時文件名是什么，並且想在運行宏時簡單地保存文檔並將其應用於指定的文件名。 關於我為什么突然收到此錯誤的任何想法？

'saves incident report to incident report folder
    ThisWorkbook.SaveAs Filename:=("C:\Users\ashley.graham\Field Agent Folder\Incident Reports\Test folder\Test Incident report folder\" & IncidentReport & AgentName & ".xlsm")

Answer 1

嘗試添加以下內容：

Dim wb As Workbook

Set wb = Workbooks(ActiveWorkbook.Name)

    wb.SaveAs Filename:=("C:\Users\ashley.graham\Field Agent Folder\Incident Reports\Test folder\Test Incident report folder\" & IncidentReport & AgentName & ".xlsm")