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

[jffryjsphbyn]

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

[Excel Fox]

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


Sub SaveAsCSV()

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

End Sub

[jffryjsphbyn]

It shows an error " Object Required "

Here's my 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

[bakerman]

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

[Excel Fox]

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.