下面是一个打开文件的一种方法: Sub Openfile(str As String) '功能:打开文件 '参数:str--->路径和文件名 '示例1:Openfile("C:\test.xlsx") '示例2:Openfile("C:\test.text") If Dir(str) <> "" Then '判断文件是否存在,存在,则将其打开cgy2011-5-2 Application.FollowHyperlink str End If End Sub |
欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) | Powered by Discuz! X3.3 |