Visual Basic para Aplicaciones - Ayuda con Excel para leer RTF

hola a todos, necesito un poco de ayuda con un programa para exces sobre vba.

necesito incorporar en una hoja excel varias tablas que se encuentran en distintos ficheros en formato rtf de una aplicación externa...

la idea es de incorporar cada tabla(listado) en una hoja distinta para poder hacer resumenes, informes, etc, pero no soy capaz de coger la tabla del rtf para insertarla en excel, ni con el portapapeles, ni con matrices... así que si alguien me ayuda se lo agradeceria de verdad

un saludo y gracias de antemano por la ayuda

sinceramente no sé si se puede, pero podrías publicar el archivo .RTF
(junto a un ejemplo de lo que quieres hacer) para ver que podemos hacer....
o enviame las cosas x mail

Saludos desde Baires, JuanC

te mando los datos a tu correo(no se agregarlos al post) y muchas gracias de antemando por la atencion.

aquí dejo el código de ejemplo...

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

muchas gracias por la ayuda, esto funciona perfectamente...

gracias por la ayuda JuanC