為什么使用簡單的 VBA 宏會不斷收到應用程序定義或對象定義的錯誤？

Question

我正在努力創建一個宏來簡化我每天做的事情。 這個宏背后的想法是從父報表復制 7 個工作表，打開一個新工作簿，粘貼並硬編碼數據，將其保存到我的桌面並關閉新工作簿。

當我調試和測試我的代碼時，我遇到了一個問題，我不明白為什么會這樣。 如果我啟動 windows 並在我的 excel 工作簿中第一次運行宏，我第一次為 7 份報告運行它時沒有遇到任何問題。 當我嘗試添加代碼或修復問題並再次運行代碼時，問題出現了。 我不斷收到“運行時錯誤‘1004’應用程序定義的錯誤或 object 定義的錯誤”。

我正在嘗試調試，當我按 F8 進行調試並單步執行代碼時，當我多次運行它試圖關閉時，它似乎在第 4 步左右掛起。 我正在學習和使用 Leila Gharani 的課程，但我認為我在課程中還沒有理解到這一步。 如果有人可以幫助我理解這個概念，我將不勝感激。

謝謝

'1. Select Parent Report and select BD Tab
Workbooks("Parent Report").Activate
Worksheets("BD").Select

'2. Select all cells from BD tab, open new workbook , paste data, and hardcode it.
Cells.Select
Cells.Copy
Workbooks.Add
Range("A1").PasteSpecial xlPasteAll
Cells.Select
Cells.Copy
Range("A1").PasteSpecial xlPasteValues
Cells.EntireRow.AutoFit

'3. Rename worksheet to BD and cell "A2" to BD.
ActiveWorkbook.ActiveSheet.Name = "BD"
Range("A2").Value = "BD"
Range("A1").Select

'4. Save current flash report to local drive, with monthly naming format and close it.
ActiveWorkbook.SaveAs "C:\Users\mylocaldriveinfo\Desktop\Flash Reports" & "\BD Monthly Reporting - Preliminary " & Format(Date, "mmm") & " " & Format(Date, "yyyy")
ActiveWorkbook.Close

Answer 1

我剛剛弄明白了。 這是我在工作中遇到的一個問題。 我禁用了它，因為我從未使用過它並且這樣做我無法復制錯誤。

我確信這段代碼不是最佳實踐，但它現在有效。

Answer 2

Option Explicit Sub CopySheets() Const FOLDER = "C:\Users\mylocaldriveinfo\Desktop\Flash Reports\BD Monthly Reporting -" Dim wbNew As Workbook, wbMaster As Workbook, sht, n As Long Set wbMaster = ThisWorkbook ' create new workbook Set wbNew = Workbooks.Add(1) ' 1 sheet n = 1 For Each sht In Array("BD", "Sheet2", "Sheet3", "Sheet4", _ "Sheet5", "Sheet6", "SHeet7") ' 7 sheet names wbMaster.Sheets(sht).Copy After:=wbNew.Sheets(n) n = n + 1 With wbNew.Sheets(n) .UsedRange.Value = .UsedRange.Value .Range("A2") = sht End With Next With wbNew ' delete blank sheet Application.DisplayAlerts = False .Sheets(1).Delete Application.DisplayAlerts = True ' save .SaveAs Filename:=FOLDER & Format(Date, "mmm yyyy") .Close End With MsgBox "Done", vbInformation End Sub