Export u csv file

Code:

Private Sub SacuvajUCSV()
    Dim Dlg As Object
    
    Set Dlg = CreateObject("MSComDlg.CommonDialog")
    Dlg.DialogTitle = "Izvoz u CSV"
    Dlg.CancelError = True
    Dlg.DefaultExt = "csv"
    
    On Error Resume Next
    Dlg.ShowSave
   
    If Err.Number <> 0 Then
        On Error GoTo 0
        Exit Sub
    End If

    Me.SaveAs Dlg.Filename, xlCSV
    On Error GoTo 0
    
    Set Dlg = Nothing
    
End Sub

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