Guardar de excel a txt
Hola Amig@s:
Esta macro me ayudo el experto DAM
Sub atxt()
'Por.DAM
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set h1 = ActiveSheet
mes = Month(Range("F8
ruta = ThisWorkbook.Path & "\"
Set l2 = Workbooks.Add
Set h2 = l2.ActiveSheet
h1.Range("b8:m107").Copy h2.Range("b8")
With Application.FileDialog(msoFileDialogSaveAs)
.Title = "Guardar archivo como"
.AllowMultiSelect = False
.InitialFileName = mes
.FilterIndex = 15
If .Show Then
march = .SelectedItems(1)
march = Replace(.SelectedItems(1), ".csv", ".txt")
h2.SaveAs Filename:=march, FileFormat:=xlCSV
ActiveWorkbook.Close
Workbooks.Open march
Cells.Replace What:=",", Replacement:="|"
ActiveWorkbook.Save
ActiveWindow.Close
End If
End With
Set h2 = Nothing
Set l2 = Nothing
Set h1 = Nothing
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
La macro funciona a la perfección, solo que la parte de mis encabezados que son :
Nº | NIT-CI DEL CLIENTE | RAZÓN SOCIAL CLIENTE | NUMERO FACTURA |
AUTORIZACIÓN | FECHA | IMPORTETOTAL | ICE | MONTOS EXENTOS | NETO DÉBITO FISCAL | ESTADO DE FACTURA | CÓDIGO DE CONTROL
y están en las columnas A - B - C - D - E - F - G - H - I - J - K - L - M .
Como escribí lineas arriba la macro funciona a la perfección sol que el formato de la fecha lo guarda como MES/DÍA/AÑO , en mi país el formato es DIA/MES/AÑO, que código seria para que me guarde con este formato? Gracias mil
saludos
Jesús
1 Respuesta
Negativo, no funciona con ninguna de las opciones de fecha :(
saludos
Jesús
Tuve que agregar otra rutina, prueba con la siguiente.
Sub atxt()
'Por.DAM
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set h1 = ActiveSheet
mes = Month(Range("F8"))
ruta = ThisWorkbook.Path & "\"
Set l2 = Workbooks.Add
Set h2 = l2.ActiveSheet
h1.Range("b8:m107").Copy h2.Range("b8")
For i = 8 To Range("F" & Rows.Count).End(xlUp).Row
Cells(i, "F") = "'" & Cells(i, "F")
Next
With Application.FileDialog(msoFileDialogSaveAs)
.Title = "Guardar archivo como"
.AllowMultiSelect = False
.InitialFileName = mes
.FilterIndex = 15
If .Show Then
march = .SelectedItems(1)
march = Replace(.SelectedItems(1), ".csv", ".txt")
h2.SaveAs Filename:=march, FileFormat:=xlCSV
ActiveWorkbook.Close
Workbooks.Open march
Cells.Replace What:=",", Replacement:="|"
ActiveWorkbook.Save
ActiveWindow.Close
End If
End With
Set h2 = Nothing
Set l2 = Nothing
Set h1 = Nothing
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Subsaludos.DAM
Se debería poder poner 10 estrellas jejejeejeje, capo funciono a la perfección gracias mil
Saludos desde Sucre - Bolivia
Jesús
