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

Life is soft - evento anual de software empresarial
   
Vista:

acceder a varios ficheros rtf desde una macro exce

Publicado por Carlos GR (5 intervenciones) el 10/04/2008 10:06:33
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
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:acceder a varios ficheros rtf desde una macro e

Publicado por JuanC (243 intervenciones) el 11/04/2008 22:16:35
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
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:acceder a varios ficheros rtf desde una macro e

Publicado por CarlosGR (5 intervenciones) el 29/05/2008 19:10:50
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
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