簡體   English   中英

由於錯誤,保存 excel xlsm 文件無法正常工作

[英]Saving excel xlsm file not working due to error

我有這個宏正在更新一些表,過去兩周它一直運行良好,但是它突然開始給我 1004 運行時錯誤 - 最初它是運行時錯誤 1004 object _workbook failedub SaveAs() 的方法保存,現在是只需運行時錯誤 1004 “應用程序定義或對象定義錯誤。

我懷疑這與保存文件有關,因為這就是它給我錯誤的地方,其他一切正常。 我已將保存代碼分隔在不同的宏中,但仍然出現此錯誤。

我試圖將路徑字符串整合為一個部分(Mth var 是一個變量,我們每個月都會更改報告,並從工作表值中獲取,但必須手動添加它以進行測試)。 最初路徑和文件名最后錯過了(“S”),因為我認為這些名稱可能與庫中的某些內容沖突。

請注意,在代碼使用 ActiveWorkbook.Saveas 並且工作正常之前,我不確定這是 Excel 知道要查看哪個工作表或工作簿的問題。

我該如何解決? 請看下面的代碼:

ThisWorkbook.Activate
Dim Mth As Integer
Mth = 4
Dim FileNames As String
Dim Paths As String
Dim Fullstring As String
Application.DisplayAlerts = False
Paths = "\\RL1VMFIL02\Finance$\Financial Management\SITES & SERVICES\Corporate\2020-21\C - Statements & Trends" & "\M" & Mth & "\"
FileNames = Format(Now(), "dd.mm.yy") & " Budget Statement & Trend M" & Mth & " - " & Format(Now(), "hh.mm") & ".xlsm"
Fullstring = Paths & FileNames
ThisWorkbook.Activate
ThisWorkbook.SaveAs Fullstring
Application.DisplayAlerts = True

End Sub

這已通過確保路徑文件夾按照@RustyBucketBay 和@GMalc 的建議存在來解決。

明確地,月份路徑包含一個 0,因此它應該是 Mth var = '04 而不是 4 或路徑 "\M0" & Mth & ""

非常感謝你們的幫助!

暫無
暫無

聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.

 
粵ICP備18138465號  © 2020-2024 STACKOOM.COM