Macro em Excel

[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?