从一个Excel应用程序复制到工作表而不更改dateVBA EXCEL

我试图从一个应用程序表复制整个工作表到另一个打开一个下面的代码

'Open Application MsgBox "Select Report" Dim my_FileName3 As Variant my_FileName3 = Application.GetOpenFilename("Excel Files (*.xl*)," & _ "*.xl*", 1, "Select ManMan File", "Open", False) If my_FileName <> False Then Workbooks.Open Filename:=my_FileName3 End If 'Set Active var3 = ActiveWorkbook.Name 'Copy Everything Dim lastRow3 As Long lastRow3 = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row ActiveSheet.Range("a1:z" & lastRow3).Copy Destination:=Workbooks (var1).Sheets("Sheet4").Range(Var1R) 'Close Worksheet Workbooks(var3).Close False 

上面的代码工作，但问题是date已经完全改变。

任何想法我可能做错了什么？ 忽略空行。

Answer 1

date的不同可以解释为两个工作簿之间的date系统使用不一致。 一个将使用1904年的date系统，一个将不会：

如果目标工作簿正在使用1904年date系统，则需要从每个复制的值中减去1462，以便将其转换回与您开始的date相同的date。