|
DsoFile.dllを使うと、こんな感じでしょーか ?
Sub Books_Propertie_Check()
Dim Fol As String, MyF As String
Dim i As Long
Dim PropReader As Object
Set PropReader = CreateObject("DSOleFile.PropertyReader")
Range("A1:H1").Value = Array("BookName", "Title", "Subject", _
"Author", "Company", "Category", "Keywords", "Comments")
Fol = Application.DefaultFilePath & "\"
i = 2: MyF = Dir(Fol & "*.xls")
Do Until MyF = ""
With PropReader.GetDocumentProperties(Fol & MyF)
PAry = Array(MyF, .Title, .Subject, .Author, .Company, _
.Category, .Keywords, .Comments)
End With
Range(Cells(i, 1), Cells(i, 8)).Value = PAry
i = i + 1: MyF = Dir()
Loop
Set PropReader = Nothing
End Sub
DsoFile.dll は、最新バージョンが以下のサイトからDLできるようですが
http://support.microsoft.com/kb/224351/ja
私の使っているExcel2000でも、すでに
DS OLE GetDocument Properties 1.4 Object Library
が参照できるようになってました。いちおう上のコードは実行時バインドなんで、
ライブラリへの参照はしなくても問題ありませんが、まず探してみて、無ければ
MSのサイトからDLし、見つかればついでにチェックを付けておいたら良いと思います。
|
|