加快数据提取到 Excel

Question

我目前正在使用 VBA 来运行存储过程和已提取到表中的存储数据。然后，VBA会相应地查询数据中的所有数据，并放入excel中。

这里的问题是，VBA 需要很长时间才能将所有数据（大约 10 万行数据）提取到 excel 中。有没有其他方法可以加快这个过程？以下是我的代码的一部分。粗体部分是插入到excel代码中。

'Row number where data inserting starts
        Do
            current_sheet = owb.ActiveSheet

            With current_sheet
                'Insert header to worksheet in first row, ie. A1, B1, C1
                For i = 0 To data_cols.GetLength(0) - 1
                    cell = data_cols(i, 0) & header_row_num 'Change to header_row_num
                    .Range(cell).Value = data_cols(i, 1)
                Next i
            End With

            row_count = header_row_num + 1 'Change the first row count to a row after header_row_num
            'Insert data to worksheet
            While rs.EOF = False

                With current_sheet
                    'Set format of specic columns before inserting data

                    .Columns("A").NumberFormat = "@"

                    .Columns("B").NumberFormat = "@"

                    .Columns("C").NumberFormat = "@"

                    .Columns("D").NumberFormat = "@"

                    .Columns("E").NumberFormat = "@"

                    .Columns("F").NumberFormat = "@"

                    .Columns("G").NumberFormat = "@"

                    .Columns("H").NumberFormat = "@"

                    .Columns("I").NumberFormat = "@"

                    .Columns("J").NumberFormat = "@"

                    .Columns("K").NumberFormat = "@"

                    .Columns("L").NumberFormat = "@"

                    .Columns("M").NumberFormat = "@"

                    .Columns("N").NumberFormat = "@"

                    .Columns("O").NumberFormat = "@"

                    .Columns("P").NumberFormat = "@"

                    .Columns("Q").NumberFormat = "@"

                    .Columns("R").NumberFormat = "@"

                    .Columns("S").NumberFormat = "@"

                    **'Start inserting data
                    For i = 0 To data_cols.GetLength(0) - 1
                        'Get the cell name
                        cell = data_cols(i, 0) & row_count
                        'Populate data to the cell
                        If IsDBNull(rs.Fields(data_cols(i, 2)).Value()) Then
                            .Range(cell).Value = " "
                        Else
                            .Range(cell).Value = rs.Fields(data_cols(i, 2)).Value()
                        End If
                    Next i
                End With
                rs.MoveNext()
                'Indicates next row
                row_count += 1**

                If row_count > 60000 Then
                    owb.Worksheets.Add(, current_sheet)
                    need_new_sheet = True
                    Console.WriteLine("Added new sheet to workbook...")
                    Exit While
                Else
                    need_new_sheet = False
                End If

            End While
        Loop While (need_new_sheet And rs.EOF = False)

如果您需要知道某些变量。

row_count = header_row_num + 1 'Change the first row count to a row after header_row_num

oxl = CreateObject("Excel.Application")
    oxl.Visible = False
    owb = oxl.Workbooks.Add

Dim data_cols(,) As String = {{"A", "Name", "NAME"}, _
                           {"B", "Age", "AGE"}}  (Not real columns, example)

任何建议或想法将不胜感激。在此先感谢:)

Answer 1

在 Excel 中填写 10 万行肯定需要时间。

这是你可以做的，以尽量减少时间

1. 在宏的开头使用oxl.ScreenUpdating = False，最后设置为True。
2. 您可能希望将数据存储在数组中，然后最后将数组一次性写入 Excel。这肯定会减少执行时间
3. Excel 2007 及更高版本 Excel 的行数限制为 1048576 行，因此如果您超过该限制，您可能需要考虑这一点。
4. Console.WriteLine("Added new sheet to workbook...") 是 VB.net。如果您使用 VBA，请使用 Debug.print。
5. 顺便说一句，这不会对速度产生显着影响，但您可以编写以下代码

这是

.Columns("A").NumberFormat = "@"
.Columns("B").NumberFormat = "@"
'
'
'
.Columns("R").NumberFormat = "@"
.Columns("S").NumberFormat = "@"

作为

.Columns("A:S").NumberFormat = "@"

Answer 2

最快的方法是CopyFromRecordset。

来自 MSDN：

---

expression.CopyFromRecordset(Data, MaxRows, MaxColumns)

expression：必填。返回 Range 对象的表达式。

Data：必需的变体。要复制到的 Recordset 对象的名称 范围。

MaxRows：可选变体。要复制到的最大记录数 工作表。如果省略此参数，则 Recordset 对象被复制。

MaxColumns：可选变体。要复制的最大字段数 到工作表上。如果省略此参数，则 Recordset 对象被复制。

---

例如，在您的情况下，只需键入：

Range("A2").CopyFromRecordset rs