Office中国论坛/Access中国论坛

标题: 请各位老师帮助写一段代码（一个命令）：用于执行将数据透视表子窗体导出到EXCEL中格 [打印本页]

作者: yanwei82123300 时间: 2011-9-6 20:22
标题: 请各位老师帮助写一段代码（一个命令）：用于执行将数据透视表子窗体导出到EXCEL中格

请各位老师帮助写一段代码（一个命令）：用于执行将数据透视表子窗体导出到EXCEL中格式不变。

我刚刚搜了论坛没有合适的代码，因为格式的原因，我现在只能通过对子窗体进行ctril+c复制,再打开excel ctril+v粘贴。
相关问题&图片

谢谢大家了，比较急！！

作者: yanghua1900363 时间: 2011-9-24 17:26
Private Sub cmd导出_Click()
On Error GoTo Err_cmd导出_Click
'刘小军(Alex) 2003-5-22
'这里将使用DAO来改变查询的SQL语句，必须先在“工具”→“引用”中选择
'Microsoft DAO 3.6 Object Library.
'＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

Dim qdf As DAO.QueryDef 'qdf被定义为一个查询定义对象
Dim strWhere, strSQL As String

strWhere = Me.存书查询子窗体.Form.Filter
If strWhere = "" Then
      '没有条件
      strSQL = "SELECT * FROM [存书查询]"
Else
      '有条件
      strSQL = "SELECT * FROM [存书查询] WHERE " & strWhere
End If

Set qdf = CurrentDb.QueryDefs("查询结果")
qdf.SQL = strSQL
qdf.Close

Set qdf = Nothing

DoCmd.OutputTo acOutputQuery, "查询结果", acFormatXLS, , True

Exit_cmd导出_Click:
Exit Sub

Err_cmd导出_Click:
MsgBox Err.Description
Resume Exit_cmd导出_Click

End Sub

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)