Guilherme Haenisch

Boa noite à todos, Recentemente eu desenvolvi uma macro que entra em uma pasta de um determinado diretório e lê e imprime na tela algumas SummaryProperties dos arquivos que estão contidos nela. O problema é que não está funcionando corretamente. A macro não está imprimindo os valores das SummaryProperties ou CustomProperties. Eu busco essas informações utilizando o DSOFile.OleDocumentProperties Segue abaixo a macro. Ela é bem auto-explicativa. Ela funciona quando eu clico em um botão dentro de ma planilha do excel: ===================== Sub Exemplo() Dim oFSO As New FileSystemObject Dim oFolder As Folder Dim oFile As File Dim m_oDocumentProps As DSOFile.OleDocumentProperties Set m_oDocumentProps = New DSOFile.OleDocumentProperties Dim oSummProps As DSOFile.SummaryProperties Dim oCustProp As DSOFile.CustomProperties Dim oProp As DSOFile.CustomProperty m_oDocumentProps.Open ("D:\Guilherme\Nilko\TESTES QUICK SHEET e MACROS\Exemplos\Coluna\") Set oSummProps = m_oDocumentProps.SummaryProperties Set oCustProp = m_oDocumentProps.CustomProperties Set oFolder = oFSO.GetFolder("D:\Guilherme\Nilko\TESTES QUICK SHEET e MACROS\Exemplos\Coluna\") For Each oFile In oFolder.Files MsgBox "As propriedades são" & oSummProps.Author & oSummProps.Subject & oSummProps.Comments Next oFile End Sub ======================================= O que há de errado?