Private Function OpenPath(strPath As String) As Long
strPath = Chr(34) & Chr(34) & " " & Chr(34) & strPath & Chr(34)
OpenPath = Shell("cmd.exe /c Start " & strPath, vbHide)
End Function
ä¸é¢æ¯æåçä¸ä¸ªå½æ°ï¼ä¼ç¨å§ï¼
æå¼è·¯å¾ï¼OpenPath "C:\Program Files"
æå¼æ件ï¼OpenPath "D:\123\Excel.xls"
温馨提示:答案为网友推荐,仅供参考