통합 문서와 함께 저장된 속성을 살펴보면 Excel에서 파일과 관련된 많은 정보를 유지하고 있음을 알 수 있습니다. 항목 중 하나는 단순히 “수정 됨”으로 표시되는 날짜 및 시간입니다. 많은 사람들이이 날짜를 “마지막 수정 날짜”라고 부르지 만 실제로는 통합 문서가 마지막으로 저장된 시간을 반영합니다.

통합 문서 (머리글 또는 바닥 글)에서이 날짜를 사용하려면 BuiltinDocumentProperties 속성 (거의 중복 된 것처럼 들림)을 사용하면됩니다. 다음 매크로는 문서의 헤더에 적절한 날짜를 추가합니다.

Sub MyHeader1()

Dim sLMD As String

On Error Resume Next

sLMD = ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")

If Err = 440 Then         Err = 0         sLMD = "Not Set"

End If     sLMD = Left(sLMD, 8)

ActiveSheet.PageSetup.LeftHeader = "Last Saved: " & sLMD End Sub

이 매크로에는 여러 항목이 있습니다. 우선 통합 문서가 마지막으로 저장된 날짜를 확인하려고합니다. 해당 정보를 확인할 수없는 경우 헤더를 “설정되지 않음”으로 설정합니다.

이 매크로에는 몇 가지 오류 처리가 수행됩니다. 그 이유는 특정 문서 속성 (이 경우에는 BuiltinDocumentProperties)이 설정되지 않은 경우 Excel에서 오류를 반환하기 때문입니다. 오류를 가로 채서 처리해야하며 여기에서 수행됩니다.

여기서 주목할 다른 항목이 있습니다. 일부 Excel 버전에서 속성이 설정되지 않은 경우 반환되는 Err 값은 실제로 440 (여기에 표시된대로)이 아니라 -2147467259와 같은 다른 홀수입니다. 이것은 참으로 매우 기괴합니다. 왜 440 값 (적절한 오류 코드)

다른 상황이 아닌 한 상황에서 반환 될 것입니다.

(아마도 다른 Excel 전문가가 답을 알고있을 것입니다.)이 문제가있는 경우 취할 수있는 두 가지 접근 방식이 있습니다. 먼저 440 값을 다른 값 (-2147467259)으로 바꿀 수 있습니다. 두 번째 옵션은 통합 문서를 이미 한 번 이상 저장했다고 가정하고 다른 매크로를 사용하는 것입니다. 다음은 파일 자체에서 “마지막 수정”속성을 읽고 해당 정보를 헤더에 저장합니다.

Sub MyHeader2()

Dim fs As Variant     Dim f As Variant     Dim sLMD As String

Set fs = CreateObject("Scripting.FileSystemObject")

Set f = fs.GetFile(ActiveWorkbook.Path & "\" & _       ActiveWorkbook.Name)

sLMD = Left(f.DateLastModified, 8)

ActiveSheet.PageSetup.LeftHeader = "Last Modified: " & sLMD End Sub

사용하는 매크로에 관계없이 매크로를 실행하면 왼쪽 헤더가 원하는 정보로 설정됩니다. 해당 정보는 매크로를 다시 실행할 때까지 다시 변경되지 않습니다. 따라서 헤더에서 항상 최신 날짜를 원하면 매크로를 주기적으로 (아마도 인쇄 직전에) 실행하거나 문서를 열 때마다 실행되도록 설정해야합니다.

_ 참고 : _

이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (2285)은 Microsoft Excel 97, 2000, 2002 및 2003에 적용됩니다. 여기에서 Excel (Excel 2007 이상)의 리본 인터페이스에 대한이 팁 버전을 찾을 수 있습니다.

link : / excelribbon-Displaying_the_Last_Modified_Date [ "마지막 수정"날짜 표시].