EXCEL文件读取效率慢

散叶

需要读取几千个excel文件，用以下代码一个个读取效率有些慢，求助各位大神提供更高效的办法。
Dim dataExcel As Object, cWK As Workbook, Sht As Worksheet
Set dataExcel = CreateObject("Excel.application")
Application.EnableEvents = False
Set cWK = dataExcel.Workbooks.Open(folderPath + "\file.xlsx")
Application.EnableEvents = True
Set Sht = cWK.Worksheets(1)
set dataExcel = nothing
cWK.Close False

ww87725244

几千个，打开-关闭，重复操作，肯定慢
关键你读取EXCEL什么数据，每个文件格式一样吗？

ykcbf1100

先摸拟一个附件上传看看。

taller

禁止屏幕更新，使用同一个Excel App打开多个Excel，循环之后再关闭App
当然这只是某种程度上加快一些代码运行速度。

1. Dim dataExcel As Object, cWK As Workbook, Sht As Worksheet
   
2. Set dataExcel = CreateObject("Excel.application")
   
3. Application.EnableEvents = False
   
4. Application.ScreenUpdating = False
   
5. For i=1 to 100
   
6.     Set cWK = dataExcel.Workbooks.Open(folderPath + "\file" & i & ".xlsx")
   
7.     Set Sht = cWK.Worksheets(1)
   
8.     cWK.Close False
   
9. Next
   
10. Application.ScreenUpdating = True
    
11. Application.EnableEvents = True
    
12. set dataExcel = nothing

复制代码

z865593849

使用ADO不打开文件读取

散叶

ww87725244 发表于 2024-9-29 20:36
几千个，打开-关闭，重复操作，肯定慢
关键你读取EXCEL什么数据，每个文件格式一样吗？

excel文件格式都一样，取固定sheet的固定内容。

散叶

taller 发表于 2024-9-30 07:14
禁止屏幕更新，使用同一个Excel App打开多个Excel，循环之后再关闭App
当然这只是某种程度上加快一些代码 ...

有作用，快一点点。