如何用一个按钮打开指定的excel报表？

aydl1014 · 发表于 2002-7-18 02:56:00

提示: 作者被禁止或删除内容自动屏蔽

aydl1014 · 发表于 2002-7-20 06:11:00

提示: 作者被禁止或删除内容自动屏蔽

zhuyiwen · 发表于 2002-7-20 07:25:00

以下是引用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:00

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

你的要求好高哟！[em26]

aydl1014 · 发表于 2002-7-20 18:55:00

提示: 作者被禁止或删除内容自动屏蔽

zhuyiwen · 发表于 2002-7-20 19:33:00

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:00

其中的 True 表示自动打开。[em26]

aydl1014 · 发表于 2002-7-20 20:07:00

提示: 作者被禁止或删除内容自动屏蔽

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

aydl1014 aydl1014 当前离线技术点技术点 V币点积分 3834 IP卡狗仔卡	电梯直达 1^# 发表于 2002-7-18 02:56:00 \| 只看该作者 \|倒序浏览 \|阅读模式提示: 作者被禁止或删除内容自动屏蔽
	分享到: QQ好友和群 QQ空间腾讯微博腾讯朋友收藏0 分享淘帖0 订阅
	回复使用道具举报提升卡置顶卡沉默卡喧嚣卡变色卡抢沙发千斤顶显身卡

主题相关群

地区相关群[您还没设置居住地]

[报表] 如何用一个按钮打开指定的excel报表？

群介绍
主题无相 (随机显示版	同地区群块其他地区)

aydl1014 aydl1014 当前离线技术点技术点 V币点积分 3834 IP卡狗仔卡	2^# 楼主\| 发表于 2002-7-20 06:11:00 \| 只看该作者提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

aydl1014 aydl1014 当前离线技术点技术点 V币点积分 3834 IP卡狗仔卡	5^# 楼主\| 发表于 2002-7-20 18:55:00 \| 只看该作者提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

aydl1014 aydl1014 当前离线技术点技术点 V币点积分 3834 IP卡狗仔卡	8^# 楼主\| 发表于 2002-7-20 20:07:00 \| 只看该作者提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡