Code check

[Miya]

hi what is wrong with this code? i have set ws as Sheet2

With ws
.Copy.SaveAs Filename:= _
"U:\TL\PV\CSV\test.csv", FileFormat:=xlCSV, _
CreateBackup:=False
.Close = False
End With

 

[Legacy 68668]

ws.SaveAs "U:\TL\PV\CSV\test.csv", xlCSV
ActiveWorkbook.Close False
<!-- / message -->

 

[Miya]

ws.SaveAs "U:\TL\PV\CSV\test.csv", xlCSV
ActiveWorkbook.Close False
<!-- / message -->

Seiya the code does not copy sheet 2 to CSV it only copies sheet1

 

[Legacy 68668]

hi what is wrong with this code? i have set ws as Sheet2

With ws
.Copy.SaveAs Filename:= _
"U:\TL\PV\CSV\test.csv", FileFormat:=xlCSV, _
CreateBackup:=False
.Close = False
End With

should work, if it is true.

 

[Miya]

should work, if it is true.

nope this is my code, i run the code from sheet 1 and when i open the csv file it copied sheet1 instead of sheet2

Sub csv()
Dim ws As Worksheet
Set ws = Sheets("Sheet2")
ws.SaveAs "U:\TL\PV\CSV\test.csv", xlCSV
ActiveWorkbook.Close True
End Sub

 

[Legacy 68668]

That's impposible.

 

[Miya]

That's impposible.

is it cos i am running the code from Sheet1?, should i put With-End With

 

[Legacy 68668]

It doesn't matter.

With or witout "With" statement, once you set the reference to Sheet2, it will always refer to that object.

You are saying

Sheets("sheet2").SaveAs ....

is saving Sheet1, that is impossible.

 

[Miya]

It doesn't matter.

With or witout "With" statement, once you set the reference to Sheet2, it will always refer to that object.

You are saying

Sheets("sheet2").SaveAs ....

is saving Sheet1, that is impossible.

Thats whata happening, i tried again, i got the same results

 

[GTO]

Miya,

Change this line:

Sub csv()
    Dim ws As Worksheet
    
    Set ws = ThisWorkbook.Worksheets("Sheet2")
    
    ws.SaveAs ThisWorkbook.Path & "\xxxtest.csv", FileFormat:=xlCSV '"U:\TL\PV\CSV\test.csv", xlCSV
    
    ActiveWorkbook.Close False
    
End Sub

Hope this helps,

Mark