Aninha,
para testar:
- Abra uma pasta nomeada como SuaPasta diretamente no drive C:.
- Inclua nesta pasta alguns arquivos do Word.
- Crie uma Planilha nova e salve também nesta mesma pasta.
- Clique com o botão direito sobre o nome de uma das guias do Excel, por exemplo, a Plan1.
- Selecione Exibir código.
Vai abrir uma página em branco do VBAProject.
- Cole o código abaixo:
Sub ListarDOCs()
Dim f, fs, fc, f1
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(ThisWorkbook.Path)
Set fc = f.Files
lin = 2
Application.DisplayAlerts = False
For Each f1 In fc
If Right(f1, 3) = "doc" Then
Cells(lin, 1) = f1
End If
Next
Application.DisplayAlerts = True
End Sub
- Em seguida clique F5 e veja se os arquivos do Word são listados na Plan1.
Caso nada ocorra, os arquivos não sejam listados ou alguma mensagem de erro seja emitida, reporte para que possamos analisar.
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 29/11/2011 8:44 am