¿Se puede utilizar la estructura personalizada de VBA como diccionario de valor?

Inserte el módulo y cambie el nombre del módulo de clase a Update_data para escribir datos.

Public Fail_data siempre

"El resto es igual.

Defina una estructura de actualización inicializada en 0.

Atenúe Single_Updata como Update_data

Importar datos de actualización OTA()

set Dic _ Upid = CreateObject(" Scripting. Dictionary》)

Para cada celda en el rango (Cell( ID_Row_Int + 1, Des_ID_Col), Cell(Des_data_Row, Des_ID_Col))

Si xCell<>""Entonces

establezca Single _ Updata = new Update _ data

xxxxxxxxx

Dic_Upid. Clave(xCell.Text) = Single_Updata

Terminará si...

Siguiente xCell