19/12/08 20:46:43.66 m4NCsCKi0.net
教えて下さい。
役所のWeb公開している、DL済みxlsxファイルの「前回更新日時」を取得して
自book特定セルに落とそうと、
Webを漁って以下のVBAを書いてみた。
※ なんでわざわざプロパティの「前回更新日時」を取得するのかというと
ただの「更新日時」では、自分がDLした日時になってしまうから。
Public Sub getFileLastSaveTimeButton()
With CreateObject("Excel.Application")
.Visible = False
With .Workbooks.Open(Cells(8, 1).Value)
Cells(8, 2).Value = .BuiltinDocumentProperties("Last save time").Value
End With
.Quit
End With
End Sub
Cell(8,1).Value の(8, 1)=A8セルに
目的のファイルのフルパスを入力済みなんだけど、
ここを定義された名前に置き換えたい。
Worksheetで普通に
A8 = R_TargetFullPath
と名前を定義して
VBA上で
With .Workbooks.Open(R_TargetFullPath)
としたら
実行時エラー '1004':
申し訳ございません。が見つかりません。
名前が変更されたか、移動や削除が行われた可能性があります。
と出てしまうのは、なんでだろ？
Public Subだから？