save excel file into csv format using vba

[me_gem69]

Hi i am new to vba
I want to save the excel file in csv format on the web server.
this is a daily process to do.
more over i want to give the filename as the cell value which is a drop-down so as the person select any value in the drop-down & clicks the save button its should save the file on name selected in the drop-down.
plz help.

 

[Trevor G]

Try this:

Sub Macro2()
ActiveWorkbook.SaveAs Filename:="C:\Documents\" & Range("CELLID") & ".csv" _
, FileFormat:=xlCSV, CreateBackup:=False
End Sub

 

[me_gem69]

thanks for you help
here the problem is the cell value is from sheet1 & the data to be store is from sheet 3

 

[Trevor G]

A CSV file can only have a single sheet in it so you would need to copy the data from Sheet 3.

Try this

Sub CopyForCSV()
Dim wb As Workbook
Dim ws As Worksheet
Sheets("Sheet3").Activate
Cells.Copy
Workbooks.Add
Cells.PasteSpecial xlPasteAll
Set wb = Workbooks.Open("M:\Access Files\CopySheet.xls")
Sheets("Play").Activate
Range("A2").Copy
ActiveWorkbook.Close
Rows(1).Insert
Range("a1").PasteSpecial xlPasteAll
ActiveWorkbook.SaveAs Filename:="M:\Access Files\" & Range("A1") & ".csv" _
, FileFormat:=xlCSV, CreateBackup:=False
Rows(1).Delete
ActiveWorkbook.Save
End Sub

 

[me_gem69]

Thanks alot for your help
how can i save the file on webserver?

 

[Trevor G]

Check this link out it should help you

http://msdn.microsoft.com/en-us/library/aa221573(v=office.11).aspx