0

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

这里的问题是，VBA 需要很长时间才能将所有数据（大约 100k 行数据）提取到 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)

任何建议或想法将不胜感激。提前致谢 ：）

4

2 回答 2

4

在 Excel 中填写 100k 行肯定需要时间。

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

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

哪个是

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

作为

.Columns("A:S").NumberFormat = "@"
于 2012-07-27T04:24:57.980 回答
1

最快的方法是CopyFromRecordset。

来自 MSDN：

expression.CopyFromRecordset(Data, MaxRows, MaxColumns)

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

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

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

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

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

Range("A2").CopyFromRecordset rs
于 2013-01-13T19:16:48.757 回答