KAKO v dosu xls datoteko pretvoriš  v csv ascii datoteko ?
----------------------------------------------------

Pogoj - pc sistem mora imeti naložen paket Microsoft Office

A)
Narediš komandno ascii datoteko (tip vbs - Visual Basic Script), 
recimo z imenom  ex_csx01.vbs z vsebino spodaj


if WScript.Arguments.Count < 2 Then
    WScript.Echo "Please specify the source and the destination files. Usage: ExcelToCsv <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(0))
dest_file = objFSO.GetAbsolutePathName(WScript.Arguments.Item(1))

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

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

oBook.SaveAs dest_file, csv_format

oBook.Close False
oExcel.Quit

----------------------------

B)
Greš v dos komandno vrstico (recimo zaženeš terminal cmd.exe v windowsih)
In v mapi, kjer imaš excelov file (recimo t35213_7.xls) poženeš pretvorbo v csv ascii format

C:\up\Delo\d2015\a_podatki_stranke15\termo_gumbek\skripta_dos>ex_csx01.vbs t35213_7.xls x1.csv

Datoteka x1.csv ima sedaj recimo tako txt obliko

30/06/2013,20:00:01,22.1
30/06/2013,20:15:01,22.1
30/06/2013,20:30:01,22
30/06/2013,20:45:01,22
30/06/2013,21:00:01,21.9
30/06/2013,21:15:01,21.8
30/06/2013,21:30:01,21.7
30/06/2013,21:45:01,21.6
30/06/2013,22:00:01,21.6
30/06/2013,22:15:01,21.7
30/06/2013,22:30:01,21.6
30/06/2013,22:45:01,21.6
30/06/2013,23:00:01,21.6
30/06/2013,23:15:01,21.5
30/06/2013,23:30:01,21.5
30/06/2013,23:45:01,21.5
01/07/2013,00:00:01,21.4
01/07/2013,00:15:01,21.3
01/07/2013,00:30:01,21.3
01/07/2013,00:45:01,21.2



----------------------------

C)
Več samodejnih pretvorb xls v csv naenkrat - kako

Narediš bat izvedljivo proceduro, ki večkrat požene proceduro ex_csx01.vbs, recimo
for_vbs.bat
z vsebino

cd C:\up\Delo\d2015\a_podatki_stranke15\termo_gumbek\skripta_dos
FOR /f "delims=" %%i IN ('DIR *.xls /b') DO ex_csx01.vbs "%%i" "%%i.csv"


in jo poženeš

C:\up\Delo\d2015\a_podatki_stranke15\termo_gumbek\skripta_dos>for_vbs.bat

med izvajanjem se izpiše kaj takega kot spodaj

C:\up\Delo\d2015\a_podatki_stranke15\termo_gumbek\skripta_dos>ex_csx01.vbs
 "t35213_7.xls" "t35213_7.xls.csv"
...




-----2015--------
Povzel ZV