Формат даты CSV-файла, сгенерированного с помощью макроса

Question

Я пытаюсь экспортировать данные из файла excel в файл csv с помощью макроса. Он отлично работает, за исключением части, в которой формат даты из файла excel (dd-mmm-yyyy) изменяется на (dd-mmm-yy) в файле csv. Я хотел бы сохранить формат даты как (dd-mmm-yyyy) в файле csv.

Может ли кто-нибудь помочь мне? Часть кода, который записывает данные в файл CSV является

c1 = 2 
Dim tempDate As String 
Dim tempDate2 As String 

tempDate = Format(Sheets("Source").Cells(c1, 2).value, "dd-mmm-yyyy") 
tempDate2 = Format(Sheets("Source").Cells(c1, 3).value, "dd-mmm-yyyy") 


txtfile.WriteLine (Sheets("Source").Cells(c1, 1).value & sSep & tempDate & sSep & _ 
tempDate2 & sSep & Sheets("Source").Cells(c1, 4).value & sSep & _ 
temp1 & sSep & Sheets("Source").Cells(c1, 6).value & sSep & Sheets("Source").Cells(c1, 7).value & sSep & _ 
Sheets("Source").Cells(c1, 8).value) 
c1 = c1 + 1 

Answer 1

Это звучит как CSV-файлы планируется открыть с помощью Microsoft Excel. Вы можете изменить диалог «Открывает с», чтобы использовать другую программу, возможно, Notepad.exe.

Когда вы открываете файл CSV с помощью Microsoft Excel, формат даты по умолчанию Excel применяется ко всем датам, поскольку форматирование не указано. Файлы CSV не могут содержать информацию о форматировании.

Возможное решение: префикс вашей отформатированную строку даты с = символ и завернуть его в кавычки, он рассматривается как строка, как это:

="1/12/2014" 

Вы можете альтернативно префиксом дату с апострофом, который также вызывает Excel для обработки его как строки:

'1/12/2014 

Другим третьим возможным решением могло бы стать создание фактического файла Excel.