|
ファイルのプロパティー取得方法
-----------------------------------
Sub Get_WorkbookProperties()
With ThisWorkbook
' タイトル
Cells(i, 4).Value = .BuiltinDocumentProperties("Title").Value
' サブタイトル
Cells(i, 5).Value = .BuiltinDocumentProperties("Subject").Value
' 作成者
Cells(i, 6).Value = .BuiltinDocumentProperties("Author").Value
End With
End Sub
-----------------------------------
でプロパティー取得ができることがわかったのですが、
fileネーム(tempfilename)をdir関数で取得しておいて、
With tempfilename
' タイトル
Cells(i, 4).Value = .BuiltinDocumentProperties("Title").Value
End With
とか
Cells(i, 4).Value = tempfilename.BuiltinDocumentProperties("Title").Value
という具合にはできないのでしょうか?
ご教授よろしくお願いします。
|
|