本文介绍几个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函数常用的，供大家参考。
核心关注：拓步ERP系统平台是覆盖了众多的业务领域、行业应用，蕴涵了丰富的ERP管理思想，集成了ERP软件业务管理理念，功能涉及供应链、成本、制造、CRM、HR等众多业务领域的管理，全面涵盖了企业关注ERP管理系统的核心领域，是众多中小企业信息化建设首选的ERP管理软件信赖品牌。
转载请注明出处：拓步ERP资讯网http://www.toberp.com/
本文标题：shell 函数常用实例写法
相关文章
