Доступ с использованием ExceL VBA для форматирования данных в виде таблицы Excel

См. Этот вопрос . В нем показано решение для форматирования данных excel в виде таблицы в Excel.

Код

Sub A_SelectAllMakeTable() Dim tbl As ListObject Dim rng As Range Set rng = Range(Range("A1"), Range("A1").SpecialCells(xlLastCell)) Set tbl = ActiveSheet.ListObjects.Add(xlSrcRange, rng, , xlYes) tbl.TableStyle = "TableStyleMedium15" End Sub 

Я пытаюсь использовать этот код в Access VBA, где я создаю выходной файл Excel с данными Access, тогда я хочу отформатировать его аналогичным образом. Вот мой код.

 Dim objXL As Object Dim objWorkbook As Object Dim objWorkSheet As Object Dim sourcefilepath As String Dim tbl As ListObject Dim rng As Range Set objXL = New Excel.Application objXL.Application.Visible = False sourcefilepath = Application.CurrentProject.Path & "\CF Break Report " & Format(Date, "mm-dd-yy") & ".xls" Set objWorkbook = objXL.Application.Workbooks.Open(FileName:=sourcefilepath) Set objWorkSheet = objWorkbook.Worksheets("_400_CF_BREAK_LOG") Set rng = objWorkSheet.Range(Range("A1"), ActiveCell.SpecialCells(xlLastCell)) Set tbl = objWorkSheet.ListObjects.Add(xlSrcRange, rng, , xlYes) tbl.TableStyle = "TableStyleMedium2" 

Обновление: строка, которая не работает, является

  Set rng = objWorkSheet.Range(Range("A1"), ActiveCell.SpecialCells(xlLastCell)) 

С ошибкой «определенная пользователем или объектно-ориентированная ошибка

Пытаться:

Set rng = objWorkSheet.Range(objWorkSheet.Range("A1"), ActiveCell.SpecialCells(xlLastCell))

Работал для меня.

Найден ответ, скрытый здесь

 With xlWB.Sheets("Summary") Set rng = .Cells(1, 1).CurrentRegion End With Set tbl = xlWS.ListObjects.Add(xlSrcRange, rng, , xlYes) tbl.TableStyle = "TableStyleMedium2" tbl.ShowTotals = True 
  • Добавление условия форматирования в Excel через Access VBA
  • Оператор Excel VBA INSERT INTO с использованием переменных
  • Как перенести файл Excel в базу данных с помощью vb.net?
  • Запрос для определения изменений в наборе данных?
  • Импортировать всю папку файлов Excel в Access 2013
  • UDF для извлечения данных из базы данных доступа
  • Excel 2016 Устанавливаемый ISAM
  • Используйте код VBA, написанный для Excel в Access, чтобы автоматически заполнять формы PDF
  • Лист запроса Excel в MS-Access VBA (с использованием набора записей ADODB)
  • 3027 «Невозможно обновить. База данных или объект доступны только для чтения ». После использования таблицы make из excel
  • Экспорт листа Excel в Access через ADODB непоследовательное поведение
  • Interesting Posts

    Лучший метод источника данных с несколькими запущенными приложениями

    Как устранить неисправность формулы FREQUENCY для индексирования уникальных значений в массиве?

    Выпадающий список

    Как игнорировать пустые строки с использованием фляжки при импорте из xlsx?

    Определенное приложение – или объект – определяет ошибку при добавлении формулы в VBA

    Экспорт условных границ в Excel в SSRS

    Среднее значение DAX, включая нули

    Сохранение строк в AutoFilter Row Numbers с помощью VBA

    Заставить COM-сервер оставаться открытым

    Используйте VBA Userform для обновления активной строки.

    Excel нашел нечитаемый контент в * .xslx

    Проверьте, были ли поставки получены путем проверки значений по сравнению с другой книгой?

    доступ к excel как базе данных с помощью jdbc

    Выберите несколько строк данных, используя условие в одном столбце и каждой строке.

    Итерация Через строки в Excel

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