Converting Excel to CSV format

[me_gem69]

I am trying to convert excel to csv format & am successful in this part.
I am facing a problem when i give the path of my server to save the file
but when i store it on my local machine it works fine.
Plz help me with this how can i pass the server location

Code:
--------------------------
Public Sub SaveWorksheetsAsCsv()
Dim WS As Excel.Worksheet
Dim SaveToDirectory As String

SaveToDirectory = "C:\"

For Each WS In ThisWorkbook.Worksheets
WS.SaveAs SaveToDirectory & WS.Name, xlCSV
Next

End Sub

 

[Ruddles]

You don't say what the server path is but you would specify it like this:-

ServerPath=[URL="file://\\servername\sharename\subfolder\"]\\servername\sharename\subfolder\[/URL]

Check this Wiki page: http://en.wikipedia.org/wiki/Path_(computing) (scroll down to Uniform Naming Convention).

 

[me_gem69]

After giving the server path is giving an error
Run Time error '1004':
Method 'SaveAs' of object '_Worksheet' failed.

Code:
------------------------------------------------
Public Sub SaveWorksheetsAsCsv()
Dim WS As Excel.Worksheet
Set WS = ThisWorkbook.Sheets("All Parts")


WS.SaveAs Filename:="/opt/shared/apps/vistaarspares/3.7.5/vito/bin/Parts.csv", FileFormat:=xlCSV

End Sub

 

[Ruddles]

Yes but you didn't format the UNC name like I showed you. (Sorry, I didn't notice that the forum software stripped away the quotes but I think realised that.)

It should look like this:-

Filename:="\\servername\sharename\subfolder\"

Is opt the name of your server?

Did you check that Wiki page?

 

[me_gem69]

no opt is the name of the folder
its an Unix based server

/opt/shared/apps/vistaarspares/3.7.5/vito/bin/ ---is the folder location

Ya i checked the wiki page but didnt help