注意 c:\a 目錄下的檔案不要太多,免得宕機 Sub 開啟excel表格() Dim myPath$, myFile$, AK As Workbook

Application.ScreenUpdating

= False "凍結螢幕，以防螢幕抖動 myPath = "c:\a\" "把檔案路徑定義給變數 myFile = Dir(myPath & "*.xls") "依次找尋指定路徑中的*

.xls

檔案 Do While myFile <> "" "當指定路徑中有檔案時進行迴圈 If myFile <>

ThisWorkbook.Name

Then Set AK = Workbooks.Open(myPath & myFile) "開啟符合要求的檔案 End If myFile = Dir "找尋下一個*

.xls

檔案 Loop

Application.ScreenUpdating

= True "凍結螢幕,此類語句一般成對使用 End Sub