Workbooks.add ошибка 1004

Question

Я получил этот код:

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

Я запускаю код с элементом управления формы и получаю эту ошибку: Ошибка 1004 Метод Добавление объектов листов не удалось

Путь, который я использую, находится на локальном сервере, и файл действительно существует. Это работало неделю назад.

Answer 1

Метод Workbooks.Add будет принимать необязательный аргумент Template, но он должен быть константой XlWBATemplate или именем файла с путем. Workbook Center Office Dev. Справка по методу добавления объясняет это более подробно.Он явно не указывает, что файл должен иметь тип файла .xltx или xltm, он подразумевается в

Если этот аргумент является строкой, указывающей имя существующего файла Microsoft Excel,Новая рабочая книга создается с указанным файлом в качестве шаблона.

Если вы хотите использовать Projectsjabloon.xlsm в качестве шаблона, вам необходимо сохранить его в качестве шаблона с поддержкой макросов .xltm файл,Затем вы можете включить его в необязательный аргумент Template:

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

Answer 2

Если вы попробуете:

Option Explicit

Sub Macro1()

    Dim wk As Workbook

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

End Sub

Answer 3

Спасибо @Mark Fitzgerald, это работает для меня