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

Qual'è l'istruzione per visitare una pagina web
www.nomesit/pagina-uno.htm
e salvare il contenuto sul mio hard-disck in fomrato testo.
La macro dovrei utilizzarla con Excel 2000
Qualcuno può postare le istruzioni ?
Grazie.


Dim objXMLHTTP
Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open "GET", "
http://www.visual-basic.it
", False
Application.Cursor = xlWait
objXMLHTTP.Send
Application.Cursor =xlDefault
sresult = objXMLHTTP.ResponseText
Debug.Print sresult
Set objXMLHTTP = Nothing
Ciao!
-- 
Gianluca Cannalire
Microsoft MVP/MCP - Visual Basic
http://www.visual-basic.it
http://community.visual-basic.it/gianluca
 

 wrote in message
dvmln3$32s$1...@area.cu.mi.it...


 Le istruzioni le ho inserite all'interno di una sub
Ciao Luigi,
I newsgroup non sono posti dove chiedere agli altri di fare, per se, il 
lavoro.
Hai chiesto una cosa, ed io ti ho dato un suggerimento per farla.
A questo punto, devi metterci un po' del tuo lavoro... se poi non hai 
capito nulla di quanto ti ho indicato con quel codice, allora 
probabilmente il compito non è alla tua portata (e non sarebbe questo il 
male), ma soprattutto non hai speso un pochino del tuo ingegno per capire 
cosa manca...
Ciao


 e salvare il contenuto sul mio hard-disck in fomrato testo.
Lo vuoi in formato PURO testo o in html ?
Perche per il formato testo (anche HTML) basterebbero 2 righe
di VBS e non VB poi vale lo stesso discorso che ti ha fatto Gianluca .. devi
 fare tu il resto del lavoro e vedere se e se puo esserti utile implementarlo
NON ho mai usato Excell  ma di solito da un programma estermo
basta da riga di comando  >>>  Wscript.exe fullpath\test.vbs :
'on error resume next
sText = TextFromHTML("
www.google.it
")
'WScript.Echo sText
Function TextFromHTML(URL)
  set ie = createobject("internetexplorer.application")
  ie.navigate URL
  do until ie.readystate = 4 : wscript.sleep 10: loop
  TextFromHTML = ie.document.body.innerText
  ie.quit
End Function
filename = "c:\google.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set newf = fso.createtextfile(filename)
newf.WriteLine sText
set oShell = CreateObject("WScript.Shell")
while not FSO.FileExists("c:\google.txt")
WScript.Sleep 500
Wend
oShell.run"c:\google.txt"
'Copia incolla su notepad e salva con estensione .vbs
'tutti i file (*.*)  poi ci clicchi sopra. (per esempio Test.vbs)
'se ti da' errore disattiva l'antivirus
http://www.google.it/search?hl=it&q=internetexplorer.application&meta=
--
Fosco

  set ie = createobject("internetexplorer.application")
Per la miseria :)
Tirare su un'istanza di IE, solo per recuperare il body di una pagina 
HTML, è come sparare ad una zanzara con una 45 magnum ;)
Certo, il tuo codice sicuramente funziona, ma ritengo 100 volte meglio 
utilizzare XMLHTTP che non un'istanza di IE.
Ciao!


 wrote in message
dvo7u9$mj5$1...@area.cu.mi.it...


Ho lanciato la procedura ma mi da erroe alla riga 1 carattere 1
Errore : carattere non valido Codice errore 800A0408
Fosco <fa...@fake.invalid> wrote in message
w5NTf.12768$6e2....@news.edisontel.com...


 Errore : carattere non valido Codice errore 800A0408
sText = TextFromHTML("
www.google.it
")
 Function TextFromHTML(URL)
   set ie = createobject("internetexplorer.application")
   ie.navigate URL
   do until ie.readystate = 4 : wscript.sleep 10: loop
   TextFromHTML = ie.document.body.innerText
   ie.quit
 End Function
 filename = "c:\google.txt"
 Set fso = CreateObject("Scripting.FileSystemObject")
 Set newf = fso.createtextfile(filename)
 newf.WriteLine sText
 set oShell = CreateObject("WScript.Shell")
 while not FSO.FileExists("c:\google.txt")
 WScript.Sleep 500
 Wend
oShell.run"c:\google.txt"
' ma guarda che il suggerimento di  Gianluca e' piu adatto .. prova :
Private Sub Form_Load()
Dim objXMLHTTP
Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open "GET", "
http://www.google.it
", False
objXMLHTTP.Send
sresult = objXMLHTTP.ResponseText
'Debug.Print sresult
Set objXMLHTTP = Nothing
Open "C:\google.html" For Append As #1
Print #1, sresult
Close #1
Unload Me
End Sub
--
Fosco

 > Errore : carattere non valido Codice errore 800A0408
Se non ... apri il file VBS  seleziona tutto e copialo esattamente qui
Ahh visto anche dal OE 5 che adoperi sembra che tu abbia tutto
un po antiquato  prova a vedere cosa ti risponde questo : (sempre VBS)
ws = ScriptEngine & " Version " _
 & ScriptEngineMajorVersion & "." _
 & ScriptEngineMinorVersion _
 & "." & ScriptEngineBuildVersion
wscript.echo ws
' se e' meno di 5.6  forse e' il caso di aggiornare :
Download and install WSH 5.6 from here:
http://msdn.microsoft.com/downloads/list/webdev.asp
PS :
http://digilander.iol.it/ifst/html/Quoting.html
http://www.freewebz.com/iosononiubbo/
--
Fosco

Ho provato questa macro con excel 2000 e mi da errore alla riga
Unload Me
( Errore di compilazione: Utilizzo non valido della parola chiave Me )


 ( Errore di compilazione: Utilizzo non valido della parola chiave Me )
Scolta oltre che a quotare umanamente come ti ho consigliato
http://digilander.iol.it/ifst/html/Quoting.html
http://www.freewebz.com/iosononiubbo/
http://www.inferentia.it/netiquette
il tuo comportameto denota scarso rispetto verso il prossimo
ed a me personalmente fa' girare perecchio gli zebedei ..
perche non muovi un po' le chiappette e tenti di fare un po di esperienze
sul campo .... a parte cercare su google hai provato a togliere la riga
che da errore e riprovare
PS:
vai qui e prosegui li che qui sei OT :
news:free.it.comp.officexp.excel
news:microsoft.public.it.office.excel
http://snipurl.com/o0am
--
Fosco

  .... a parte cercare su google
http://www.google.it/search?hl=it&q=Microsoft.XMLHTTP%2BExcel&meta=
--
Fosco

 probabilmente il compito non č alla tua portata (e non sarebbe questo il 


 a
b
