运行时错误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")包括该工作簿的适当扩展名。

如果在运行宏时当前未打开该工作簿，则也会出现错误。 此外，请确保该工作簿包含名为数据的工作表