在尝试将工作表添加到工作簿时，维度无效

我正在研究Workbook_A中的VBA脚本，该脚本创build一系列单独的工作簿（Workbook_B，Workbook_C）。 脚本将创build这些单独的工作簿，根据Workbook_A中存在的variables（在这种情况下，这些variables是Workbook_B等）命名它们，通过不同的模拟运行将模拟结果写入工作表并保存它们。

到目前为止，我可以打开/创build新的工作簿并正确保存它们。 谈到创build新工作表时，我遇到了一些问题。 这里是代码的相关部分：

初始化其他variables

Dim workbookname As String Dim wksht1 As Worksheet 

…无关的代码…

  Set wkbk = Workbooks.Add wkbk.title = savedVeh workbookname = savedVeh & "full" wkbk.SaveAs fileName:=workbookname, FileFormat:=56 Workbook_A.Activate ' Starting process of creating sheets for different results Set wksht1 = Workbooks(workbookname).Worksheets.Add '*** wksht1.Name = "const_speeds" ffastsim_validation.Activate 

我在'***评论中得到了一个错误。 错误状态：

“指定的尺寸对当前图表types无效”。

这是我第一次玩VBA – 我只是犯了一个语法错误？ 还是wksht1尺寸不正确的操作，我正在执行？ 我很感激任何帮助解释这里发生了什么。

Answer 1

你做：

 wkbk.SaveAs fileName:=workbookname, FileFormat:=56 

接着：

 Set wksht1 = Workbooks(workbookname).Worksheets.Add 

如果我理解正确，那么您试图再次解除引用的Workbook对象将是wkbk对象。 那么为什么又要从Workbooks集合中解除引用呢？ 你已经拥有它了 ：

 Set wksht1 = wkbk.Worksheets.Add