Excel 매크로 : "yyyy-MM-dd hh : mm : ss"형식으로 타임 스탬프를 얻으려면 어떻게해야합니까?

DateTime.Now현재 타임 스탬프를 표시하기 위해 Excel 매크로에서 사용 하고 있습니다.

타임 스탬프는 "dd-MM-yyyy hh : mm : ss"형식으로 표시됩니다.

대신 "yyyy-MM-dd hh : mm : ss"형식의 타임 스탬프를 어떻게 얻을 수 있습니까?

시도해보십시오 : format(now(), "yyyy-MM-dd hh:mm:ss")

DateTime.Now데이터 유형 값을 반환합니다 Date. 날짜 변수는 컴퓨터에 설정된 간단한 날짜 형식 및 시간 형식에 따라 날짜를 표시합니다.

다른 Format답변에서 언급 한 것처럼 함수에 의해 유효한 날짜 형식으로 표시하기 위해 문자열로 형식화 될 수 있습니다.

Format(DateTime.Now, "yyyy-MM-dd hh:mm:ss")

Format(Now(), "yyyy-MM-dd hh:mm:ss")

코드의 일부 사용자가 언어 설정 형식이 다른 경우 작동하지 않을 수 있습니다. 따라서 언어에 관계없이 "yyymmdd hhMMss"형식으로 타임 스탬프를 제공하는 다음 코드를 사용합니다.

Function TimeStamp()
Dim iNow
Dim d(1 To 6)
Dim i As Integer


iNow = Now
d(1) = Year(iNow)
d(2) = Month(iNow)
d(3) = Day(iNow)
d(4) = Hour(iNow)
d(5) = Minute(iNow)
d(6) = Second(iNow)

For i = 1 To 6
    If d(i) < 10 Then TimeStamp = TimeStamp & "0"
    TimeStamp = TimeStamp & d(i)
    If i = 3 Then TimeStamp = TimeStamp & " "
Next i

End Function

유형 아래에서 세관 ​​카테고리를 클릭 하여이 형식 yyyy-mm-dd hh : MM : ss 를 형식 셀에 복사하여 붙여 넣으십시오 .

이것은 나를 위해 가장 잘 작동했습니다.

        Cells(partcount + 5, "N").Value = Date + Time
        Cells(partcount + 5, "N").NumberFormat = "mm/dd/yy hh:mm:ss AM/PM"

통합 문서 경로 저장의 타임 스탬프입니다. " :"을 (를) 변경해야합니다. " :"-> " ."을 (를) 사용했는데 이는 " xlsx" 확장자를 다시 추가해야 함을 의미합니다 .

wb(x).SaveAs ThisWorkbook.Path & "\" & unique(x) & " - " & Format(Now(), "mm-dd-yy, hh.mm.ss") & ".xlsx"

이렇게 쉽게 작동 할 수 있습니다. 원하는 위치를 선택하세요.이 경우에는 D3를 선택합니다.

Sheets("Put your Sheet's name here").Range("D3") = Now

예, 내 시트는 Sources

Sheets("Sources").Range("D3") = Now

포맷 기능을 사용하십시오.

Format(Date, "yyyy-mm-dd hh:MM:ss")