Workbooks.add錯誤1004

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 Center Workbooks.Add方法幫助對其進行了更詳細的說明。 它沒有明確指定文件必須是.xltx或xltm文件類型，這暗示

如果此參數是指定現有Microsoft Excel文件名稱的字符串，則會使用指定文件作為模板來創建新工作簿。

如果要將Projectsjabloon.xlsm用作模板，則需要將其另存為啟用了宏的模板.xltm文件。 然后，您可以將其包含在可選的Template參數中：

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

Answer 3

謝謝@馬克·菲茨傑拉德這對我有用