Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Macro, da iexplore a openoffice

0 views
Skip to first unread message

Mico

unread,
Jan 5, 2009, 6:56:01 AM1/5/09
to
Un saluto a tutti. Questo e' il mio primo post in questo NG e spero
che sia proprio IT. Premetto che sono un ignorantone e vi chiedo di
avere pazienza se usero' in modo improprio alcune terminologie ;)

Da un po' sto pensando di abbandonare XP per passare ad una versione
linux, alla fine ho scelto Ubuntu 8.04. L'ho installata e tutto sembra
funzionare alla perfezione. Ora ho bisogno, per decidere di migrare
definitivamente verso ubuntu, di far girare le macro che uso
giornalmente con MSOffice.

La mia macro ha il seguente codice:

---------------------------------------------------------------------------------
...
Set obrws = CreateObject("InternetExplorer.Application")
obrws.Navigate2 "www.sitointernet.com"
Set oDoc = obrws.document
For Each oTbl In oDoc.getelementsbytagname("body")
Debug.Print oTbl.innertext '<-- valore nella cella
codice = oTbl.innerhtml
Next oTbl
Set oTbl = Nothing
Set oDoc = Nothing
Set obrws = Nothing
...
---------------------------------------------------------------------------------

Questa e' la parte chiava della mia macro che preleva il codice html e
me lo fa trovare nella variabile codice.

saluti
Domenico
--

Mico

Visita il mio Negozio:
www.domatecno.it

0 new messages