Vba에서 filedatetime 함수를 사용하는 방법(예제 포함)

VBA에서 FileDateTime 함수를 사용하여 파일이 생성되었거나 마지막으로 수정된 날짜와 시간을 반환할 수 있습니다.

실제로 이 기능을 사용하는 일반적인 방법은 다음과 같습니다.

 SubCheckLastModify ()

    Dim wb_name As String
    
    wb_name = InputBox("Please enter the workbook name:")
    
    MsgBox FileDateTime(wb_name)
    
End Sub

이 매크로가 실행되면 사용자가 Excel 통합 문서의 이름을 입력할 수 있는 입력 상자가 나타납니다.

그러면 매크로는 특정 통합 문서가 만들어졌거나 마지막으로 수정된 날짜와 시간이 포함된 메시지 상자를 생성합니다.

다음 예에서는 실제로 이 구문을 사용하는 방법을 보여줍니다.

예: VBA에서 FileDateTime 함수를 사용하는 방법

다음 위치에 My_Workbook.xlsx 라는 Excel 통합 문서가 있다고 가정해 보겠습니다.

C:\Users\bob\Documents\my_workbook.xlsx

이 통합 문서가 마지막으로 생성되거나 수정된 시기를 확인하고 싶다고 가정해 보겠습니다.

이를 위해 다음 매크로를 생성할 수 있습니다:

 SubCheckLastModify ()

    Dim wb_name As String
    
    wb_name = InputBox("Please enter the workbook name:")
    
    MsgBox FileDateTime(wb_name)
    
End Sub

이 매크로를 실행하면 입력 상자에 통합 문서 경로를 입력할 수 있는 상자가 나타납니다.

확인을 클릭하면 매크로가 다음 메시지 상자를 생성합니다.

매크로는 통합 문서가 07/28/2023 9:27:01 에 마지막으로 수정되었음을 알려줍니다.

파일이 수정된 날짜만 원하는 경우 다음과 같이 FileDateTime 함수를 DateValue 함수로 래핑할 수 있습니다.

 SubCheckLastModify ()

    Dim wb_name As String
    
    wb_name = InputBox("Please enter the workbook name:")
    
    MsgBox DateValue(FileDateTime(wb_name))
    
End Sub

이제 매크로를 실행하고 파일 경로를 입력하면 메시지 상자에는 시간 없이 필드가 마지막으로 수정된 날짜만 표시됩니다.

참고 : 여기에서 VBA의 FileDateTime 함수에 대한 전체 설명서를 찾을 수 있습니다.

추가 리소스

다음 자습서에서는 VBA에서 다른 일반적인 작업을 수행하는 방법을 설명합니다.

VBA: 통합 문서의 시트 수를 계산하는 방법
VBA: 통합 문서를 저장하고 닫는 방법
VBA: 통합 문서가 열려 있는지 확인