注意 c:\a 目錄下的檔案不要太多,免得宕機 Sub 開啟excel表格() Dim myPath$, myFile$, AK As WorkbookApplication.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