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