关于Access导出EXCEL的问题求助

jamieyang

我现是一个主窗口和子窗口,见下图:



现在主窗体上有个导出EXCEL按钮,按钮单击事件代码如下:

Private Sub Command34_Click()
On Error GoTo Err_Command34_Click

Dim Qdf As DAO.QueryDef, strSQL As String

strSQL = "SELECT Q_SHPreview.* FROM Q_SHPreview"
If Me.F_MOHZPreviewWindow.Form.FilterOn = True And Me.F_MOHZPreviewWindow.Form.Filter <> "" Then
   strSQL = strSQL & " Where " & Me.F_MOHZPreviewWindow.Form.Filter
End If
     CurrentDb.CreateQueryDef "Q_SHPreview_01"
    Set Qdf = CurrentDb.QueryDefs("Q_SHPreview_01")
    Qdf.sql = strSQL
    Qdf.Close
    Set Qdf = Nothing
    DoCmd.OutputTo acOutputQuery, "Q_SHPreview_01", acFormatXLS, , True
    DoCmd.DeleteObject acQuery, "Q_SHPreview_01"
   
Exit_Command34_Click:
    Exit Sub

Err_Command34_Click:
   Select Case Err.Number
    Case 3012
     Resume Next
    Case Else
    MsgBox Err.Number & "  " & Err.Description
    Resume Exit_Command34_Click
    End Select
End Sub
直接点导出可导出所有数据,也可点前面筛选导出部份数据,现在不筛选是默认导出所有数据,但点导出时提示:2306 输出的行太多,超出了输出格式或 PO管理系统 所做的限制.

也就是说行太多了,但我查看过表,总计三万多行不到,EXCEL应该是可以放下的,而且我试过在表里直接右键导出是没问题的,另外导出时我查看默认导出类型是Microsoft Excel 5-7 (*.xls),而不是Microsoft Excel 97-2003(*.xls),我想问题应该出在这里,但唯一可查的就是导出按钮的单击事件代码,也就是以上代码,请大家帮我查查是什么问题,如何改???



如果实在没办法,就干脆在主窗口上再加多一个导出按钮,可以直接导出所有数据的功能,请问这个代码怎么写????

[此贴子已经被作者于2006-11-10 9:13:09编辑过]

van_zeng

直接导出所有数据的代码

Private Sub Command33_Click()    'command33是导出键
On Error GoTo Err_Command33_Click

  Me.子窗体.SetFocus    '把焦点移动子窗体上
  
    DoCmd.RunCommand acCmdSelectAllRecords
    DoCmd.RunCommand acCmdCopy
  
    Dim obj As Object
    Set obj = CreateObject("Excel.Application")
    obj.Workbooks.Add
    obj.Visible = True
    SendKeys "^v"

Exit_Command33_Click:
    Exit Sub

Err_Command33_Click:
    MsgBox Err.Description
    Resume Exit_Command33_Click

End Sub

静儿

DoCmd.OutputTo acOutputQuery, "Q_SHPreview_01", acFormatXLS, , True

将"acFormatXLS"改为:"MicrosoftExcelBiff8(*.xls)"  看看?

jamieyang

已搞定,将acFormatXLS改为acFormat,然后导出时就会提示导出类型,不仅有97-2003选择,还有HTML,TXT等选择类型导出.

OK,还是谢谢大家.

老虾米

谢了，我也遇到了这样的问题，一并解决了！

huiyi88

我是用宏直接导出就OK，

csl591

请问用宏怎么导出?

xluuu

同问