Question

这段代码对我来说效果很好，唯一的问题是，我打开的工作簿是一个相当大的文件，打开需要很长一段时间，这会减慢程序的启动速度。有什么方法可以加快速度吗？我打开的文件只会被过滤和读取，程序中没有写入任何内容，也不需要保存。有什么建议吗？

Application.ScreenUpdating = False

On Error Resume Next
Set xlWB = Workbooks.Open("\Item Setup\MODIFIED ITEM EXTRACT.xlsm")

Application.ScreenUpdating = True

PriceVerifier.Show

Answer 1

在DBPath中输入您自己的路径，在测试字段中输入您自己的字段，在手动输入中输入您自己的工作表。离开$尽管。

Sub sbADOExample()

    Dim sSQLQry As String
    Dim Conn As New ADODB.Recordset
    Dim rst As New ADODB.Recordset
    Dim DBPath As String
    Dim strConn As String
    Dim strSQL As String

    DBPath = "C:\user\testFile.xlsx"

    strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DBPath & ";" & _
               "Extended Properties=" & """" & "Excel 12.0 Xml;HDR=YES" & """;"

    strSQL = "SELECT [Test Field] FROM [Manual Entry$] "

    rst.Open strSQL, strConn

    Sheet2.Range("A2").CopyFromRecordset rst

    rst.Close

End Sub

加快Workbooks.Open在背景中

1 个答案: