Question

vba 打开指定路径的文件

在MS Project 里面我可以用commondialog来存放或者读取文件的文件名和路径。
但这路径我一般是放在某个变量里的 比如放在label1.caption里面
但是如何根据这存贮的路径自动打开文件？
我用了 openfile 函数 结果不行，是因为MS Project的缘故吗？

Answer 1

打开文件一般是用Open语句的
Open "C:\1.txt" for input As #1
........
Close #1

追问

这是后台打开吧 我想要窗口打开。

追答

哦，是不是你需要说的是，如何在vba中运行别的文件或者程序，就像在我的电脑中双击打开一样？是这个意思吗？

追问

是的。实际上我知道有个函数是这样的：
mOpen = shell ( " explorer.exe C:\book1.xls" , vbNormalFocus）
这函数运行就像是在窗口双击打开book1.xls工作簿一样。关键我不知道怎么把这文件路径改成 label1.caption （前提是 label1.caption = commondialog1.filename) 我各种尝试了结果都不行。

追答

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Function OpenURL(ByVal url As String)
    Dim lngReturn As Long
    lngReturn = ShellExecute(0, "open", url, "", Mid(URL, 1, InStrRev(url, "\") - 1), 1)
End Function

试试这个函数！

Answer 2

'openfile不是vb内置函数,filesystemObject倒是有个 opentextfile

label1.caption=Commmondialog1.filename
dim text as string
text=createObject("Scripting.filesystemObject").OpenTextFile(label1.caption).readAll