本文介绍几个vba中shell 函数的使用实例。
第一:shell 函数打开文件夹
Sub 打开D盘()
Shell "explorer.exe d:\应用软件\"
End Sub
解释:shell 函数打开D盘应用软件文件夹。
第二:shell 函数打开网站
Sub 超链接()
Shell "explorer.exe http://www.ittribalwo.com", vbMaximizedFocus
End Sub
解释:shell 函数直接打开IT部落窝网站。
第三:shell 函数打开控制面板
Sub 打开控制面板()
Shell "control.exe"
End Sub
解释:打开控制面板,也可以简写为: Shell"control"
第四:shell 函数打开计算器
Sub 计算器()
Shell "calc.exe" '计算器
End Sub
第五:shell 函数打开当前文件夹路径下的其余文件
Sub 打开当前文件夹路径下的文件()
mfile = Chr(34) & ThisWorkbook.Path & "\indirect函数解释" & Chr(34)
Shell "excel.exe " & mfile '注意excel.exe 后面的空格
End Sub
上面这段适用于2007和2010,下面这段代码适用于excel2003版本。
Sub myshell()
myfile = Chr(34) & ThisWorkbook.Path & "\indirect函数解释" & Chr(34)
Shell "excel.exe " & myfile
End Sub
Vba中shell函数的实例很多,文章只是罗列了几个shell函数常用的,供大家参考。