vba - 访问 VBA - 在大范围内更改 Excel 单元格值的更快方法？

Question

我在 Access 中有一些 VBA 代码，它从 Excel 工作表中获取一系列单元格，然后将它们从数字转换为日期。例如，一个范围是 H1:Y25000

Public Sub FixDates(theRange as Range)

Dim RangeCell as Range

For Each RangeCell In theRange
    If IsNumeric(RangeCell.Value) And RangeCell.Value > 0 And Not IsEmpty(RangeCell.Value) Then
        lngDate = CLng(RangeCell.Value)
        RangeCell.Value = DateAdd("d", lngDate -1, "1/1/1968")
    End If
Next RangeCell

End Sub

代码似乎可以工作，但运行需要很长时间。可以用不同的方式编写以更快地运行吗？我正在阅读有关使用 Variant 而不是 Range 的信息，但我无法弄清楚。

哦，要调用 Sub，我使用类似的东西：

path = "C:\myfile.xlsx"
Set xlApp = CreateObject("Excel.Application")
Set xlWbk = xlApp.Workbooks.Open(path)
Set xlWks = xlWbk.Worksheets(1)
lastRow = xlWks.Range("A1").End(xlDown).Row
FixDates (xlWks.Range("H1:Y" & lastRow))

谢谢！

Answer 1

您可以简单地将范围分配给一个变体，这将创建一个数组 - 它看起来像下面的代码 - 您应该添加适当的错误处理：

Public Sub FixDates(theRange as Range)

    Dim data as Variant
    Dim i as Long
    Dim j as Long
    Dim lngDate as Long

    data = theRange

    For i = LBound(data, 1) to UBound(data, 1)
        For j = LBound(data, 2) to UBound(data, 2)
            If IsNumeric(data(i, j)) Then
                If data(i, j) > 0 Then
                    lngDate = CLng(data(i, j))
                    data(i, j) = DateAdd("d", lngDate - 1, "1/1/1968")
                End If
            End If
        Next j
    Next i

    theRange = data

End Sub