本文介紹幾個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.lukmueng.com/
本文標題：shell 函數常用實例寫法
相關文章
