運行時錯誤9

Question

我創建了一個名為“ AirHours”的工作簿，並創建了另一個工作簿的日期。 我想在整個項目中使用此工作簿。 下面的代碼有效，但是我不斷遇到運行時錯誤9“下標超出范圍”。

我正在嘗試為我的報告創建一個工作簿，並使我的數據保持其原始形式。 新工作簿將在許多模塊中使用。 SET WSD3=Workbook似乎發生運行時錯誤。

也許我在創建公共工作簿時走錯了路。 謝謝你的幫助。

Option Explicit

Public WSD3 As Workbook

Public Sub addNewWorkBook()

Dim NewName As String

Application.DisplayAlerts = False

NewName = "AirHours" & Workbooks("AirTimeWorkBookBeta").Worksheets("Data").Cells(2, 1).Value

Workbooks.Add

ActiveWorkbook.SaveAs NewName
Set WSD3 = Workbooks("NewName")


End Sub

Answer 1

將WSD3設置為新工作簿時，將其打開

Option Explicit

Public WSD3 As Workbook

Public Sub addNewWorkBook()

Dim NewName As String

Application.DisplayAlerts = False

NewName = "AirHours" & Workbooks("AirTimeWorkBookBeta").Worksheets("Data").Cells(2, 1).Value

Set WSD3 = Workbooks.Add

WSD3.SaveAs NewName


End Sub

Answer 2

與scott的建議一起，部分問題是，當使用Workbooks（“ workbookname.ext”）引用工作簿時，您需要提供擴展名，例如.xls或.xlsm，因此您需要更新引用的位置。 Workbooks("AirTimeWorkBookBeta")包括該工作簿的適當擴展名。

如果在運行宏時當前未打開該工作簿，則也會出現錯誤。 此外，請確保該工作簿包含名為數據的工作表