Visual Basic para Aplicaciones - acceder a varios ficheros rtf desde una macro exce

hola otra vez a todos.
tengo el siguiente problema, tengo unos datos de un programa en rtf, lo que pasa es que me genera muchos rtf para una información muy concreta.
lo que yo quiero es que mi macro me lea los rtf de una carpeta y me copie el contenido de cada fichero en una hoja nueva del libro

si a alguien se le ocurre una forma de hacer lo que os cuento os lo agradeceria.

un saludo

Este código abre un archivo RTF, copia una tabla y la pega en una hoja
por ahí te sirve de algo...

Option Explicit

'//By JuanC - 17 Dic. 2007

Sub RTF2Excel()
Dim wDoc As Object
Dim wApp As Object

On Error GoTo Create
Set wApp = GetObject(, "Word.Application")
GoTo Begin
Create:
On Error GoTo Fin
Set wApp = CreateObject("Word.Application")

Begin:
Set wDoc = wApp.Documents.Open("test.rtf")

wDoc.Tables(2).Range.Copy
Worksheets(1).Paste

wDoc.Close
wApp.Quit

Fin:
Set wApp = Nothing
Set wDoc = Nothing
End Sub

Saludos desde Baires, JuanC

bueno, juanc, la verdad es que me ayudo de mucho lo que me mandaste la ultima vez, pero desde entonces estoy pegandome con el ordenador.

no se si podras ayudarme, si no seguiré pegandome con el ordenador a ver si encuentro alguna manera. lo que quiero es decirle a la macro la ruta de un directorio en el que tengo los informes, y que la aplicación me busque dentro de la carpeta todos los rtf para luego extraer las tablas como ya me dijiste anteriormente para cada fichero...

si se te ocurre algo, seria estupendo, pero gracias de todos modos por la ayuda

un saludo de Madrid para Buenos Aires

Carlos GR