Boton en Hoja excel para crear un archivo .txt

27/01/2008 - 03:36 por M. Caricola | Informe spam
Buenas noches grupo,

necesito hacer un boton en un hoja que contenga un macro el cual cree un
archivo .txt que contenga datos provenientes de la misma hoja. Por ejemplo:
Datos:
A10
A2= Jose
A3= 3003
A4= V
A5= PATILLA

B120
B2= CARLOS
B3= 9999
B4= V
B5= PERA

al precionar el boton me genere un archivo .txt con la sigueint linea
100JOSE PATILLA 3003 V
320CARLOS PERA 9999 V

Muchas gracias de antemano po el apoyo que me puedan brindar con este caso,
alguna guia o algo me seria muy util.

Atte.,
Mario
 

Leer las respuestas

#1 excelamedida.com
27/01/2008 - 16:15 | Informe spam
Hola Mario,
Te he creado este ejemplo que supongo que modificarás a tu gusto y/o
necesidades.

Sub GeneraTXT()
Dim Ruta As String, Archivo As String, Resultado As String
Application.ScreenUpdating = False
Application.EnableEvents = False

Range("aa1").Value = [a1] & [a2] & [a5] & [" "] & [a3] & [a4]
Range("aa2").Value = [b1] & [b2] & [b5] & [" "] & [b3] & [b4]

Ruta = ThisWorkbook.Path & "\"
Archivo = "NombreDelArchivo.txt"
Resultado = Ruta & Archivo

With Workbooks.Add
ThisWorkbook.Worksheets(1).Range("aa:aa").Copy
With .Worksheets(1)
.Range("a1").PasteSpecial xlPasteValues
End With
.SaveAs Filename:=Resultado, FileFormat:=xlTextWindows
.Close False
End With

Si tines alguna duda...
Un saludo
JJ Elizalde

Buenas noches grupo,

necesito hacer un boton en un hoja que contenga un macro el cual cree un
archivo .txt que contenga datos provenientes de la misma hoja. Por ejemplo:
Datos:
A10
A2= Jose
A3= 3003
A4= V
A5= PATILLA

B120
B2= CARLOS
B3= 9999
B4= V
B5= PERA

al precionar el boton me genere un archivo .txt con la sigueint linea
100JOSE PATILLA      3003 V
320CARLOS PERA      9999 V

Muchas gracias de antemano po el apoyo que me puedan brindar con este caso,
alguna guia o algo me seria muy util.

Atte.,
Mario

Preguntas similares