|
おはようございます。
ご希望の事の確認はとってませんけど....。
過去ログでりんさんも同じようなものを書いていましたから、探してみてください。
V3だったけ?
参考になるかどうかは解りません。
Sub 最終更新日()
Dim OPWB As Workbook, BDP As Object, FNm As String
'FNm = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\pprprp.xls"
'FNm = "pprprp.xls"
FNm = Application.GetOpenFilename("Excelファイル (*.xls), *.xls")
If FNm = "False" Then Exit Sub
Application.ScreenUpdating = False
On Error Resume Next
'Set OPWB = Workbooks.Open(FNm)
Set OPWB = Workbooks(FNm)
For Each BDP In OPWB.BuiltinDocumentProperties
'i = i + 1
'ThisWorkbook.Sheets(1).Range("A" & i).Value = BDP.Name
'ThisWorkbook.Sheets(1).Range("B" & i).Value = OPWB.BuiltinDocumentProperties(BDP.Name).Value
'Last save time
If BDP.Name = "Last save time" Then
'Win98se & EXL97だとエラーになっていた?。
'Win2000 & EXL97だとEmpty
'EXL2000以上じゃないとダメ?
TTM = OPWB.BuiltinDocumentProperties(BDP.Name).Value
MsgBox "最終更新日、つまり最終保存日" & TTM
Exit For
End If
Next
OPWB.Close (False)
Set OPBW = Nothing
Application.ScreenUpdating = True
End Sub
|
|