Jump to content
Daygo

Como importar datos a excel que superan los 1048576

Recommended Posts

Hola Comunidad :D !

Tengo una duda respecto a la importación de datos, 

Tengo un archivo de casi mas 2 millones de registros (filas)  (archivo de valores separados por coma) donde yo abro el excel, y en datos doy a exportar desde un archivo de texto . Luego me sale este mensaje: 

oVr2s6S.png

Cómo podría importar los datos restantes? , que colocando desde la ultima linea en la que se quedo solo me importa una adicional.

Share this post


Link to post
Share on other sites

Saludos @Daygo, con una macro podrias hacerlo, pasas los datos a dos hojas de excel, en el foro hay muchos ejemplo de como leer archivos de texto, en la macro cuando llegue a cierta cantidad (1 millon por ejmplo) activas la proxima hoja y continuas vaciando los datos alli

Suerte

Share this post


Link to post
Share on other sites
Guest Cacho R

Hola! Daygo (y Bigpetroman)

En el paso 1 del "Asistente para importar texto" verás un combobox intitulado: Comenzar a importar en la fila.

Si a la primera hoja de tu Excel le incorporaste 1.048.576 filas de datos, entonces para la segunda hoja deberás poner en ese combobox: 1.048.577

Con un poco de suerte: ¡Todo te funcionará correctamente!

Saludos, Cacho R.

 

Share this post


Link to post
Share on other sites
Hace 15 minutos , Cacho R dijo:

Hola! Daygo (y Bigpetroman)

En el paso 1 del "Asistente para importar texto" verás un combobox intitulado: Comenzar a importar en la fila.

Si a la primera hoja de tu Excel le incorporaste 1.048.576 filas de datos, entonces para la segunda hoja deberás poner en ese combobox: 1.048.577

Con un poco de suerte: ¡Todo te funcionará correctamente!

Saludos, Cacho R.

 

eso hice, pero el excel luego solo importa 2 lineas más o 3, no añade las 500 lineas faltantes. :/

 

 

 

Share this post


Link to post
Share on other sites
Guest Cacho R
Hace 8 horas, Cacho R dijo:

Con un poco de suerte: ¡Todo te funcionará correctamente!

Bueno... ¡Podía fallar! :wacko:

Tendrás que caer en lo seguro. O sea una macro como la que sigue:

Sub importo_TXT_de_muchas_líneas()
'------------------
'by Cacho Rodríguez
'------------------
Dim mFile, Vec, Q&, iLine$
mFile = "Seleciona el archivo a procesar:"
mFile = Application.GetOpenFilename("txt Files (*.txt), *.txt", Title:=mFile)
If mFile = False Then Exit Sub
Application.ScreenUpdating = False: Workbooks.Add xlWBATWorksheet
ReDim Vec(1 To Rows.Count, 1 To 1)
Close: Open mFile For Input As #82
On Error GoTo Traslado_la_info

Do Until EOF(82)
  Line Input #82, iLine: Q = 1 + Q
  Vec(Q, 1) = iLine
Loop

If Q > 0 Then With Range("A1").Resize(Q): .NumberFormat = "@": .Cells = Vec: End With
Vec = Empty: Application.ScreenUpdating = False: Close
Exit Sub

Traslado_la_info:
  With Range("A1").Resize(Q - 1)
    .NumberFormat = "@": .Cells = Vec: End With
  Q = 1: Worksheets.Add after:=Worksheets(Worksheets.Count)
  ReDim Vec(1 To Rows.Count, 1 To 1): Resume
End Sub

 

Share this post


Link to post
Share on other sites
En 25/8/2018 at 1:29 , Cacho R dijo:

Bueno... ¡Podía fallar! :wacko:

Tendrás que caer en lo seguro. O sea una macro como la que sigue:

Sub importo_TXT_de_muchas_líneas()
'------------------
'by Cacho Rodríguez
'------------------
Dim mFile, Vec, Q&, iLine$
mFile = "Seleciona el archivo a procesar:"
mFile = Application.GetOpenFilename("txt Files (*.txt), *.txt", Title:=mFile)
If mFile = False Then Exit Sub
Application.ScreenUpdating = False: Workbooks.Add xlWBATWorksheet
ReDim Vec(1 To Rows.Count, 1 To 1)
Close: Open mFile For Input As #82
On Error GoTo Traslado_la_info

Do Until EOF(82)
  Line Input #82, iLine: Q = 1 + Q
  Vec(Q, 1) = iLine
Loop

If Q > 0 Then With Range("A1").Resize(Q): .NumberFormat = "@": .Cells = Vec: End With
Vec = Empty: Application.ScreenUpdating = False: Close
Exit Sub

Traslado_la_info:
  With Range("A1").Resize(Q - 1)
    .NumberFormat = "@": .Cells = Vec: End With
  Q = 1: Worksheets.Add after:=Worksheets(Worksheets.Count)
  ReDim Vec(1 To Rows.Count, 1 To 1): Resume
End Sub

 

Lo tengo en formato .csv , simplemente cambiaría el ".txt" a ".csv" cierto?

Share this post


Link to post
Share on other sites
Guest Cacho R
Hace 2 horas, Daygo dijo:

Lo tengo en formato .csv , simplemente cambiaría el ".txt" a ".csv" cierto?

Cambiar aquí:

Hace 2 horas, Daygo dijo:

mFile = Application.GetOpenFilename("txt Files (*.txt), *.txt", Title:=mFile)

Así es...

Share this post


Link to post
Share on other sites

No se si sea su caso, pero en caso de necesitar los 2 millones de registros para elaborar tablas dinamicas, por ejemplo, y no necesariamante tener que ver los 2 millones de registros en una hoja, lo que se puede hacer es una consulta con Power Query a la fuente de datos, SIN vaciar los datos a una hoja de excel.

Con la conexión de datos se pueden elaborar las tablas dinámicas y tambien obtener tablas de menor tamaño con los criterios, filtros, a la fuente de datos.

Digo esto por que normalmente grandes volumenes de datos dentro de los libros no es muy frecuente, lo que si es frecuente es la alaboración de informes.

Saludos

Share this post


Link to post
Share on other sites
En 28/8/2018 at 16:04 , GabrielRaigosa dijo:

No se si sea su caso, pero en caso de necesitar los 2 millones de registros para elaborar tablas dinamicas, por ejemplo, y no necesariamante tener que ver los 2 millones de registros en una hoja, lo que se puede hacer es una consulta con Power Query a la fuente de datos, SIN vaciar los datos a una hoja de excel.

Con la conexión de datos se pueden elaborar las tablas dinámicas y tambien obtener tablas de menor tamaño con los criterios, filtros, a la fuente de datos.

Digo esto por que normalmente grandes volumenes de datos dentro de los libros no es muy frecuente, lo que si es frecuente es la alaboración de informes.

Saludos

esta el detalle que necesito agregar un campo mas, y hacer un cruce de datos  por eso no puede ser una dinamica directa T_T

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png