目的>有5000個新舊版本excel文件混雜一起,新版文件有"日報表 P3"頁,該頁[A2]="Show"
舊版文件里沒有"日報表 P3"頁.我要用字典把5000個文件分一分新舊版
執行一下test,第一次執行要3分鐘,甚至要6分鐘,如果再執行一次就只要1分鐘最多2分鐘
換掉5000個其他文件,又是第一次3分鐘,再執行一次1分鐘就完成了
請各位看看,究竟問題在哪兒呢?謝謝!
sub test
dim d as new Dictionary
for each f in (5000個文件的fullname的陣列)
d(f)=Benew(cstr(f))
next f
end sub
Function Benew(fl$) As Boolean
Dim Fname$, Fpath$, temp$, temp2
Fname = Mid(fl, InStrRev(fl, "\") + 1)''''文件名
Fpath = Replace(fl, Fname, "") '''''''''''''文件路徑(帶\)
On Error Resume Next
temp = "'" & Fpath & "[" & Fname & "日報表 P3'!R2C1"
temp2 = Application.ExecuteExcel4Macro(temp)
Benew = IIf(temp2 = "Show", True, False)
End Function |
發表於 2018-9-15 05:26
| 
