Excel, VBA : auto save to CSV with semicolon« Wróć do listy pytań

Sub SaveWorksheetsAsCsv()
 
Dim WS As Excel.Worksheet
Dim SaveToDirectory As String
 
Dim CurrentWorkbook As String
Dim CurrentFormat As Long
 
CurrentWorkbook = ThisWorkbook.FullName
CurrentFormat = ThisWorkbook.FileFormat
SaveToDirectory = "C:\test\"
For Each WS In ThisWorkbook.Worksheets
    Sheets(WS.name).Copy
    ActiveWorkbook.SaveAs Filename:=SaveToDirectory & "questions.csv", FileFormat:=xlCSV, Local:=True
 
    ActiveWorkbook.Close savechanges:=False
    ThisWorkbook.Activate
Next
 
Application.DisplayAlerts = False
ThisWorkbook.SaveAs Filename:=CurrentWorkbook, FileFormat:=CurrentFormat
Application.DisplayAlerts = True
 
End Sub