[求助]VBA中怎样打开文本文件

zzz8662

在VBA中的userform上，点击命令按钮后把文本文件打开，怎样实现？

mccad

Shell "NOTEPAD.EXE 你要打开的文件名"

zzz8662

谢谢了！

斗谷

mccad发表于2004-7-10 22:00:00Shell \"NOTEPAD.EXE 你要打开的文件名\"

实现不了 我用函数x=shell("……\notepad.exe 要打开的文件名（包括详细的绝对路径）",1)执行，结果因为文件名中有空格，程序老提示找不到相应的文件…… 请教各位大虾，是不是因为我上面的格式错误而不能执行啊？

cobalt

没有碰到过Shell不支持含有空格的文件名的情况，起码我没有碰到。
如果你实在没有办法，取得这个文件名的短文件名后试着用Shell调用看看？Good luck.
方法一：API函数GetShortPathName
方法二：自编的函数
Public Function GetShortFileName(File as String) as String
Dim fso As FileSystemObject
Dim fsoFile As File
Set fso = New FileSystemObject
Set fsoFile = fso.GetFile(File)
GetShortFileName=fsoFile.ShortPath
Set fsoFile = Nothing
Set fso = Nothing
End Function