2011-07-28 6 views
4

Excel 2010에서 VBA를 사용하여 현재 통합 문서 파일 작성 날짜를 얻는 방법은 무엇입니까? ThisWorkBook의 모든 속성을 탐색했지만 거기에 뭔가가없는 것 같습니다.Excel 2010 VBA 작성일

답변

8
MsgBox ActiveWorkbook.BuiltinDocumentProperties("Creation Date") 
'Output: 25.07.2011 14:51:11 

이 항목은 Excel 2003에서 사용할 수 있으며 테스트 할 수있는 2010 년은 없습니다. Office 2010의 MSDN Doc 링크에는 다른 사용 가능한 속성 목록도 있습니다.

+1

를 실행 나열합니다. 고맙습니다. (9 분 안에 답을 받아 들일 것입니다.) 그렇습니다. :) – CoolStraw

1

사용 Scripting.FileSystemObject

Dim oFS As Object 
Dim creationDate As String 

Set oFS = CreateObject("Scripting.FileSystemObject") 
creationDate = oFS.GetFile(ThisWorkbook.FullName).DateCreated 
+0

나는이 해결책을 발견했으나 나는 cularis가 제안한 것과 같이 그것을하기위한 더 부드러운 방법을 찾고있었습니다. 고마워요 :) – CoolStraw

+1

당신은 또한 마지막으로 생성 된 모드에 대해'filedatetime (ThisWorkbook.fullname)'을 쓸 수 있습니다 –

+0

알렉스 당신의 기능은 현재 시간을 알려줍니다. 창조 날짜는 알려주지 않습니다. Thx, 친절한 안부 – CoolStraw

1

ActiveWorkbook.BuiltinDocumentProperties.Item("Creation date").Value 

사용

는 모든 속성이 바로 완벽한이 매크로

Public Sub listProperties() 
rw = 1 
Worksheets(1).Activate 
For Each p In ActiveWorkbook.BuiltinDocumentProperties 
    Cells(rw, 1).Value = p.Name 
    On Error Resume Next 
    Cells(rw, 2).Value = p.Value 
    rw = rw + 1 
Next 
End Sub