Доступ с использованием 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, тогда я хочу отформатировать его аналогичным образом. Вот мой код.

• Простой запрос в наборе данных объемом 2,5 миллиона записей
• SUM только разные значения при определенных критериях SQL
• Создайте таблицу Excel, которая активно изменяет базу данных доступа
• Выбор диапазона для применения границ - Доступ к VBA
• как вставить новую строку, такую ​​как функции Excel в MS 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)) 

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

 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