Importar archivos de txt a excel usando macro de VB(Aplicar formato a las columnas)
Quisiera hacer una macro en VB que me importe archivos txt a un libro en excel, el tema es que el libro de excel tiene varias hojas con un nombre igual al de los archivos txt. Además de que me los importe todos a la vez quisiera que le aplicara formato de texto a algunas o todas las columnas, también deseo que me lo delimite por coma.
1 Respuesta
Envíame 3 archivos a mi correo: archivo txt1, archivo txt2 y un archivo de excel.
En el archivo de excel pon la información del archivo txt1 y la información del archivo txt2 ta l y como deseas importar los datos. La información del txt1 la marcas de amarillo y la del txt2 la marcas de verde.
Explícame también paso a paso cómo hiciste para importar la información del txt1.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Neyder Ferrer” y el título de esta pregunta.
¡Gracias! ya te lo he enviado a tu correo.
Te anexo la macro Impotar_Txt. También se utiliza la macro Insertar_Archivo, deben ir juntas.
Sub Impotar_Txt()
'
' Por.Dante Amor
'
'
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set h1 = Sheets("Temp")
ruta = ThisWorkbook.Path & "\"
arch = Dir(ruta & "*.txt")
Do While arch <> ""
Call Insertar_Archivo(h1, ruta, arch)
hoja = Left(arch, 2)
existe = False
For Each h In Sheets
If Left(UCase(h.Name), 2) = UCase(hoja) Then
Set h2 = h
existe = True
Exit For
End If
Next
If existe = False Then
Sheets.Add after:=Sheets(Sheets.Count)
Set h2 = ActiveSheet
h2.Name = hoja
End If
h2.Rows("2:" & Rows.Count).Clear
u2 = 2
'u2 = h2.Range("A" & Rows.Count).End(xlUp).Row + 1
u1 = h1.Range("A" & Rows.Count).End(xlUp).Row
h1.Rows("1:" & u1).Copy h2.Range("A" & u2)
arch = Dir()
Loop
'
Application.ScreenUpdating = True
MsgBox "Archivos importados"
End Sub
'
Sub Insertar_Archivo(h1, ruta, arch)
' Por.Dante Amor
'
h1.Cells.Clear
With h1.QueryTables.Add(Connection:="TEXT;" & ruta & arch & "", Destination:=h1.Range("$A$1"))
.Name = "AF002419"
.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 = xlTextQualifierNone
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Subsal u dos
