为什么在数组分配期间出现溢出错误？

Question

我有一个程序可以设置一些全局 arrays。 该程序运行良好，直到几个小时前。 今天已经运行了几次了。 除了数组的大小（从 99500 - 99900、9）之外，我什么都没改变，这是问题吗？ 如果是数组的大小，有没有办法用不同的数据结构（集合、字典、用户定义）来存储这么多数据？

    Const PartMaterialsFilePath = "C:\Users\jayferreira\Desktop\"
    Const PartMaterialsFileName = "Part Materials.xlsm"

    Function getPPNWorksheet() As Worksheet
        If isWkbkOpen(PartMaterialsFileName) Then
            Set getPPNWorksheet = Workbooks(PartMaterialsFileName).Worksheets(2)
        Else
            Set getPPNWorksheet = Workbooks.Open(PartMaterialsFilePath + PartMaterialsFileName).Worksheets(2)
        End If
    End Function

    Global partDescriptions() As String
    Global partRevisions() As String * 5
    Global partRevisionDates() As String * 10
    Global partWeights() As Single
    Global partNumbers() As String * 6
    Global PartMaterials As Dictionary
    Global initialized As Boolean
    Function setGlobals()
        Application.ScreenUpdating = False
        Load loadingBar
        loadingBar.Show
        Dim rng As Range
        Dim dataArr() As Variant
        Dim mGPPN As Worksheet
        Dim multipleOf As Long
        Dim counter As Integer
        Dim lastRow As Long
        Dim i As Long
        loadingBar.Text.Caption = "Loading ppn.xlsx..."
        Set mGPPN = MCGBookFunctions.getPPNWorksheet
        lastRow = MCGBookFunctions.getLastRow(mGPPN, , 1, 1)
        loadingBar.Text.Caption = "Loading Data..."
        mGPPN.Activate
        dataArr = mGPPN.Range("A2", "I" & lastRow) ''this is where the overflow error occurs
        MCGBookFunctions.closePartMaterialsworkbook True ''closes mGPPN
        Set mGPPN = Nothing
        ReDim partDescriptions(lastRow)
        ReDim partRevisions(lastRow)
        ReDim partRevisionDates(lastRow)
        ReDim partWeights(lastRow)
        ReDim partNumbers(lastRow)
        multipleOf = lastRow / 100
        For i = 1 To UBound(dataArr, 1)
            partNumbers(i) = dataArr(i, 1)
            partDescriptions(i) = dataArr(i, 2)
            partRevisions(i) = dataArr(i, 3)
            partRevisionDates(i) = dataArr(i, 4)
            partWeights(i) = dataArr(i, 5) * 1000 
            If i Mod multipleOf = 0 Then
                counter = counter + 1
                loadingBar.Caption = "Storing Data..."
                loadingBar.Text.Caption = counter & "% Completed"
                loadingBar.Bar.Width = counter * 2
                DoEvents
            End If
        Next
        loadingBar.Caption = "Getting part materials from database..."
        Set PartMaterials = DataBase.GetMaterials()
        initialized = True
        Application.ScreenUpdating = True
        Unload loadingBar
    End Function

注意：引发错误的行是 arrays 变暗之前的两行。 'dataArr = mGPPN.Range("A2", "I" & lastRow)' 如代码中所述。

注意：我玩过范围大小，可以将 Range("A2", "I7804") 分配给数组，但不能再分配一行。 今天，直到几个小时前，我已经多次为数组分配了更大的范围。

Answer 1

在.Value2 mGPPN.Range("A2", "I" & lastRow).Value2中使用 .Value2 解决了我的问题。 我认为它与单元格的格式化方式有关，在尝试将日期之类的内容存储为字符串时会产生溢出，也许？