¿Cómo importar rápidamente más de 65438 decenas de miles de datos desde Access a EXCEL usando VB? Sé que puedo almacenar varias fotos, ¿cómo puedo lograrlo?
La función BackupData(myOpen, ff) es un valor booleano
Si ocurre un error, continúa con el siguiente paso
Dim arr(), I, myOpen1 , ID es moneda
p>
BackupData = False
rs1. Tamaño de página = 65535
myopen 1 = " seleccionar * de(& myOpen & ")ordenar por ID"
rs1.Open myOpen 1, Open 1, Open 1, Open 3 p>
ps = rs1. Páginas
ReDim arr(ps)
Para i = 1 a ps
rs1. p>arr(i) = rs1.Field("ID")
Entonces
rs1.Close
Si Err & lt& gt0 entonces ve a mi final
Si arr(1) = 0, entonces vaya a myend
Para i = 1 a ps
myopen 1 = " seleccione * en [Excel 8.0; base de datos = " & ampff & amp"].Tabla " & ampmy& amp" de (&myOpen & amp") donde ID & gt = " & amparr(一)
si i & ltps entonces myop1 = myop1 & "y id <" & amparr(i + 1)
rs1. Abra myopia1 y "Ordenar por ID"
Luego
BackupData = Err = 0
Salir de la función
myend:
p = InStrRev(ff, " \ ")
rs1. Abra "seleccione * en [Texto; HDR = sí; BASE DE DATOS = " & izquierda (derecha, derecha) y derecha. "]."&Mid(ff,p+1)&".txt from(&myOpen&")"
ff = Left(ff,p)&" esquema. if Dir(ff)& lt;& gt""Entonces kill(ff)
BackupData = Err = 0
Finalizar función