用 ACCESS 导出 EXCEL 表格的方法
下文和大家分享用 ACCESS 导出 EXCEL 表格的方法，具体步骤如下， 让我们一起来看看吧~ Private Sub Command85_Click() ‘生成 EXCEL 表 Dim exFile As String, Shellstg As String ‘导出[XX 中学摸底成绩] DoCmd.TransferSpreadsheet acExport, 8, bo69 & “摸底成绩”, CurrentProject.Path & “\” & bo69, False, ““ ‘导出[XX 中学]成绩 DoCmd.TransferSpreadsheet acExport, 8, bo69, CurrentProject.Path & “\” & bo69, False, ““ ‘导出[XX 中学摸底单科] SQL = “Select “ & bo69 & “.*” SQL = SQL + “ FROM “ & bo69 & “摸底成绩 INNER
Call Shell(Shellstg, 1) End 望给您带 来帮助!
JOIN “ & bo69 & “ ON “ & bo69 & “摸底成 绩.姓名 = “ & bo69 & “.姓名” SQL = SQL + “ orDER BY “ & bo69 & “摸底成绩.总分 DESC;” ‘建立[XX 中学摸底单科]查询 On Error Resume Next Set qdf = CurrentDb.CreateQueryDef(bo69 & “摸底单科”, SQL) ‘[XX 中学摸底单科] ‘导出[XX 中学摸底单科] DoCmd.TransferSpreadsheet acExport, 8, bo69 & “摸底单科”, CurrentProject.Path & “\” & bo69, False, ““ DoCmd.Close ‘‘请注意引号的用法 Shellstg = “““c:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE”“ “““ & CurrentProject.Path & “\招生.XLS” & ““““