VBA를 사용하여 .PDF (파일)의 확장 파일 속성을 Excel에서

Question

아래에 무엇이 잘못되었는지 이해하려고합니다. Bassicaly I 일련의 파일을 Excel 시트에 나열하고 있습니다. 각 파일에 태그를 추가하십시오. ".BuiltinDocumentProperties ("Keywords "). Value"를 사용하기 때문에 사무실 파일에는 문제가되지 않습니다.

그러나 PDF 파일의 경우 확장 된 속성에 액세스하기 위해 ".GetDetailsof()"를 사용하는 것이 간단 할 것이라고 생각했습니다.

음 ...

내가 사용할 때

sValue = objFile.DateLastModified 
'Returns the actual Value e.g. 09/11/2012 07:01:48 

의견이나 제안이 많이 이해할 수있을 것이다 동안 나는 아래 얻을 어떤 이유로,

sValue = oDir.GetDetailsOf(oDir.Items, 18) 

'Returns the "Date Modified" 

합니다.

P.S.1 이미 확장 파일 속성과 관련된 Link을 읽었습니다. 나는 아무것도 놓치지 않기를 바란다.

P.S.2 내가 File Meta Data

Answer 1

을 사용하여 PDF 파일에 값을 추가 할 수 있도록 여기에 액세스하는 어떤 속성을 사용할 수 있습니다 및 방법에 대한 개요를 제공하는 코드입니다.

가에서 적응 : http://windowssecrets.com/forums/showthread.php/157834-VBA-FileSystemObject-Properties-Dimensions-Size-and-Vertical-resolution

Sub GetDetails() 
    Dim oShell As Object 
    Dim oFile As Object 
    Dim oFldr As Object 
    Dim lRow As Long 
    Dim iCol As Integer 
    Dim vArray As Variant 
    vArray = Array(0, 1, 3, 4, 18) 


    Set oShell = CreateObject("Shell.Application") 
    lRow = 1 
    With Application.FileDialog(msoFileDialogFolderPicker) 
    .Title = "Select the Folder..." 
    If .Show Then 
     Set oFldr = oShell.Namespace(.SelectedItems(1)) 
     With oFldr 
     For iCol = 0 To 286 
      Cells(lRow, iCol + 1) = .getdetailsof(.items, iCol) 
     Next iCol 
     For Each oFile In .items 
      lRow = lRow + 1 
      For iCol = 0 To 286 
      Cells(lRow, iCol + 1) = .getdetailsof(oFile, iCol) 
      Next iCol 
     Next oFile 
     End With 
    End If 
    End With 
End Sub