Save an Excel file as a CSV

[AnaFlor]

Hello,

I am trying to do in vb script the following:
- I open a excel file, go to the spreadsheet 2 and save that spreadsheet as a csv file. Then, I close both documents and delete the excel file, just remaining the csv file.

Can you help me doing this?

Thanks

 

[tsuji]

Hello Anaflor,

Something like this.

const xlCSV=6
xlfile="d:\test\abc.xls"
csvfile="d:\test\def.csv"
set fso=createobject("scripting.filesystemobject")
if not fso.fileexists(xlfile) then
    wscript.echo "XL file does not exist. Operation aborted."
    wscript.quit(1)
end if
set oxl=createobject("excel.application")
'oxl.visible=true
set owbk=oxl.workbooks.open(xlfile)
oxl.displayalerts=false
owbk.worksheets(2).saveas csvfile, xlCSV
owbk.close
'oxl.displayalerts=true
oxl.quit
set osheet=nothing
set owbk=nothing
set oxl=nothing
fso.deletefile xlfile
set fso=nothing

regards - tsuji

 

[AnaFlor]

tsuji, it worked perfectly

thanks