為什么會出現“下標超出范圍”錯誤？

Question

我在UserForm有以下代碼，該代碼在主模塊中的其他一系列進程的結尾附近調用，但是到達Me.GPListBox.List(iterI, 0) = Split (CCGPValues(key), " - ")(0)我收到一條錯誤消息，指出下標超出范圍。

在Debug.Print ， For Each之前，控制台將輸出“ Jorge Cardona”。 這是拆分的第一部分。 CCGPValues(key)等於“ Jorge CCGPValues(key) $ 207.31”，但是當它在GPListBox中調用相同的拆分時，它將中斷。 為什么通過Debug.print運行時會發生這種情況？

    Dim key As Variant, iterI As Integer, iterX As Integer
    Debug.Print Split(CCGPValues(147), " - ")(0)
    For Each key1 In CCGPValues.Keys
            Me.GPListBox.AddItem
            Me.GPListBox.List(iterI, 0) = Split(CCGPValues(key), " - ")(0) 'Breaks here
            Me.GPListBox.List(iterI, 1) = Split(CCGPValues(key), " - ")(1)
            CCGPValuesCount = CCGPValuesCount + 1
            iterI = iterI + 1
    Next key1

Answer 1

您正在運行循環Key1中For Each key1 In CCGPValues.Keys和你逝去的分割部分key在= Split(CCGPValues(key), " - ")(0)

因此，沒有什么可split ，因此未初始化結果數組。 然后從空白數組嘗試讀取第一個元素。 所以子腳本錯誤。

Option Explicit避免了此類麻煩。