求助：在ACCESS中重命名excel工作表名称

已解决

Sub OpenxlBook()


    Dim xlApp As New Excel.Application   '声明EXCEL应用程序对象并加入New关键字实例化对象
 
    Dim xlBook As Excel.Workbook         '声明EXCEL工作簿对象
    
    Dim xlSheet As Excel.Worksheet       '声明Excel工作表对象
  
    Set xlBook = xlApp.Workbooks.Open("C:\1386387950821.xls")   '设置工作簿对象为指定的工作簿
    
    xlApp.Visible = False                '显示EXCEL应用程序"False/True"
    
    xlBook.Sheets("本单位（基本信息、服务产品、地址、联系人）").Name = "sxo"
    xlBook.Save                          '保存Excel文件
    xlBook.Close                         '关闭Excel文件
    xlApp.Quit                           '退应用程序并释放内存
    Set xlApp = Nothing
End Sub