23

Excel VBA を使用して、拡張属性を含むディスク上のファイルからすべてのファイル属性を取得しようとしています。ファイルをループして基本的な属性（ファイルシステムから取得）をキャプチャすることができました：

  • ファイルパス
  • ファイル名
  • ファイルサイズ
  • 作成日
  • 最終アクセス日
  • 最終更新日
  • ファイルの種類

ファイル自体から取得される拡張プロパティも取得したいと思います。

  • 著者
  • キーワード
  • コメント
  • 最後の作成者
  • カテゴリー
  • 主題

ファイルを右クリックすると表示されるその他のプロパティ。

目標は、ファイル サーバー上のすべてのファイルの詳細なリストを作成することです。

4

5 に答える 5

25

あなたはループと言います..したがって、現在のドキュメントの代わりにdirに対してこれを実行したい場合は、

Dim sFile As Variant
Dim oShell: Set oShell = CreateObject("Shell.Application")
Dim oDir:   Set oDir = oShell.Namespace("c:\foo")

For Each sFile In oDir.Items
   Debug.Print oDir.GetDetailsOf(sFile, XXX) 
Next

ここで、XXXは属性列インデックスであり、たとえばAuthorの場合は9です。参照に使用できるインデックスを一覧表示するには、forループを;に置き換えることができます。

for i = 0 To 40
   debug.? i, oDir.GetDetailsOf(oDir.Items, i)
Next

単一のファイル/属性の場合：

Const PROP_COMPUTER As Long = 56

With CreateObject("Shell.Application").Namespace("C:\HOSTDIRECTORY")
    MsgBox .GetDetailsOf(.Items.Item("FILE.NAME"), PROP_COMPUTER)
End With
于 2011-04-13T16:20:53.533 に答える
8

で取得できます.BuiltInDocmementProperties。

例えば：

Public Sub PrintDocumentProperties()
    Dim oApp As New Excel.Application
    Dim oWB As Workbook
    Set oWB = ActiveWorkbook

    Dim title As String
    title = oWB.BuiltinDocumentProperties("Title")

    Dim lastauthor As String
    lastauthor = oWB.BuiltinDocumentProperties("Last Author")

    Debug.Print title
    Debug.Print lastauthor
End Sub

これでアクセスできるすべてのフィールドについては、このページを参照してください: http://msdn.microsoft.com/en-us/library/bb220896.aspx

クライアントの外部でこれを実行しようとしている場合 (つまり、Excel を閉じて .NET プログラムからコードを実行している場合)、DSOFile.dllを使用する必要があります。

于 2011-04-13T15:57:15.177 に答える