如何打开变量地址的XX文件

mclly2000

请问打开指定路径的文件怎么写，用下面这个代码好像不能加[CurrentProject].[Path]，我想引个变量的地址，请群里老师帮帮忙，怎么写，谢谢

笑嘻嘻哦

变量地址如何找呢

roych

1. Function OpenFile(strPath As String)
   
2. Dim s As String
   
3. '这里用了转义字符，请留意双引号的使用。
   
4. s = """explorer.exe""" & """" & strPath & """"
   
5. Shell s, vbNormalFocus
   
6. End Function

复制代码

调用方法：
a、在宏利用RunCode  OpenFile("D:\价格10000.xls")
b、在按钮的单击事件或者其它控件是事件过程中 Call OpenFile("D:\价格10000.xls")
我试了下，但并没有打开excel文件，倒是打开了“我的文档”，可能应该用excel程序才能打得开的吧？不过这不在我的讨论范围之内了。

mclly2000

roych 发表于 2013-1-24 11:25
调用方法：
a、在宏利用RunCode  OpenFile("D:\价格10000.xls")
b、在按钮的单击事件或者其它控件是事件过 ...

谢谢您的回复