Excel VBA質問箱 IV

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

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


34114 / 76732 ←次へ | 前へ→

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

1 hits

【47826】ファイルプロパティの取得 kanae 07/3/23(金) 9:55 質問
【47827】Re:ファイルプロパティの取得 ウッシ 07/3/23(金) 10:27 発言
【47829】Re:ファイルプロパティの取得 kanae 07/3/23(金) 10:32 質問
【47831】Re:ファイルプロパティの取得 ウッシ 07/3/23(金) 11:48 発言
【47832】Re:ファイルプロパティの取得 りん 07/3/23(金) 12:39 発言
【47833】Re:ファイルプロパティの取得 Kein 07/3/23(金) 12:54 回答
【47835】Re:ファイルプロパティの取得 kanae 07/3/23(金) 14:11 お礼

34114 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free