Macros para Exportar valores de un archivo excel a (*.prn)
Hola a todos los expertos en macros..en una macros ala cual quiero modificar para que esporte solo los valores de un archivo excel a un archivo Texto con formato (delimitado por espacios)(*.prn), adjunto la macro para que me puedan ayudar.
Private Sub EXPORT_Click()
'export activesheet as prn file
Dim myPath As String, myFile As String
myPath = ThisWorkbook.Path & "\"
myFile = "REPORTE"
Dim WB As Workbook, newWB As Workbook
Set WB = ThisWorkbook
Application.ScreenUpdating = False
Set newWB = Workbooks.Add
WB.ActiveSheet.UsedRange.Copy newWB.Sheets(1).Range("A1")
With newWB
Application.DisplayAlerts = False
.SaveAs FileName:=myPath & myFile, FileFormat:=xlTextPrinter
.Close True
Application.DisplayAlerts = True
End With
WB.Save
Application.ScreenUpdating = True
MsgBox "Se ha Exportado correctamente!!! ", vbInformation, "REPORTE"
End Sub
1 Respuesta
Te refieres a esto. Prueba y me comentas
Private Sub EXPORT_Click()
'Act.Por.Dante Amor
'export activesheet as prn file
Dim myPath As String, myFile As String
myPath = ThisWorkbook.Path & "\"
myFile = "REPORTE"
Dim WB As Workbook, newWB As Workbook
Set WB = ThisWorkbook
Application.ScreenUpdating = False
Set newWB = Workbooks.Add
WB.ActiveSheet.UsedRange.Copy
newWB.Sheets(1).Range("A1").PasteSpecial Paste:=xlPasteValues
With newWB
Application.DisplayAlerts = False
.SaveAs Filename:=myPath & myFile, FileFormat:=xlTextPrinter
.Close True
Application.DisplayAlerts = True
End With
WB.Save
Application.ScreenUpdating = True
MsgBox "Se ha Exportado correctamente!!! ", vbInformation, "REPORTE"
End Sub
