Macros excel: importar archivo txt a excel
Necesito una macro que copie los datos de un txt que se encuentra en el escritorio llamado "resumen" y los pegue en una hoja excel ya creada llamada "datos" (necesito que sea en esa hoja por que hay formulas dirigidas a ella)
¿Me puedes ayudar Dante Amor?
2 Respuestas
H o l a:
Para entender cómo se tiene que hacer crea un ejemplo.
Envíame 3 archivos.
Archivo 1 con el excel antes de poner los datos del txt
Archivo 2 con el archivo txt
Archivo 3 con el excel después de poner los datos del txt
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Pablo Cuadra Giménez” y el título de esta pregunta.
Hola
perdón....¿como subo los archivos?
Envíamelos a mi correo:
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Pablo Cuadra Giménez” y el título de esta pregunta.
H o l a:
Te anexo la macro para importar el archivo, el archivo ventas.txt, deberá estar en la misma carpeta en donde tienes la macro.
Sub ImportarArchivo()
'Por.Dante Amor
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set l1 = ThisWorkbook
Set h1 = l1.Sheets("DATOS")
h1.Select
ruta = l1.Path & "\"
arch = "VENTAS.txt"
If Dir(ruta & arch) <> "" Then
Workbooks.OpenText Filename:=ruta & arch, _
Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _
Tab:=True, Semicolon:=False, Comma:=False, Space:=False, _
Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1)), _
TrailingMinusNumbers:=True
Set l2 = ActiveWorkbook
Set h2 = l2.Sheets(1)
h2.Cells.Copy
l1.Activate
[A1].Select
h1.Paste
l2.Close False
End If
Application.ScreenUpdating = True
[A1].Select
MsgBox "Terminado"
End Sub
