在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