создавать несколько книг в определенном месте папки

Предположим, я хочу создать 5 книг в определенном месте. Я пытался использовать этот код, но он не работает. (ошибка времени выполнения, ошибка автоматизации), что с ним не так?

Sub blabal() Dim wbk As Workbook Dim i As Integer i = 1 Set wbk = Workbook.Add Do Until i = 5 wbk.SaveAs "C:\Users\User1\Desktop\abc\" & i wbk.Close i = i + 1 Loop End Sub 

Set wbk = Workbooks.Add

Вы должны указать Workbooks вместо Workbook .

Workbooks являются объектом коллекции. Вы добавляете Workbook в сборник книг.

Вам также необходимо изменить порядок вашего кода, так что вы либо не закрываете книгу каждый раз, либо так, что вы закрываете книгу, но затем добавляете новую книгу (что на самом деле не имеет особого смысла , но я покажу пример).

 Set wbk = Workbooks.Add Do Until i = 5 wbk.SaveAs "C:\Users\User1\Desktop\abc\" & i i = i + 1 Loop 

Или

 Do Until i = 5 Set wbk = Workbooks.Add wbk.SaveAs "F:\" & i wbk.Close i = i + 1 Loop 
  • Макрос Excel для копирования не работает как ожидалось
  • Как обнаружить и выделить, если несколько слов в ячейке
  • VB Excel Macro - ошибка во времени исполнения
  • Может ли Excel UDF запускать макрос или рабочий лист?
  • Макрос Excel не вытягивает символы, используя LEFT и RIGHT
  • Ускорить макрокопирование / смещение
  • Excel: проверка подстроки и добавление значения
  • изменить значение ячейки через время со следующим элементом в столбце
  • Сбой при нажатии кнопки «Включить макрос»
  • Макрос VBA для заполнения дат до сегодняшнего дня
  • Преобразование в числовую ошибку в excel после копирования
  • Interesting Posts

    как правильно обращаться с прокси-сервером в .NET.

    Excel: использование VBA для применения условного форматирования к пустым ячейкам в отдельных столбцах

    Открытие Excel CSV с неправильной кодировкой

    Функция Excel VBA RemoveDuplicates с чувствительностью к регистру

    Чтение из электронных таблиц с различным количеством листов в каждом

    Как получить диапазон отфильтрованных строк с помощью Excel Interop?

    удаление нулей из массива и копирование в новый массив

    Как читать и писать защищенные паролем файлы excel?

    Filenotfound при написании листа excel в android

    Есть ли способ установить временные флаги в объектах книги Excel?

    Ошибка Excel, связанная с C ++: «Значение, используемое в формуле, относится к неправильному типу данных»

    Удалить столбец данных из MacVim

    Excel2016 – Excelformula – возвращает дату, на которую не указана суббота и воскресенье

    Используйте соединение NGPSQL из VBA (Excel) для подключения к PostgreSQL

    Определение разницы даты на основе заданного значения

    Давайте будем гением компьютера.