用ACCESS导出EXCEL表格
PrivateSubCommand85_Click()'生成EXCEL表
DimexFileAsString,ShellstgAsString
'导出[XX中学摸底成绩]
DoCmd.TransferSpreadsheetacExport,8,Me.Combo69&"摸底成绩",CurrentProject.Path&"\"&Me.Combo69,False,""
'导出[XX中学]成绩
DoCmd.TransferSpreadsheetacExport,8,Me.Combo69,CurrentProject.Path&"\"&Me.Combo69,False,""
'导出[XX中学摸底单科]
SQL="Select"&Me.Combo69&".*"
SQL=SQL+"FROM"&Me.Combo69&"摸底成绩INNERJOIN"&Me.Combo69&"ON"&Me.Combo69&"摸底成绩.姓名="&Me.Combo69&".姓名"
SQL=SQL+"orDERBY"&Me.Combo69&"摸底成绩.总分DESC;"
'建立[XX中学摸底单科]查询
OnErrorResumeNext
Setqdf=CurrentDb.CreateQueryDef(Me.Combo69&"摸底单科",SQL)'[XX中学摸底单科]
'导出[XX中学摸底单科]
DoCmd.TransferSpreadsheetacExport,8,Me.Combo69&"摸底单科",CurrentProject.Path&"\"&Me.Combo69,False,""
DoCmd.Close
''请注意引号的用法
Shellstg="""c:\ProgramFiles\MicrosoftOffice\OFFICE11\EXCEL.EXE"""""&CurrentProject.Path&"\招生.XLS"&""""
CallShell(Shellstg,1)
EndSub