¿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