Office中国论坛/Access中国论坛

标题: 如何用一个按钮打开指定的excel报表？ [打印本页]

作者: aydl1014 时间: 2002-7-18 02:56
提示: 作者被禁止或删除内容自动屏蔽

作者: aydl1014 时间: 2002-7-20 06:11
提示: 作者被禁止或删除内容自动屏蔽

作者: zhuyiwen 时间: 2002-7-20 07:25

以下是引用aydl1014在2002-7-19 22:11:02的发言：
是不是很难？怎么没有帮我呢？

　　Dim exDoc As Object
　　
　　If Dir("你的EXCEL文件.xls") <> "" Then
　　　　Set exDoc = CreateObject("Excel.Application")
　　　　exDoc.Visible = True
　　　　exDoc.WorkBooks.Open "你的EXCEL文件.xls"
　　End If
[em26]

作者: zhuyiwen 时间: 2002-7-20 07:26

以下是引用aydl1014在2002-7-17 18:55:40的发言：
如用代码，请详细写出！

你的要求好高哟！[em26]

作者: aydl1014 时间: 2002-7-20 18:55
提示: 作者被禁止或删除内容自动屏蔽

作者: zhuyiwen 时间: 2002-7-20 19:33
Private Sub Command0_Click()
On Error GoTo Err_Command0_Click

DoCmd.OutputTo acOutputTable, "你的数据表名", acFormatXLS, "你导出EXCEL文件名.xls", True

Exit_Command0_Click:
Exit Sub

Err_Command0_Click:
MsgBox Err.Description
Resume Exit_Command0_Click

End Sub
[em26]

作者: zhuyiwen 时间: 2002-7-20 19:35
其中的 True 表示自动打开。[em26]

作者: aydl1014 时间: 2002-7-20 20:07
提示: 作者被禁止或删除内容自动屏蔽

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