Anónimo
Excel a TXT
Buenas Tardes: Quisiera hacer una consulta de como copiar una hoja excel a un archivo txt usando un botón, mi hoja excel contiene estos datos: 01l1985lmartin cabreral1l los campos están separados por el carácter "l" en la misma forma se tiene que guardar pero como un archivo txt. De antemano gracias.
Respuesta de calvuch
1
Inserta un modulo y en este modulo pegas este macro:
Sub guarda_txt()
Dim n As String
n = Replace(ActiveWorkbook.Name, ".xls", ".txt")
ActiveWorkbook.SaveAs Filename:="C:\" & n, FileFormat:=xlText, _
CreateBackup:=False
End Sub
Luego en el evento click del botón haces la llamada al macro solo insertando el nombre del macro, así:
Private Sub CommandButton1_Click()
guarda_txt
End Sub
No olvide cerrar la pregunta
Sub guarda_txt()
Dim n As String
n = Replace(ActiveWorkbook.Name, ".xls", ".txt")
ActiveWorkbook.SaveAs Filename:="C:\" & n, FileFormat:=xlText, _
CreateBackup:=False
End Sub
Luego en el evento click del botón haces la llamada al macro solo insertando el nombre del macro, así:
Private Sub CommandButton1_Click()
guarda_txt
End Sub
No olvide cerrar la pregunta
Gracias por responder, la macro funciona con algunas diferencias a lo que deseo, pero he estado utilizando esta macro:
ruta = "D:\Mis documentos\PDT617"
nbre = Worksheets("MENU").Range("D5")
Worksheets("SUNAT").Select
ActiveWorkbook.SaveAs Filename:=ruta & "\" & nbre & ".lqc", _
FileFormat:=xlText, CreateBackup:=False
Como veras creo variables para la ruta y el nombre del archivo a guardarse, pero al ejecutarse el método de SaveAs, esta no corre, sale error,¿dónde estaría el error?
ruta = "D:\Mis documentos\PDT617"
nbre = Worksheets("MENU").Range("D5")
Worksheets("SUNAT").Select
ActiveWorkbook.SaveAs Filename:=ruta & "\" & nbre & ".lqc", _
FileFormat:=xlText, CreateBackup:=False
Como veras creo variables para la ruta y el nombre del archivo a guardarse, pero al ejecutarse el método de SaveAs, esta no corre, sale error,¿dónde estaría el error?
La extensión debe ser txt tu le estas pasando .lqc
ruta & "\" & nbre & ".lqc
ruta & "\" & nbre & ".lqc
Agradezco tu pronta respuesta, pero sigue con el mismo error, es como si no reconociese el método SaveAs del objeto Workbook
Ok. No tengo más que aportar.
La funcionalidad que solicitaste la cubre el macro que te di como tu lo dijiste "la macro funciona".
Si pides A tienes A luego deseas Ab eso ya es otra cosa.
La funcionalidad que solicitaste la cubre el macro que te di como tu lo dijiste "la macro funciona".
Si pides A tienes A luego deseas Ab eso ya es otra cosa.