主页 / computer / 问题 / 1613236
Accepted
Naz
Asked: 2020-12-29 08:25:17 +0800 CST

Microsoft Excel 代码运行缓慢

  • 772

我有以下代码将工作簿中的对象列出到另一个工作簿中；

For Each ws In mainworkBook.Sheets
    
    For Each includedObjects In ws.Shapes

        outputBook.Sheets("Sheet1").Range("A" & i) = ws.Name
        outputBook.Sheets("Sheet1").Range("B" & i) = TypeName(includedObjects)
        outputBook.Sheets("Sheet1").Range("C" & i) = includedObjects.Name
        i = i + 1
        
    Next
        
Next

但是，这需要 5 分钟才能运行并列出大约 2500 个对象。但是这个输出到 CSV 文件的代码只需要几秒钟就可以得到相同的结果。

objFile.writeline "Sheet, Object Type, Object name"
For Each ws In ActiveWorkbook.Sheets
    For Each includedObjects In ws.Shapes
        objFile.writeline ws.Name & "," & TypeName(includedObjects) & "," & includedObjects.Name
    Next
Next

如何改进第一个代码以使其运行得更快？

microsoft-excel

1 个回答

  1. Best Answer

    这应该更快一些：

    Dim arr(1 To 9999, 1 To 3) As String
Dim i As Long
i = 1
For Each ws In mainworkBook.Sheets
    For Each includedObjects In ws.Shapes
        arr(i, 1) = ws.Name
        arr(i, 2) = TypeName(includedObjects)
        arr(i, 3) = includedObjects.Name
        i = i + 1
    Next
Next

outputBook.Sheets("Sheet1").Range("A1:C9999") = arr

    （如果9999不够用，就加大）

    笔记：

    1. 因为您对速度感兴趣，所以我们使用“超大”静态数组而不是动态数组。
    2. 该代码仅“接触”一次工作表。
    • 1

相关问题