在VBA中转换为文本时保持日期格式

Question

我正在努力处理Excel / VBA中的日期

我有一个带有日期列的电子表格，按预期以英国格式显示。

然后，我要处理电子表格并将其另存为文本文件，以便将数据加载到另一个系统中。

我的问题出在我将文件保存为两件事情时，首先是由于美国对Excel的偏见，它试图“翻转”日期，因此例如2012年7月1日从2012年7月1日到2012年7月1日

其次，当我保存文件并重新打开文本文件时，似乎已经删除了零，所以我的日期现在不仅以错误的方式读取，而且没有零，因此显示7/1/2012

我要导入的系统非常明确地接受日期格式。

我尝试了各种

ActiveCell.FormulaR1C1 = "=TEXT(RC[-1],""dd/mm/yyyy"")"

Cells(x, 3).Value = Left(CStr(Cells(x, 3).Value), 2) + "/" + Mid(CStr(Cells(x, 3).Value), 4, 2) + "/" + Right(CStr(Cells(x, 3).Value), 4)

在Excel中，这两种方法都能保持所需的格式，这是在我将文件另存为文本时遇到的问题。

我几乎想用零填充日期，并强制将其另存为文字字符串，但我的想法已经用完了。

我敢肯定这是一个简单的解决方法，但是我需要其他人来解决这个问题，因此我们将不胜感激

Answer 1

保存到.csr文件以导入到Access时，我遇到了同样的问题。 答案是将Local:=True添加到SaveAs语句。 这会将日期保留为英国格式。

下面是我使用的代码：

' save data to csv file
ChDir "C:\Documents and Settings\Doug\My Documents\Fitness\LogCard Data"
ActiveWorkbook.SaveAs Filename:= _
 "C:\Documents and Settings\Doug\My Documents\Fitness\LogCard Data\LogCard_access.csv" _
    , FileFormat:=xlCSV, CreateBackup:=False, Local:=True