[VBA EXCEL] importare html in 1 cella, Evitare limite cella

[ipnovel]

Ciao a Tutti

ho bisogno di importare in una cella il codice html di una pagina web, ho seguito i seguenti consigli nel forum

viewtopic.php?t=87115

viewtopic.php?p=475557#p475585

funziona tutto alla perfezione grazie mille Anthony47

unico problema IL LIMITE della cella di excel fissata a 32767 che tronca il codice prima del punto che mi interessa

come posso dire al vba di iniziare la registrazione dopo magari 10000 caratteri?

grazie mille
Paolo

[Anthony47]

Ciao ipnovel, benvenuto nel forum.
Nella prima discussione linkata si indica questa istruzione per copiare il codice in una cella:
Range("K1").Value = objIE.document.body.innerHTML

Nel tuo caso potrai usare

Codice: Seleziona tutto

Range("K1").Value = Right(objIE.document.body.innerHTML, 32000)

In questo modo caricherai "gli ultimi" 32000 caratteri.

Ti avverto che la funzione Sub Naviga(DestUrl) non e' idonea per sincronizzarsi con siti che usano script per la composizione della pagina; ti raccomando quindi di aggiungere questo codice subito prima della sua "End Sub:

Codice: Seleziona tutto

Do While objIE.readyState <> 4: DoEvents: Loop

Ciao

[ipnovel]

Fantastico !!
era proprio quello che cercavo

Grazie mille
Ipnovel

[ipnovel]

nel caso qualcuno fosse interessato ho implementato la cosa con la seguente stringa

Codice: Seleziona tutto

Range("D6").Value = Mid(objIE.document.body.innerHTML, InStr(1, objIE.document.body.innerHTML, "xxx", vbTextCompare))

sostituendo xxx con un testo presente nella pagina html, la cattura del codice html inizia dalla parola trovata, in questo modo si centra l'obbiettivo

ciao
Ipnovel