Question

我得到了以下代码：

Dim wb As Workbook
Set wb = Workbooks.Add("J:\Planning\Sjablonen\Projectsjabloon.xlsm")

我使用表单控件元素运行代码，并得到以下错误：错误1004方法添加对象表失败

我使用的路径在本地服务器上，并且该文件确实存在。这是一周前的工作。

Answer 1

如果您尝试：

Option Explicit

Sub Macro1()

    Dim wk As Workbook

    Set wk = Workbooks.Add
    wk.SaveAs Filename:=("J:\Planning\Sjablonen\Projectsjabloon.xlsm")

End Sub

Answer 2

Workbooks.Add方法将使用可选的Template参数，但它必须是XlWBATemplate常数或带有路径的文件名。 Office Dev Centre Workbooks.Add method help对其进行了详细说明。

隐式指定文件类型不是.xltx或xltm。

如果此参数是指定现有Microsoft Excel文件名称的字符串，则会使用指定文件作为模板来创建新工作簿。

如果要将Projectsjabloon.xlsm用作模板，则需要将其另存为启用宏的模板.xltm文件。然后，您可以将其包含在可选的Template参数中：

Set wb = Workbooks.Add("J:\Planning\Sjablonen\Projectsjabloon.xltm")

Answer 3

感谢@Mark Fitzgerald，这对我有用

Workbooks.add错误1004

3 个答案: