Cantidad de líneas en Txt

Saben tengo un procedimiento (macro en Excel) el cual extrae unos archivos (.txt) resultantes de un proceso, el tema es que necesito saber cuantos registros contiene de manera exacta (rodean 500 mil y 2 millones de líneas),

El tema es que necesito agregar a esta macro algún código que lea la cantidad de registros que tenga cada archivo y lo escriba en una celda.

Respuesta
1

Por ejemplo podrías intentar:
Sub Macro1()
Dim i&, iLinea$
Open "C:\Users\Temp\Tu archivo.txt" For Input As #1
Do Until EOF(1)
  Line Input #1, iLinea: i = 1 + i
Loop
Close: [a1] = i
End Sub

1 respuesta más de otro experto

Respuesta
3

Si necesitas saber hasta qué fila llegan los datos, esta sería 1 instrucción:

cant1 = Range("A" & Rows.Count).End(xlUp).Row

Si necesitas saber cuántas filas 'no vacías' hay hasta la última con datos, podría ser de este modo:

cant2 = Application.WorksheetFunction.CountA(Range("A1:A" & cant1))

Siempre evaluando la col A ... ajusta a tu col de datos.

Comenta si esto es lo que necesitabas.

Sdos

Elsa

Gracias Elsa, pero los registros se encuentran en un archivo txt (que en muchos casos no se puede exportar a excel porque supera el millón y algo que tiene excel 2007)... se usa la misma función?

Cuando mencionas que tenés una 'macro en Excel' que 'extrae' unos archivos txt bien puedo pensar que estás trabajando con los datos ya en excel...

Disculpa si no entendí lo que estabas pensando o queriendo decir... creo que eso no merece que me votes de modo negativo... Considera que podemos confundirnos entre tantas consultas o no entender del todo lo que plantean, muchas veces porque lo plantean de modo poco claro.

Sdos!

Elsa, saludos y disculpa por el voto negativo, pero no se usar mucho esta web... de todas maneras te agradezco el tiempo que te tomas en responder nuestras consultas... Saludos

Entonces vuelve a votar 'para arriba' y así cancelas ese voto negativo.

Sdos!

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Contador para cantidad líneas en Excel en Columna B

Para Elsamatilde Para insertar en CommandButton, en hoja que contenga líneas de código para contar las líneas ocupadas dentro de la columna B Aquí las líneas son continuas, no existen entre-lines vacías en columna B
1 respuesta

Insertar caracteres especiales

Tengo el siguiente problema tengo una columna de datos como sigue: A1 A2 . . A100 Necesito agregar un carácter "X" para que me quede aX1 aX2 . . AX100 Yo pude hacer una rutina pero se me complica cuando el numero es mayor a 9, mi rutina me hace esto...
1 respuesta

Macro buscar copiar y pegar

Basándome en una macro realizada por ti para otra respuesta, la he adaptado a mi hoja y me funciona, pero necesitaría varias cosas: 1º que me aclararas algunas lineas (las pongo en negrita y cursiva) 2º necesito que al principio me quite los filtros...
1 respuesta

Contador para cantidad de líneas en hoja excel

Estas líneas de código la cogí de un tema respondido por Elsamatilde de la cual necesito su ayuda cant1 = Range("A" & Rows.Count).End(xlUp).Rowcant2 = Application.WorksheetFunction.CountA(Range("A1:A" & cant1)) Eso, un contador en determinada celda,...
1 respuesta

Abrir txt con macros

Espero puedas apoyarme con mi problema, debo crear un excel en el cual en la hoja1 entre otras cosas tenga un boton cuya tarea es abrir un archivo txt y copiar su contenido en la hoja2 del excel creado, el problema es que no tengo idea de como hacer...
1 respuesta

ListBox MultiSelect con Cabeceras sin Rowsource

Tengo un ListBox con varias columnas dentro de un formulario que se forma leyendo de varias hojas excel. La primera hoja la recorre para recuperar datos de varias columnas alternas (no correlativas) y que son cargados en el ListBox en orden para cada...
1 respuesta

Como conseguir el ancho automáticos de columnas cuando insertas datos de otras fuentes como puedan ser: otras excel, bancos

Se trata de crear una macro de tal forma que al insertar en una excel columnas de distintas anchura, mediante una macro, los anchos se correspondan con la longitud de los datos insertados. Por ejemplo: casa / melocotón/ bicicleta /...
1 respuesta

Copiar celdas de una hoja a otra de manera consecutiva

Expertos: Tengo una hoja excel en donde hay dos recuadros con determinados campos. Uno empieza de A8:H24 y el otro de A29:H44 (ambos casos tienen 14 filas) El primer recuadro alberga datos principales y el segundo datos adicionales. La rutina que les...
1 respuesta

Mensaje tipo MsgBox("XXXXX") si después de dar click en Botón Cmd el ListBox está vacío.

Tengo este código y con el busco información de una tabla, esa información se carga en un ListBox y lo que deseo es que me muestre primero, todos los datos que coincidan con el criterio de búsqueda y segundo, dado el caso en que no haya una...
1 respuesta

Copiar Texto de archivo .txt a celda excel utilizando macros

Tengo el siguiente código para abrir archivos de texto .txt y copiar su contenido en una celda de Excel, pero como hacer cuando el texto en el archivo .txt tiene mas caracteres de los permitidos por una celda, como hacer para hacer que el resto lo...
1 respuesta