Question

尝试访问工作表集合时出现异常。
我的程序已经用工作簿的工作表名称填充了一个组合框，但是当我尝试访问该集合时，它给我一个错误9（索引不足）代码是下一个：

With Me.cmbHojas
Set regis.Hoja = ThisWorkbook.Worksheets(.List(.ListIndex))
End With

cmbHojas是组合框的名称，并且完全由表单中的initialize事件填充...它具有所有工作表名称，我不知道发生此错误的原因是什么...
regis.Hoja是我的一个对象的属性（工作表类型）
错误来自分配的右侧
非常感谢

编辑：我将发布引起问题的整个代码

Private Sub btnTabla_Click() 
Dim i As Long
Dim c1 As Integer
Dim fila As Variant
Dim f As Long, c As Long
Dim leer As String
Dim celda As Range
Dim regis As New Registro
Dim work As Worksheet
With Me.cmbHojas
Set regis.Hoja = ThisWorkbook.Worksheets(.List(.ListIndex))
End With
origen:
On Error Resume Next
Set celda = Application.InputBox("Seleccione la celda de origen", _
"Entrada", Type:=8)
On Error GoTo 0
If celda Is Nothing Then
MsgBox "No seleccionó celda", vbCritical, "Entrada requerida"
GoTo origen
End If 
Set regis.CeldaInicial = celda

'Primera celda de escritura de la consulta

destino:
On Error Resume Next
Set celda = Application.InputBox("Seleccione la celda de insercion", _
"Entrada", Type:=8)
On Error GoTo 0
If celda Is Nothing Then
MsgBox "No seleccionó celda", vbCritical, "Entrada requerida"
GoTo destino
End If

' Iterador hasta que se termina la hoja

f = celda.Row: c = celda.Column

Do While True
regis.linea

fila = regis.regis
i = regis.FilaComparacion

For c1 = 0 To UBound(fila)
ActiveWorkbook.ActiveSheet.Cells(f, c + c1).Value = fila(c1)
Debug.Print fila(c1) + " " + Str(i)
Next c1
f = f + 1 
If (regis.Terminado) Then
MsgBox ("Se han terminado de leer los datos")
Exit Do
End If

Loop

End Sub

我说西班牙语，所以是西班牙语... 该程序的目的是在一个长的excel工作表中进行查询...类“ Registro”正在工作...我已经用我的程序对其进行了多次测试....这不是问题... 问题出在上面的代码中

Excel中VBA上的工作表集合和组合框出现索引错误

0 个答案: