VBA代码每天第一次运行缓慢

时间:2015-07-11 08:10:27

标签: excel performance vba excel-vba

我有一个问题,我认为这与网络驱动器有关,但现在我已经测试过,而不是问题。

有2000个文件(总计328MB)匹配,在测试中使用,任何时候运行它都需要大约1.4秒完成此操作,除了每天第一次,当它需要30秒到60秒时。< / p>

我认为Dir导致了这个问题,但它最终在循环中很慢。

文件缓存会导致此问题吗? 是否有更好的方法可以快速加载大量文件的第一行

'Get All Filenames
sAllFiles = Dir("C:\Folder\" & sFile & "??.???")

'Loop through each File
Do While Len(sAllFiles) > 0

    sCurrentFileName = sAllFiles
    sCurrentFilePath = "C:\Folder\" & sCurrentFileName

    'Read 1st line from each file
    Open sCurrentFilePath For Input As #1

        Line Input #1, sFirstLine

    Close #1

     vRowData = Split(sFirstLine, "~")
     '(Write data to array code here)

    sAllFiles = Dir

Loop

0 个答案:

没有答案