Exporting data to a new xls workbook

[Frank10]

Hi,

I am trying to export data from an xlsm to a new xls.

But the problem is that it only copies the first row and I need a table to be copied.


My macro is this one:

Sub ExportarTXT()

Worksheets("Import").Activate
If Sheets("Import").Activate Then
Range("A1").Select
If ActiveCell = Empty Then GoTo salte
Open "c:\ZLibra.xls" For Output As 1
regresa:
Codigo = ActiveCell
Print #1 , Codigo
ActiveCell.Offset(1, 0).Select
If ActiveCell = Empty Then GoTo salte
GoTo regresa:

salte:
Close #1
End If
Worksheets("Import").Activate

End Sub


Thanks,

 

[Frank10]

Yes I know.

The thing is that the first one leaves the format and I need it. So I stayed with that one.

By refreshing I mean when in a cell you press F2 and then Enter. For instance the date when I export it appears 2/11/2018, When I "refrsh" it it appears 02/11/2018. I need that for all cells.

So first export the data to an XLS then copy and paste values and finally "refreshing" the cells.

Thank you very much for your time and consideration.