Exporting A Worksheet To A CSV File / Save Workbook As CSV File

Hello,

I would like to ask help for the vba code to export a single worksheet to a csv file. And the user will save it manually. I mean, User will be the one to put the file name, and look for the destination of the file where to be saved.

Thank you in advance,

Jeffrey

This will only work for the first sheet of your workbook.

Code:

---

Sub SaveAsCSV()

    ActiveWorkbook.SaveAs Application.GetSaveAsFilename(, "Comma Seperated Value File (*.csv), *.csv"), xlCSV
   
End Sub

---

It shows an error " Object Required "

Here's my code.

Code:

---

Sub export()


Application.DisplayAlerts = False

sFileName = "CLASSIFIED.csv"

Sheets("CLASSIFIED").Range("A1:AN1000").Copy


Set WB = Workbooks.Add
With WB
    .Title = "Classified"
    .Sheets(1).Select
    ActiveSheet.Paste
    ActiveWorksheet.SaveAs Application.GetSaveAsFilename("", "Comma Seperated Value File (*.csv), *.csv"), xlCSV
   
End With

Application.DisplayAlerts = True

End Sub

---

Code:

---

Sub export()

    Application.DisplayAlerts = False
    Sheets("CLASSIFIED").Copy
    With ActiveWorkbook
        .Title = "Classified"
        .SaveAs Application.GetSaveAsFilename("CLASSIFIED", "Comma Seperated Value File (*.csv), *.csv"), xlCSV
        .Close True
    End With
    Application.DisplayAlerts = True

End Sub

---

A sheet doesn't have a SaveAs method. Why would you change the SaveAs method I used for the workbook, on to a worksheet? I'm refering to Post #3 above.