On Error Resume Next
Dim xlsApp As Object
Dim xlsWBook As Object
Dim xlsWSheet As Object
DoCmd.Hourglass True
Set xlsApp = CreateObject("Excel.Application")
Set xlsWBook = xlsApp.Workbooks.Add(CurrentProject.Path & "\MonthTemplate.xlt") '使用模板打开
Set xlsWSheet = xlsWBook.ActiveSheet