Newsgroup: it.comp.lang.visual-basic
Titolo: Prelevare una pagina web

Questo programma per prelevare una pagina web con excel mi da il seguente
errore:
( Identificatore in corrispondenza del cursore non riconosciuto )
Utilizo excel per eseguire le istruzioni.
Cosa devo fare per risolvere il problema ?
Private Sub LeggiSito()
inet.OpenUrl = "
http://www.htm.it/
"
file = inet.OpenUrl
Cells(2, 5).Value = file
End Sub

aluigi ha scritto:

sul foglio sul foglio1 inserisci un controllo inet
poi nella tua macro inserisci il codice seguente
Dim file As String
Foglio1.Inet1.URL = "
http://www.html.it
"
file = Foglio1.Inet1.OpenUrl
Cells(2, 5).Value = Left$(file, 65500)
occhio che più di un certo tanto di dati in una cella non puoi inserirli 
, in ogni caso, se non ricordo male, a te serviva estrarre i link delle 
ricerche da google, quindi una volta acquisita la tua pagina web e 
assegnatala ad una variabile ti conviene passarla ad una funzione -che 
dovrai costruirti- che ti analizza la stringa e ti estrae solo i link.
Se posso permettermi di consigliarti una metodologia, innanzitutto fatti 
  una ricerca qualsiasi su google dopodichè ti analizzi il sorgente 
della pagina restituita e cerchi di trovare il comune denominatore sulla 
forma dei link, a quel punto è facile costruirsi il parser.
ciao
stefano


Scusa ma io non sono molto esperto.
Come si fà ad inserire sul foglio 1 un controllo inet  ( se mi puoi dire
esattamente la procedura )
Sul foglio 1 io ho inserito le istruzioni che mi hai detto ho provato ad
eseguirle ma mi da errore ?

 esattamente la procedura )
Su excel,
dal menu "Visualizza"
-->
Barre degli strumenti
-->
Visual Basic
Fai clic sull'icona "Casella degli strumenti"
Fai clic sull'ultima icona in basso:
"Altri Controlli"
Scegli la voce:
"Microsoft Internet Transfer Control"
io ad esempio ho la versione 6.0 SP6 ma da te potrebbe essere diverso.
Fai clic sul Foglio1 (in questo modo inserisci il controllo)
ciao
stefano

 ha scritto nel messaggio
news:7RpQi.90$uS1...@nntpserver.swip.net...

Visualizza > Barre degli Strumenti > Strumenti di controllo
Clicca sull'ultimo pulsante 'Altri Controlli...'
e seleziona
Microsoft Internet Transfer Control (SP6)
Clicca sul foglio per inserirlo...


 ha scritto nel messaggio
news:47122e2c$0$16020$5fc...@news.tiscali.it...

Andando su Visualizza -- Barra degli srumenti -- Visual basic
Appare una finestra dove ci sono i seguenti comendi:
Esegui macro
registra macro
Protezione
Visual basic editor
Strumenti di controllo
Modalità progettazione
Microsoft scipt editor
Andando su Visual basic editor si apre foglio 1 dove inserisco il codice ma
non funziona.
Su foglio 1 posso arrivare anche da Strumenti-- macro-- visual basic editor.
Ho inserito queste istruzioni:
Private Sub LeggiSito()
Dim file As String
Foglio1.Inet1.URL = "
http://www.html.it
"
file = Foglio1.Inet1.OpenUrl
Cells(2, 5).Value = Left$(file, 65500)
End Sub
E mi da : Errore di compilazione: Impossibile trovare il metodo o il membro
di dati.
Non credo è un erroe di immissio nel foglio 1 perhcè inserendo tali
istruzioni per fare un test funzona tutto OK:
Private Sub LeggiSito()
Dim file As String
file = "prova"
Cells(2, 5).Value = Left$(file, 65)
End Sub

 ha scritto nel messaggio
news:rbrQi.102$uS1...@nntpserver.swip.net...



Come si fa ad aggiungere il pulsante FUNZIONA ?

 che attende che la trasmissione dei dati sia ultimata.
Corretto, ma l'errore non è sicuramente dato da questo, al limite nella 
variabile si ritroverebbe dati monchi.
ciao
stefano
p.s.
Ti firmi Alice ma forse dovremmo chiamarti Federico?

 Ciao
Osservazione corretta, ma non è possibile che sia quello l'errore.
Al limite la variabile non conterrà tutti i dati ma non darà errore.
ciao
stefano
p.s. Ti firmi Alice ... ma forse dovremmo chiamarti Federico?
magari forse mi sbaglio ... ma ci sono un po' di coincidenze.


Visto che le istruzioni sotto riportate mi danno il seguente errore:
(  Errore di compilazione: Impossibile trovare il metodo o il membro di
dati.)
come faccio a risolvere il problema ?
Private Sub CommandButton1_Click()
    Dim file As String
    Foglio1.Inet1.URL = "
http://www.html.it
"
    file = Foglio1.Inet1.OpenURL
    Do: DoEvents: Loop Until Foglio1.Inet1.StillExecuting = False


 ha scritto nel messaggio
news:Q__Qi.17$Es5...@nntpserver.swip.net...



ma il controllo Inet1 l'hai inserito nel foglio excel o no?
vabbè la pappa pronta, ma qui si esagera...
sam--



Le istruzioni l'ho inserite nel foglio1 aprendo il visual basic editor.
Come si fà ad inserire il controllo Inet1 nel foglio excel ?

 Come si fà ad inserire il controllo Inet1 nel foglio excel ?
Te l'ho scritto nel post del 14/10 16:56
stefano

 ha scritto nel messaggio
news:ff71s4$2cj$2...@balena.cs.interbusiness.it...


 ha scritto nel messaggio
news:ff71s4$2cj$2...@balena.cs.interbusiness.it...


 
Dovrebbe esserci, sei sicuro che non ci sia?
stefano


oggi mi sento buono...
ecco qua . sta qua, è questo!!!!
http://i22.tinypic.com/2u5e3pc.jpg
ciao

 ha scritto nel messaggio
news:h4mgh39jac32fpdgh...@4ax.com...

Il mio excel contiene solo 176 controlli e non c'è il Microsoft Internet
Transfer Control
Doce si può recuperare ?



boh, io c'e l'ho da office 4.3 (installazione fatta con 22 disketti da
3,5") :-((((((( e su tutti gli office che ho installato (fino al
2003).
prova a reinstallare e vedi se manca qualcosa...
ciao

 ha scritto nel messaggio
news:0a6hh3tqrqoitul9h...@4ax.com...

Ho rimosso e reistallato office ma è la stessa cosa. Ho reistallato sia la
versione tipica che quella completa. Mi sono fatto prestare il CD da un
amico dove a luii risultano 246 controlli, mentre quando lo installo sul mio
PC ci sono solo 176 controlli.
cosa faccio ?


prova con Lourdes (service pack 2)   :-)))))