Попытка использовать модуль MS Access для вставки строк при изменении данных в "столбце A"

Question

Я искал в Интернете большую часть дня и не могу найти решение своей проблемы. У меня есть данные, поступающие из отчета, и я делаю некоторые манипуляции с данными в Access 2016 и отправляю их обратно в Excel.

Я пытаюсь использовать модуль Access для разделения данных, чтобы он обеспечивал интервал между строками изменяющихся данных столбца А. Я довольно новичок во всей области программирования, поэтому я прошу прощения, если код немного не в порядке.

Приведенный ниже код выдает ошибку "Ошибка во время выполнения" 424 ": требуется объект". Я просто не уверен, куда идти дальше. Ошибка происходит в строке:

r = xlApp.Sheets (Pen_105_List_PenetrationWithFin).Cells (Rows.Count, "A"). End (xlUp).Row

Я ценю ваше руководство.

Function FixExcel()


Dim xlApp As Object
Dim xlBook As Object
Dim r As Long
Dim mcol As String
Dim i As Long
Dim ws As Long

Set xlApp = CreateObject("Excel.Application")

xlApp.DisplayAlerts = False
xlApp.DisplayAlerts = False
xlApp.Visible = False

Set xlBook = xlApp.Workbooks.Open("\\iocc- 
web01\dcs\WorkForceDB\NICC\DailyListPen" & Format(Date, "mm-dd-yyyy") & 
".xlsx")


' find last used cell in Column A
r = xlApp.Sheets(Pen_105_List_PenetrationWithFin).Cells(Rows.Count, 
"A").End(xlUp).Row

' get value of  last used cell in column A
mcol = xlApp.Sheets(Pen_105_List_PenetrationWithFin).Cells(r, 1).Value

' insert rows by looping from bottom
  For i = r To 2 Step -1
     If xlApp.Sheets(Pen_105_List_PenetrationWithFin).Cells(i, 1).Value <> 
        mcol Then
       mcol = xlApp.Sheets(Pen_105_List_PenetrationWithFin).Cells(i, 
       1).Value
        xlApp.Sheets(Pen_105_List_PenetrationWithFin).Rows(i + 1).Insert
        xlApp.Sheets(Pen_105_List_PenetrationWithFin).Rows(i + 1).Insert
     End If
  Next i

xlBook.SaveAs "\\iocc-web01\dcs\WorkForceDB\NICC\DailyListPen" & 
Format(Date, "mm-dd-yyyy") & ".xlsx"

 xlBook.Close
 xlApp.Quit

 Set xlBook = Nothing
 Set xlApp = Nothing

End Function