【ExcelVBA】エクセルブックのドキュメントプロパティの取得・書き込み

Sub Sample1()

    With Workbooks.Open("C:フォルダパス\ブックA.xlsx")
    
        'プロパティを設定
        .BuiltinDocumentProperties("Title").Value = "たいとる"
        .BuiltinDocumentProperties("Subject").Value = "けんめい"
        .BuiltinDocumentProperties("Keywords").Value = "たぐ"
        .BuiltinDocumentProperties("Category").Value = "ぶんるいこうもく"
        .BuiltinDocumentProperties("Comments").Value = "こめんと"
        
        'ブックを保存して閉じる
        .Close SaveChanges:=True
        
    End With

End Sub

Sub Sample1()

    With Workbooks.Open("C:フォルダパス\ブックA.xlsx")
    
        'プロパティを設定
         ThisWorkbook.Worksheets(1).Range("B3") = .BuiltinDocumentProperties("Title").Value 'タイトル
         ThisWorkbook.Worksheets(1).Range("B4") = .BuiltinDocumentProperties("Subject").Value '件名
         ThisWorkbook.Worksheets(1).Range("B5") = .BuiltinDocumentProperties("Keywords").Value 'タグ
         ThisWorkbook.Worksheets(1).Range("B6") = .BuiltinDocumentProperties("Category").Value '分類項目
         ThisWorkbook.Worksheets(1).Range("B7") = .BuiltinDocumentProperties("Comments").Value 'コメント
        
        'ブックを閉じる
        .Close SaveChanges:=False
        
    End With

End Sub

Sub Sample1()
    Dim Shell As Object
    Dim Folder As Object
    Dim Target As String
    Dim row As Long
    
    Const Path As String = "C:フォルダパス\"
    
    Set Shell = CreateObject("Shell.Application")
    Set Folder = Shell.Namespace(Path)
    Target = Dir(Path & "*.xlsx")
    
    row = 1
    
    Do While Target <> ""
        row = row + 1
        Cells(row, 1) = Folder.GetDetailsOf(Folder.ParseName(Target), 0)    'ファイル名
        Cells(row, 2) = Folder.GetDetailsOf(Folder.ParseName(Target), 20)   '作成者
        Cells(row, 3) = Folder.GetDetailsOf(Folder.ParseName(Target), 21)   'タイトル
        Cells(row, 4) = Folder.GetDetailsOf(Folder.ParseName(Target), 22)   '件名
        Cells(row, 5) = Folder.GetDetailsOf(Folder.ParseName(Target), 18)   'タグ
        Cells(row, 6) = Folder.GetDetailsOf(Folder.ParseName(Target), 23)   '分類項目
        Cells(row, 7) = Folder.GetDetailsOf(Folder.ParseName(Target), 24)   'コメント
        Target = Dir()
    Loop
    
    Set Folder = Nothing
    Set Shell = Nothing
End Sub