他ファイルの最終更新日付を表示する

Question

現在エクセルにて、ネットワークドライブ上の他ファイルの最終更新日付を1つのセルに表示させるように、VBAのコードを書いています。色々調べてみると、コードを発見しましたが、実行時にエラーが出てしまいます。

ソース:
Sub 更新日取得()

  ChDir "\\aaa\c"
  fullPath = "\\aaa\c\bbb.xlsm"
  最終日付更新日 = CreateObject("scripting.FileSystemObject") _
                     .GetFile(fullPath).DataLastModified
  Windows("\\aaa\c\eee\時間集計表.xlsx").Activate
  Sheets("aaa").Select
  Range("A1").Value = 最終日付更新日

End Sub

![

恐らくコードが現在のエクセルのバージョンに対応していないのかとも思ったのですが、明確な答えはいまだ分からないです。

どなたかご助言頂けますでしょうか。
宜しくお願いします。

Answer 1

誤 DataLastModified
正 DateLastModified

です

問題がどこにあるかわからないときは、どこまで正しいかを探れるように分解するとよいです

例えばこんな感じに

Sub 更新日取得() 

ChDir "\\aaa\c" 
fullPath = "\\aaa\c\bbb.xlsm" 
Dim fso, myfile
Set fso = CreateObject("scripting.FileSystemObject")
Set myfile = fso.GetFile(fullPath)
最終日付更新日 = myfile.DataLastModified 'ステップしていくとここでエラーになる
Windows("\\aaa\c\eee\時間集計表.xlsx").Activate 
Sheets("aaa").Select 
Range("A1").Value = 最終日付更新日 

End Sub 

Comments

[Strauss]

アドバイスありがとうございます。引き続き試していこうと思います。