¿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

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