vba - コードの実行後に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 は、システムの日付/時刻設定の影響を受ける可能性があります。

• また、Excel を使用している場合、地域設定はあなたにどのような影響を与えるでしょうか? VBA TextBox を長い日付にフォーマットする方法。

したがって、これらの投稿を読んでいない場合は、単にdate formatting. しかし、これは一時的なものです。一度限りの解決策が必要な場合は、上記の地域設定の変更を行う必要があります。

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