A evo ti i resenje preko vbs fajla: Potrebno je samo da u notepad pastujes sledeci kod i sacuvas ga kao Export.csv
Code:
ExcelUCSV
'Procedura koja eksportuje prvi sheet iz book-a u csv
Sub ExcelUCSV()
Dim ExcelApp
Dim ExcelBook
Dim Putanja
Putanja = Replace(WScript.ScriptFullName, "vbs", "xls")
'Kreiranje neophodnih excel objekata
Set ExcelApp = CreateObject("Excel.Application")
Set ExcelBook = ExcelApp.Workbooks.Open(Putanja)
ExcelBook.Sheets(1).SaveAs Replace(Putanja, "xls","csv"), 6
ExcelBook.Close True
If ExcelApp.Workbooks.Count = 0 Then
ExcelApp.Quit
End If
Set ExcelApp = Nothing
MsgBox "Eksport je zavrsen!"
End Sub
Kad god ti bude trebao export od nekog excel fajla u csv, samo prekopiraj ovaj fajl u folder gde je excel i daj mu isti naziv, pa ga zatim izvrsi i vbs ce ti formirati csv fajl od tog tvog excela pod istim nazivomu tom istom folderu, a neces morati da otvaras excel ;)
Evo ti i fajlovi kao primer kako to radi: