Добавить лист в Excel через Access VBA

При запуске этого кода я получаю сообщение об ошибке «Обязательный объект» в команде activeworkbook.sheets.add

Также попробовал objexcel.sheets.add("Test") и получил метод «Добавить метод класса листов».

  Public Sub InitialConditions(FileName As Variant) Dim objexcel As Object Dim wbexcel As Object Set objexcel = CreateObject("excel.Application") Set wbexcel = objexcel.workbooks.Open(FileName) activeworkbook.sheets.Add ("Test") objexcel.Visible = True End Sub 

В вашем коде используется поздняя привязка. Но объектная модель Excel богата и сложна. Поэтому я думаю, вам будет лучше использовать раннее связывание во время разработки и тестирования. Таким образом, вы можете использовать Intellisense для руководства, и компилятор сможет более точно идентифицировать проблемы.

 Public Sub InitialConditions(FileName As String) '* enable these 4 lines for deployment ' Dim objexcel As Object ' Dim wbexcel As Object ' Dim objsheet As Object ' Set objexcel = CreateObject("excel.Application") '* enable these 4 lines for development and testing '* (requires reference to Excel Object Library) Dim objexcel As Excel.Application Dim wbexcel As Excel.Workbook Dim objsheet As Excel.Worksheet Set objexcel = New Excel.Workbook Set wbexcel = objexcel.Workbooks.Open(FileName) ' ActiveWorkbook.Sheets.Add ("Test") Set objsheet = wbexcel.Sheets.Add objsheet.Name = "Test" objexcel.Visible = True End Sub 

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

пытаться

 activeworkbook.sheets.add after:=activeworkbook.sheets(activeworkbook.sheets.count) activeworkbook.sheets(activeworkbook.sheets.count).Name = "Test" 
  • Сохранение CSV на месте теряет разделитель
  • Используйте код VBA, написанный для Excel в Access, чтобы автоматически заполнять формы PDF
  • Доступ. Прокрутите таблицу и найдите внешние ключи во второй таблице и объедините несколько полей в исходную таблицу.
  • Импорт формулы Excel в MS Access
  • Как объединиться в MS Access, VBA
  • Передняя часть Excel и конец доступа в Sharepoint
  • Перемещение данных из Word в Access легко
  • Преобразование контура ADODB в DAO
  • Excel / Access Соответствие уникальных комбинаций между листами и копирование соответственно
  • Как обращаться к панели отчетов с программным обеспечением в MS-Access 97
  • Метод Range.Find возвращает неожиданное значение
  • Давайте будем гением компьютера.