用Access vba将excel中的公式复制到最后一行

Dim xlApp As Object
Dim xlWorkbook As Object

Set xlApp = CreateObject("Excel.Application")
Set xlWorkbook = xlApp.Workbooks.Open("C:\路径\文件名.xlsx")

Dim xlWorksheet As Object
Dim lastRow As Long

Set xlWorksheet = xlWorkbook.Worksheets("工作表名称")
lastRow = xlWorksheet.Cells(xlWorksheet.Rows.Count, 1).End(-4162).Row ' -4162表示xlUp常量

xlWorksheet.Range("A" & lastRow + 1 & ":A" & lastRow + 1).Formula = xlWorksheet.Range("A1:A1").Formula

xlWorkbook.Close SaveChanges:=True ' 如果需要保存更改，设置SaveChanges参数为True
xlApp.Quit

Set xlWorksheet = Nothing
Set xlWorkbook = Nothing
Set xlApp = Nothing