將wb標註為工作簿
將我的路徑顯示為字符串
將我的文件隱藏為字符串
將我的擴展名顯示為字符串
將FldrPicker調成文件對話框
這裏是關鍵，決定宏執行速度的關鍵。
申請。ScreenUpdating = False
申請。EnableEvents = False
申請。計算= xlCalculationManual
打開目錄選擇框。
設置FldrPicker = Application。文件對話框(msoFileDialogFolderPicker)
使用FldrPicker
。Title = "請選擇壹個目錄"
。AllowMultiSelect = False
如果。顯示& lt& gt-1然後轉到下壹個代碼
我的路徑=。SelectedItems(1)amp；"\"
以…結尾
取消選擇
下壹代碼:
我的路徑=我的路徑
如果myPath = " "則轉到重置設置
指定過濾後的文件後綴。
myExtension = "*。xls* "
遍歷整個路徑。
my file = Dir(my path & amp；我的延伸)
循環瀏覽每個文件。
當我的文件& lt& gt""
打開
設置wb = Workbooks。打開(文件名:= myPath & amp我的文件)
在處理下壹個文件時，確保工作簿已打開。
多項活動
設置背景顏色。
wb。工作表(1)。range(" a 1:z 1 ")interior . color = RGB(51，98，174)。
保存工作簿
wb。關閉保存更改:=True
處理下壹個文件時，確保工作簿已關閉。
多項活動
繼續下壹個。
myFile = Dir
環
提示處理完成
MsgBox "處理完成！"
重置設置:
恢復設置
申請。EnableEvents = True
申請。計算= xlCalculationAutomatic
申請。ScreenUpdating = True
末端接頭