shell 函数常用实例写法

本文介绍几个vba中shell函数的使用实例。

第一：shell函数打开文件夹

Sub打开D盘()
Shell"explorer.exed:\应用软件\"
EndSub
解释：shell函数打开D盘应用软件文件夹。

第二：shell函数打开网站

Sub超链接()
   Shell"explorer.exehttp://www.ittribalwo.com",vbMaximizedFocus
EndSub
解释：shell函数直接打开IT部落窝网站。

第三：shell函数打开控制面板

Sub打开控制面板()
Shell"control.exe"
EndSub
解释：打开控制面板，也可以简写为：Shell"control"

第四：shell函数打开计算器

Sub计算器()
Shell"calc.exe"  '计算器
EndSub

第五：shell函数打开当前文件夹路径下的其余文件

Sub打开当前文件夹路径下的文件()
   mfile=Chr(34)&ThisWorkbook.Path&"\indirect函数解释"&Chr(34)
   Shell"excel.exe  "&mfile'注意excel.exe  后面的空格
EndSub

上面这段适用于2007和2010，下面这段代码适用于excel2003版本。

Submyshell()
myfile=Chr(34)&ThisWorkbook.Path&"\indirect函数解释"&Chr(34)
Shell"excel.exe  "&myfile
EndSub

Vba中shell函数的实例很多，文章只是罗列了几个shell函数常用的，供大家参考。