从MS Access在VBA中设置Excel表格底部的小计

Sub SetExcelSubtotals()
    Dim xlApp As Object
    Dim xlWorkbook As Object
    Dim xlWorksheet As Object
    Dim xlRange As Object
    
    ' 创建Excel应用程序对象
    Set xlApp = CreateObject("Excel.Application")
    
    ' 打开Excel文件
    Set xlWorkbook = xlApp.Workbooks.Open("C:\path\to\your\excel\file.xlsx")
    
    ' 选择要操作的工作表
    Set xlWorksheet = xlWorkbook.Worksheets("Sheet1")
    
    ' 选择要设置小计的范围
    Set xlRange = xlWorksheet.Range("A1:C10")
    
    ' 设置小计
    xlRange.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(2, 3)
    
    ' 保存并关闭Excel文件
    xlWorkbook.Save
    xlWorkbook.Close
    
    ' 退出Excel应用程序
    xlApp.Quit
    
    ' 释放对象
    Set xlRange = Nothing
    Set xlWorksheet = Nothing
    Set xlWorkbook = Nothing
    Set xlApp = Nothing
End Sub