Excel VBA質問箱 IV

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

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


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

34189 / 76807

←次へ　｜　前へ→


	【47833】Re:ファイルプロパティの取得

Kein - 07/3/23(金) 12:54 -


	引用なし

	パスワード

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できるようですが
ｈｔｔｐ://support.microsoft.com/kb/224351/ja
私の使っているExcel2000でも、すでに
DS OLE GetDocument Properties 1.4 Object Library
が参照できるようになってました。いちおう上のコードは実行時バインドなんで、
ライブラリへの参照はしなくても問題ありませんが、まず探してみて、無ければ
MSのサイトからDLし、見つかればついでにチェックを付けておいたら良いと思います。

2 hits

▼

【47826】ファイルプロパティの取得 kanae 07/3/23(金) 9:55