Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

5377 / 76732

←次へ　｜　前へ→


	【76968】ハイパーリンクのファイルの更新日時取得

- 15/4/23(木) 11:23 -


	引用なし

	パスワード

すみません、何が問題かわからないので、ご教示願います。

ハイパーリンクのファイルの更新日時を取得したいのですが、
マクロを実行しても、実際に更新された日時に変わりません。
おそらく、当日の更新に対応できていないように思われます。

※例えば、23日10:00に実行したとき、23日9:00に更新されたファイルがあっても、それは反映されず、
22日時点で更新されたものだけが反映されている状況です。　

Excel2007です。

Sub Auto_Open()
　　Dim rng As Range
　　Dim FileName As String
　　Dim fso As New FileSystemObject

　　ChDir ThisWorkbook.Path
　　For Each rng In ActiveSheet.UsedRange
　　　　If rng.Hyperlinks.Count > 0 Then
　　　　　　FileName = fso.GetAbsolutePathName(rng.Hyperlinks(1).Address)
　　　　　　If fso.FileExists(FileName) Then
　　　　　　　　rng.Offset(0, 1) = fso.GetFile(FileName).DateLastModified
　　　　　　End If
　　　　End If
　　Next
　　
　
よろしくおねがいします。

222 hits

▼

【76968】ハイパーリンクのファイルの更新日時取得 ko 15/4/23(木) 11:23