Изменить формат при экспорте в CSV

Question

У меня есть этот макрос для экспорта в Excel в CSV:

Sub To_CSV()
Dim tmpWS As Worksheet
Application.DisplayAlerts = False

For Each WS In ThisWorkbook.Worksheets

If WS.Range("B1").Value <> "" Then
     If WS.Range("c1").Value <> "" Then
         filePath = Environ("USERPROFILE") & "\Desktop\" & "Pozo de Bombeo " & WS.Range("B1").Value & ".csv"
     Else
         filePath = Environ("USERPROFILE") & "\Desktop\" & "Pozo de Observacion " & WS.Range("B1").Value & ".csv"
     End If
     WS.Copy
     Set tmpWS = ActiveSheet
     tmpWS.SaveAs Filename:=filePath, FileFormat:=xlCSV
     tmpWS.Parent.Close False

End If
Next


Application.DisplayAlerts = True
End Sub

Но когда я открываю CSV "POZO DE BOMBEO", формат некоторых дат менялся, по-видимому, случайно.

Answer 1

Это пример моего вывода:

11/27/2018 11:19 27.11.2008 11:20 27.11.2008 11:25 27.11.2008 11:30 11/ 27/2018 11:35 27.11.2008 11:40 27.11.2008 11:45 27.11.2008 13:00 27.11.2008 16:00 27.11.2008 17:15 27-11-2018 22:10 27-11-2018 23:40 28-11-2018 1:10 28-11-2018 2:30 28-11-2018 3:40 28-11-2018 4:10 28-11-20185: 10

Исходный ввод был ДД-ММ-ГГГГ ЧЧ: ММ, но, как вы видите, по какой-то причине он изменился.К счастью, я смог найти решение:

tmpWS.SaveAs Filename:=filePath, FileFormat:=xlCSV, local:=True 

Только что добавил: "local: = True" в методе Workbook.SaveAs.