Macro para guardar rango especifico en txt
Tengo una dificultad al momento de querer guardar en .TXT solo los datos de la COLUMNA F1: F10; con el siguiente código macro.
Sub GuardarComo()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
nbre = "ABONO_"
nbre1 = Format(Now, "yyyymmdd")
With Application.FileDialog(msoFileDialogSaveAs)
.Title = "Guardar archivo como"
.AllowMultiSelect = False
.InitialFileName = nbre & nbre1
.FilterIndex = 11
If .Show Then
ActiveWorkbook.SaveAs Filename:=nbre1 & ".txt", _
FileFormat:=xlText, CreateBackup:=False
End If
End With
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
1 Respuesta
Respuesta de Abraham Valencia
[Hola
Mira como para que te des idea:
Sub TxtColumna()
Range("F1:F10").Copy
Workbooks.Add xlWBATWorksheet
Range("A1").PasteSpecial xlPasteValuesAndNumberFormats
ActiveWorkbook.SaveAs Filename:="D:\MiCarpeta\MiArchivo.txt", FileFormat:=xlTextMSDOS
ActiveWorkbook.Close False
MsgBox "Archivo creado"
End SubComentas
Abraham Valencia
