¿Es rápido llamar a SQL usando VBA? La cantidad de datos es muy grande y escribir datos directamente en shtr es muy lento. ¿Hay alguna manera?

No sé si son los datos de la columna de proveedores de la tabla UFDATA_013_2008. De lo contrario, cambie la declaración SQL usted mismo. SQL="Seleccionar proveedores de UFIDA data_013_2008".

Importación de datos sub-SQL()

Atenuar cn como nuevo ADODB. Relación

Dim rs es ADODB. Conjunto de registros

Atenuar cadena como cadena

Mostrar sql como cadena

Anotar I como número entero

str = " Proveedor = Fuente de datos SQLOLEDB = nombre del servidor SQLSERVER o IP; base de datos = base de datos; UID = nombre de usuario; PWD = contraseña"

cn. Estrecho Abierto

Establecer rs = Nuevo ADODB. Recordset

sql = "Seleccionar proveedores de UFDATA_013_2008"

rs. Abra sql, cn, adOpenStatic, adLockOptimistic

Si no es rs. Entonces EOF

para i = 1 a rs. Conteo de registros

Hoja de trabajo 2. celda(I,1). Valor = Rs. campo(0). Valor

Próximos me

rs. Siguiente paso

Terminará si...

rs. Cerrar

cn. Cerrar

Terminal