1、点击对话框下菜单,点击打开文件对话框。
2、点击FileName控件,设置FileName文件名。
3、然后在这里设置对象可见性的级别。
4、点击Title选项,设置标题的名称。
5、按F8开始单步调试代码,点击Command2,进入单步调试功能。
6、多次按下F8或直接按下F5运行完成,就完成了读取文本文件内容并输出到立即窗口。
这个可以打开所在目录的文件夹Shell
"explorer.exe
"
&
Chr(34)
&
app.Path
&
Chr(34),
vbNormalFocus
这个可以打开任意路径的文件夹
Shell
"explorer.exe
"
&
Chr(34)
&
"你要打开的文件夹路径"
&
Chr(34),
_
vbNormalFocus
sub command1_click()dim mypath
mypath = inputbox("请输入文件夹的完整路径")
shell "explorer.exe " &chr(34) &mypath &chr(34) ,vbnormalfocus
end sub
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)