Exportar excel a txt desde una hoja distinta
Hola a todos mis amigos, hay una macro ala cual me gustaría que me ayuden a modificarla, lo que deseo es que al abrir mi formulario en la "hoja 1" me exporte datos que están en la "hoja2" en un rango por defecto rango de "A1:C50" automáticamente. Adjunto la macros mencionada.
Private Sub BOTON_Click()
'export activesheet as prn file
Dim myPath As String, myFile As String
myPath = ThisWorkbook.Path & "\"
myFile = "REPORTE.txt"
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:=xlText
.Close True
Application.DisplayAlerts = True
End With
WB.Save
Application.ScreenUpdating = True
MsgBox "Se ha Exportado Correctamente!!! ", vbInformation, "REPORTE"
End Sub
1 respuesta
No lo probé, pero probá con el siguiente código modificado
Private Sub BOTON_Click()
'export activesheet as prn file
Dim myPath As String, myFile As String
myPath = ThisWorkbook.Path & "\"
myFile = "REPORTE.txt"
Dim WB As Workbook, newWB As Workbook
Set WB = ThisWorkbook
Application.ScreenUpdating = False
Set newWB = Workbooks.Add
WB.Sheets("Hoja2").Range("A1:C50").Copy newWB.Sheets(1).Range("A1")
With newWB
Application.DisplayAlerts = False
.SaveAs FileName:=myPath & myFile, FileFormat:=xlText
.Close True
Application.DisplayAlerts = True
End With
WB.Save
Application.ScreenUpdating = True
MsgBox "Se ha Exportado Correctamente!!! ", vbInformation, "REPORTE"
End SubComo dije, no lo probé, pero básicamente lo que hice fue corregir el rango que estaba copiando, asumiendo que el resto estaba bien.