用 VBA 來打開 Explorer

　　　　　
VBA 要解決的工作，是每天要開啟許多由其他同事建立的檔案，
然後從中擷取資料、整理、分析及做報表。

難題是，那些「檔案」真的是已經建立？又還是用錯了檔案名？

一般而言，我是用以下的程式碼檢查一下，發覺有問題時，便出個
視窗並警告一下。

　tFileName = "C:\TEMP\" & "mPit20100323.xls"

　If Len(Dir(tFileName)) Then
　　　　Workbooks.Open Filename:=tFileName ', ReadOnly:=True
　Else
　　　　MsgBox "找不到 " & tFileName & " ，請檢查！ "
　　　　Exit Sub
　End If
　
當然有更好的做法，便是直接開啟 explorer 來查看。

以下是我在網上找到的程式碼。


Sub sub_OpenFolder()

　　Dim str_folder As String
　　str_folder = "C:\Temp" ' folder to open
　　Call Shell("explorer.exe " & str_folder, vbNormalFocus)

End Sub