如何在access中通过程序打开一个excel表

caoybh

谢谢大家出出主意 ;p

skylark

我可是天天在用:

这个试一下?

cg1

关于此主题请参考以下文章(不要只看标题，请认真仔细地察看上述文章以及相关的评论)：
    如何实现根据文件类型用系统默认程序打开文件？《VBA》
    [url=http://access911.net/index.asp?u1=a&u2=77FAB11E]http://access911.net/index.asp?u1=a&u2=77FAB11E[/url]



----------------------- 911 社区回帖个人签名 start -----------------------

[url=http://access911.net/csdn]http://access911.net/csdn[/url] 无须注册提供附件上传功能，如果你提问的时候有附件请到上述地址上传并将链接复制粘贴。

[url=http://access911.net/]http://access911.net[/url] 用 7 年时间整理了大量有关 Access 的原创资料，请有空的时候多用文章搜索功能

如果您有兴趣加入ACCESS编程的专项研究可以来QQ群“ACCESS上海研究班”看看，加入的方法请看这里《个性化的access911.net（七）QQ 群加入规则（专门讨论 ACCESS 的 ）》
[url=http://access911.net/?kbid]http://access911.net/?kbid;72FAB01E16DCECF3[/url]

----------------------- 911 社区回帖个人签名 end -----------------------

caoybh

用了一楼朋友的代码,但是出了这个错误哦

cg1

关于此主题请参考以下文章(不要只看标题，请认真仔细地察看上述文章以及相关的评论)：
    如何实现根据文件类型用系统默认程序打开文件？《VBA》
    http://access911.net/index.asp?u1=a&u2=77FAB11E







----------------------- 911 社区回帖个人签名 start -----------------------

http://access911.net/csdn 无须注册提供附件上传功能，如果你提问的时候有附件请到上述地址上传并将链接复制粘贴。

http://access911.net 用 7 年时间整理了大量有关 Access 的原创资料，请有空的时候多用文章搜索功能

如果您有兴趣加入ACCESS编程的专项研究可以来QQ群“ACCESS上海研究班”看看，加入的方法请看这里《个性化的access911.net（七）QQ 群加入规则（专门讨论 ACCESS 的 ）》
http://access911.net/?kbid;72FAB01E16DCECF3

----------------------- 911 社区回帖个人签名 end -----------------------

向上看呦！

skylark

Private Sub Command37_Click()
On Error GoTo Err_Command37_Click


Dim exFile As String, Shellstg As String
exFile = "C:\Documents and Settings\S_Man\My Documents\Test.xls"

'请注意引号的用法
   Shellstg = """C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE"" """ & exFile & """"
Call Shell(Shellstg, 1)


Exit_Command37_Click:
    Exit Sub

Err_Command37_Click:
    MsgBox Err.Description
    Resume Exit_Command37_Click
   
End Sub