excel - 将工作表复制到另一个工作簿的日期问题

Question

将工作表导出到另一个工作簿时出现问题。我使用 VBA 将几列复制到另一个工作簿，但是当 vba 将值粘贴到新工作簿中时，日期类型的列以错误格式作为字符串进入新工作簿。

在原始文件中我有一个日期 DD/MM/YYYY，而在新工作簿中我有一个文本 MM/DD/YYYY。一开始我以为只是excel格式的问题，但是如果我把它变成日期，就会出现以下情况：

2021 年 6 月 1 日变为 2021 年 1 月 6 日

Sub ExpFor_Click()
Dim Path, That, RelNew, FilNew As String
Dim RowCou As Integer
Dim Store

That = "\" & InputBox("salvar como")

If That = "" Then Else
Call Declara

Path = Application.ActiveWorkbook.Path
File = That & ".xls"
RowCou = RelDesTable.ListRows.Count

Application.ScreenUpdating = False

Store = RelDesTable.Range.Value
Header = RelDes.Range("I3:N3").Value


Workbooks.Add
ActiveWorkbook.SaveAs Filename:=Path & That & ".xls"

With Workbooks.Open(Path & File).Sheets("Plan1")

.Range(.Cells(1, 1), .Cells(RowCou, 18)).Value = Store
ActiveWorkbook.Save
ActiveWorkbook.Close


End With

On Error GoTo 0
End Sub 

标签： excelvba