try - on error resume next vba

Errores al agregar elementos a una colección VBA/VB6

Question

Todavía estoy aprendiendo VBA y no puedo entender si tengo tantos problemas con un objeto Collections.

Tengo una función que agrega objetos personalizados (creé una clase muy simple para almacenar algunos datos) que hace el tipo típico de "leer datos, crear una representación de objetos, pegarlo en colecciones".

Si trato de agregar una "clave" a la llamada a bag.add aparece el mensaje "Error de compilación. Esperado: =".

Si no funciona, parece que funcionó cuando ejecuto el programa y dice "Compile Error. Argument not optional" y resalta la línea "getRevColumns = bag".

¡No puedo por la vida de mí descubrir qué está pasando! Sospecho que hay algo mal con la forma en que inicié mi bolsa? PD: columnMap es el nombre de mi clase personalizada.

Function getRevColumns() As Collection

Dim rng As Range
Dim i As Integer
Dim bag As Collection
Dim opManCol As Integer, siebelCol As Integer
Dim opManColName As String, siebelColName As String
Dim itm As columnMap

Set bag = New Collection
Set rng = shSiebelMap.UsedRange.Columns(5)

i = 1
For i = 1 To rng.Rows.count

    If StrComp(UCase(rng.Cells(i).value), "Y") = 0 Then

        opManCol = rng.Rows(i).OffSet(0, -2).value
        opManColName = rng.Rows(i).OffSet(0, -4)
        siebelCol = rng.Rows(i).OffSet(0, -1).value
        siebelColName = rng.Rows(i).OffSet(0, -3)

        Set itm = New columnMap
        itm.opManColName = opManColName
        itm.opManColNumber = opManCol
        itm.siebelColName = siebelColName
        itm.siebelColNumber = siebelCol

        ''WHY DOESN''T IT WORK!''''
        bag.Add (itm)

        ''MsgBox "opMan Col: " & opManColName & " : " & opManCol & ". Siebel Col: " & siebelColName & " : " & siebelCol''

    End If

Next i

getRevColumns = bag

End Function

Answer 1

Intente eliminar los parens alrededor de itm en el complemento:

bag.Add itm

o

bag.Add itm, key

Ha pasado un tiempo desde que tuve que trabajar con VBA / VB6, pero creo que al incluir los paréntesis, se pasa el valor en lugar de hacerlo por referencia. Podría estar equivocado.

Answer 2

Tienes que decir

set getRevColumns = bag

también supongo que tienes un problema con el complemento. No sé por qué es esto, pero funciona en

bag.add itm

Probé todo de una manera simple aquí está mi código de trabajo

Sub myroutine()

     Dim bag As Collection
     Dim itm As clsSimple

     Set bag = getTheCollection()

     Set itm = bag.Item(1)
     MsgBox (itm.someObjectValue)

     Set itm = bag.Item(2)
     MsgBox (itm.someObjectValue)


End Sub

Function getTheCollection() As Collection

        Dim bag As Collection
        Dim itm As clsSimple

        Set bag = New Collection

        Set itm = New clsSimple
        itm.someObjectValue = "value 1"
        bag.Add itm

        Set itm = New clsSimple
        itm.someObjectValue = "value 2"
        bag.Add itm

        Set getTheCollection = bag

End Function

La clase es realmente simple:

Public someObjectValue As String

Espero eso ayude

Answer 3

Tuve un problema similar con una colección.

Lo reduje pero no lo configuré con Nuevo o lo inicialicé.

Básicamente tuve

Dim collection1 As Collection
...
collection1.Add item     ''no compile error just empty

Agregué lo siguiente antes de agregar

Set collection1 = New Collection
Call collection1.init

luego funcionó como un amuleto ... También moví la declaración Dim desde el Sub hasta la parte superior del Módulo para convertirla en una variable de clase

Answer 4

la bolsa es un objeto Regla n. ° 1 para uso de objetos

Set getRevColumns = bag