Excel 日期格式在运行代码后更改

Question

当我运行此代码时，它会将日期格式从 dd:mm:yy 更改为 mm:dd:yy。

请给我一些建议。虽然它完成了我的工作，但如何保持日期格式不变？

Sub copyAllselectedWbtoSheets()
Set destWB = ActiveWorkbook
Dim DestCell As Range
FileNames = Application.GetOpenFilename( _
        filefilter:="Excel Files (*.csv*),*.csv*", _
        Title:="Select the workbooks to load.", MultiSelect:=True)
If IsArray(FileNames) = False Then
    If FileNames = False Then
        Exit Sub
    End If
End If
For N = LBound(FileNames) To UBound(FileNames)
    Set wb = Workbooks.Open(fileName:=FileNames(N), ReadOnly:=True)
    With wb
      .Sheets(1).Copy After:=destWB.Sheets(destWB.Sheets.Count)
      ActiveSheet.Name = Replace(wb.Name, ".csv", "ABC") 'Name sheet
      .Close True
    End With
Next N
End Sub

Answer 1

• Excel can get influenced by your system date/time settings.

• 区域设置对您使用 Excel 有何影响？ How to Format VBA TextBox To Long Date.

因此，如果您还没有阅读这些帖子，只需发送date formatting。但这是暂时的。如果您需要一劳永逸的解决方案，您仍然必须进行上述区域设置更改。

Format(yourdate, "dd:mm:yy")