Visual Basic para Aplicaciones - Ayuda con Excel para leer RTF

Life is soft - evento anual de software empresarial
   
Vista:

Ayuda con Excel para leer RTF

Publicado por Carlos GR (5 intervenciones) el 03/12/2007 18:16:05
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ayuda con Excel para leer RTF

Publicado por JuanC (243 intervenciones) el 14/12/2007 18:04:29
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ayuda con Excel para leer RTF

Publicado por Carlos González Ruiz (5 intervenciones) el 17/12/2007 08:55:40
te mando los datos a tu correo(no se agregarlos al post) y muchas gracias de antemando por la atencion.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ayuda con Excel para leer RTF

Publicado por JuanC (243 intervenciones) el 18/12/2007 15:07:39
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ayuda con Excel para leer RTF

Publicado por Carlos GR (5 intervenciones) el 19/12/2007 08:23:55
muchas gracias por la ayuda, esto funciona perfectamente...

gracias por la ayuda JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar