主要目的是将符合该条件的数据导出到EXCEL
在论坛里搜索了一下,收获不是很大。。。
Private Sub Comfahuo_Click()
On Error GoTo Err_Comfahuo_Click
Dim stDocName As String
stDocName = "fahuo"
'me![起始日期]
'me![终止日期]
'me![销售员]
DoCmd.OpenStoredProcedure stDocName, acViewNormal
DoCmd.RunCommand acCmdOutputToExcel
DoCmd.Close
Exit_Comfahuo_Click:
Exit Sub
Err_Comfahuo_Click:
MsgBox Err.Description
Resume Exit_Comfahuo_Click
End Sub