Foros de SóloIngeniería

- 03 Nov 2014, 15:36 #345435

Hola de nuevo amigxs,

Me ha surgido una duda. Estoy haciendo una macro para leer datos de un txt y pasarlo a una tabla Excel y luego hacer graficas con esta tabla. El caso es que la macro me funciona bien, pero lo he comprobado solo para 1000 filas de datos. Que puedo hacer para que, contenga el numero de filas que contenga el txt, la macro haga exactamente lo mismo independientemente del numero de filas? Muchisimas gracias!

PS ya he googleado y he encontrado paginas como esta, por ejemplo: http://chandoo.org/wp/2009/08/19/excel- ... -tutorial/ pero eso no es lo que busco!!

• 
• 
• 
• 
• 
• 

El meu país és el món Los teclados belgas no me dejan poner acentos ni "enyes"!!

- 03 Nov 2014, 19:23 #345449

Sube el archivo Excel para ver la estructura de los datos y el .txt con datos reales o ficticios.

• 
• 
• 
• 
• 
• 

- 04 Nov 2014, 13:53 #345504

Sube el archivo Excel para ver la estructura de los datos y el .txt con datos reales o ficticios.

Me dice que las extensiones para subirlo no estan permitidas :s

• 
• 
• 
• 
• 
• 

El meu país és el món Los teclados belgas no me dejan poner acentos ni "enyes"!!

- 04 Nov 2014, 19:18 #345527

Sube el archivo Excel para ver la estructura de los datos y el .txt con datos reales o ficticios.

Me dice que las extensiones para subirlo no estan permitidas :s

Comprímelo con .zip o directamente le cambias al extensión

• 
• 
• 
• 
• 
• 

- 05 Nov 2014, 15:03 #345564

Sube el archivo Excel para ver la estructura de los datos y el .txt con datos reales o ficticios.

Me dice que las extensiones para subirlo no estan permitidas :s

Comprímelo con .zip o directamente le cambias al extensión

Ocupa mas de lo permitido... Asi que solo puedo subir el txt!

Regístrese y/o inicie sesión para ver archivos adjuntos.

• 
• 
• 
• 
• 
• 

El meu país és el món Los teclados belgas no me dejan poner acentos ni "enyes"!!

- 05 Nov 2014, 16:43 #345571

A ver si te sirve así:

Código: Seleccionar todoSub ImportarDatos()
    Dim Ruta        As String
    Dim NombreDatos As String
    Dim Filas_txt   As Long
   
    NombreDatos = "Test 1.txt"
    Ruta = ThisWorkbook.Path & "\" & NombreDatos    'El txt debe estar en la misma carpeta que el documento excel
   
    With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Ruta, Destination:=Range("$A$1"))
         .Name = "Test 1"
         .FieldNames = True
         .RowNumbers = False
         .FillAdjacentFormulas = False
         .PreserveFormatting = True
         .RefreshOnFileOpen = False
         .RefreshStyle = xlInsertDeleteCells
         .SavePassword = False
         .SaveData = True
         .AdjustColumnWidth = True
         .RefreshPeriod = 0
         .TextFilePromptOnRefresh = False
         .TextFilePlatform = 850
         .TextFileStartRow = 1
         .TextFileParseType = xlDelimited
         .TextFileTextQualifier = xlTextQualifierDoubleQuote
         .TextFileConsecutiveDelimiter = False
         .TextFileTabDelimiter = True
         .TextFileSemicolonDelimiter = False
         .TextFileCommaDelimiter = False
         .TextFileSpaceDelimiter = False
         .TextFileColumnDataTypes = Array(1)
         .TextFileTrailingMinusNumbers = True
         .Refresh BackgroundQuery:=False
     End With
     
     Filas_txt = Cells(Rows.Count, "A").End(xlUp).Row
     
     MsgBox Filas_txt, , "Total filas"
End Sub

• 
• 
• 
• 
• 
•