zzz8662 发表于 2004-7-10 21:43:00

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

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

mccad 发表于 2004-7-10 22:00:00

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

zzz8662 发表于 2004-7-10 22:18:00

谢谢了！

斗谷 发表于 2005-4-20 17:56:00

mccad发表于2004-7-10 22:00:00static/image/common/back.gifShell \"NOTEPAD.EXE 你要打开的文件名\"


<BR>实现不了


我用函数x=shell("……\notepad.exe 要打开的文件名（包括详细的绝对路径）",1)执行，结果因为文件名中有空格，程序老提示找不到相应的文件……


请教各位大虾，是不是因为我上面的格式错误而不能执行啊？

cobalt 发表于 2005-4-20 19:07:00

没有碰到过Shell不支持含有空格的文件名的情况，起码我没有碰到。<BR>如果你实在没有办法，取得这个文件名的短文件名后试着用Shell调用看看？Good luck.


<BR>方法一：API函数GetShortPathName<BR>方法二：自编的函数<BR>Public Function GetShortFileName(File as String) as String <BR>        Dim fso As FileSystemObject<BR>        Dim fsoFile As File<BR>        Set fso = New FileSystemObject<BR>        Set fsoFile = fso.GetFile(File)<BR>        GetShortFileName=fsoFile.ShortPath<BR>        Set fsoFile = Nothing<BR>        Set fso = Nothing<BR>End Function<BR>
页: [1]
查看完整版本: [求助]VBA中怎样打开文本文件