[commer]

Olemas netist leitud vbs skript, vaja muuta, et saaks separaatoriks semikooloni

Spoiler

if WScript.Arguments.Count < 3 Then
WScript.Echo "Please specify the sheet, the source, the destination files. Usage: ExcelToCsv <sheetName> <xls/xlsx source file> <csv destination file>"
Wscript.Quit
End If

csv_format = 6

Set objFSO = CreateObject("Scripting.FileSystemObject")

src_file = objFSO.GetAbsolutePathName(Wscript.Arguments.Item(1))
dest_file = objFSO.GetAbsolutePathName(WScript.Arguments.Item(2))

Dim oExcel
Set oExcel = CreateObject("Excel.Application")

Dim oBook
Set oBook = oExcel.Workbooks.Open(src_file)

oBook.Sheets(WScript.Arguments.Item(0)).Select
oBook.SaveAs dest_file, csv_format

oBook.Close False
oExcel.Quit

Regional settingutest separaatori muutmine semikooloniks ei toiminud

[K3ndu]

http://stackoverflow.com/questions/9216919/converting-xls-to-csv-using-vbscript-and-separate-by-semicolons

Ehk on abi, vbs on minu jaoks tume maa aga ilmselt sinna oBook.SaveAs juurde tuleb kuskile panna local väärtus.

[commer]

seda linki olen uurinud, aga ei ole saanud tulemust

[Valdars]

See K3ndu link peaks aitama regionaalsettingutega koos tööle panna ehk kas sa neid kahte koos proovisid?

[commer]

Solved

Spoiler

if WScript.Arguments.Count < 3 Then
WScript.Echo "Please specify the sheet, the source, the destination files. Usage: ExcelToCsv <sheetName> <xls/xlsx source file> <csv destination file>"
Wscript.Quit
End If

Set objFSO = CreateObject("Scripting.FileSystemObject")

src_file = objFSO.GetAbsolutePathName(Wscript.Arguments.Item(1))
dest_file = objFSO.GetAbsolutePathName(WScript.Arguments.Item(2))

Dim oExcel
Set oExcel = CreateObject("Excel.Application")

Dim oBook
Set oBook = oExcel.Workbooks.Open(src_file)

oBook.Sheets(WScript.Arguments.Item(0)).Select
oBook.SaveAs dest_file, 6,,,,,,,,,,True

oBook.Close False
oExcel.Quit