VBA中使用ADO程序运行过慢

Sub read_textfile() Const ForReading = 1, ForWriting = 2, ForAppending = 8 Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 Dim fileObj, fileInfo, retObj, strInfo, strPath As String Dim i, s As Integer Dim temp_jb As String Worksheets("sheet1")Activate Set fileObj = CreateObject("ScriptingFileSystemObject") strPath = "d:\java\aa1txt" '文本文件存放的位置 Set fileInfo = fileObjGetFile(strPath) Set retObj = fileInfoOpenAsTextStream(ForReading, TristateUseDefault) For i = 1 To 4 '文本文件的行数 strInfo = retObjReadLine Range("a" & i) = Mid(strInfo, 2, 14) '取每一行的第2个位置开始的14个字符 Next i

你只是说对了其中的一部分，因为excel的数据处理是通过XML语言加内置的处理函数进行的，XML对数据的处理效率不是很高的；而数据库系统，其本身已经对数据进行了一定范围的预处理，例如排序、索引等，而对其再进行处理时如果使用SQL语言，配合内置的函数，那么要比excel的效率高很多。

慢是因为公式在计算， 运算完才让你添加 或删除

代码 填加2句:就解决了

Private Sub btn3(filename, Dline)

ApplicationCalculation=xlCalculationManual '这里添加

SheetsAdd After:=Sheets(SheetsCount)

=================================

ApplicationDisplayAlerts = False

Sheets("temp")Delete '这里也会变慢

ApplicationCalculation=xlCalculationAutomatic '这里添加

以上就是关于VBA中使用ADO程序运行过慢全部的内容，包括:VBA中使用ADO程序运行过慢、EXCEL运算速度很慢，我是自定义VBA函数运算，非常慢。为什么说导入ACCESS数据库就可以变快、EXCEL的VBA，在执行大量工作时，开始很快，后面很慢。不知道如何解决。等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！