MS Access vba删除excel工作表(2010)

Sub DeleteWorksheet()
    Dim xlApp As Object
    Dim xlWorkbook As Object
    Dim xlWorksheet As Object
    
    ' 创建Excel应用对象
    Set xlApp = CreateObject("Excel.Application")
    
    ' 打开Excel工作簿
    Set xlWorkbook = xlApp.Workbooks.Open("C:\路径\文件名.xlsx")
    
    ' 获取要删除的工作表
    Set xlWorksheet = xlWorkbook.Worksheets("工作表名称")
    
    ' 删除工作表
    xlWorksheet.Delete
    
    ' 保存并关闭工作簿
    xlWorkbook.Save
    xlWorkbook.Close
    
    ' 退出Excel应用
    xlApp.Quit
    
    ' 释放对象
    Set xlWorksheet = Nothing
    Set xlWorkbook = Nothing
    Set xlApp = Nothing
End Sub