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

Con il Visual Basic incorporato in Excel è possibile visitare una pagina web 
e salvare il contenuto su un
file in formato testo o html nel proprio Hard-disk ? 

 file in formato testo o html nel proprio Hard-disk ?
Certo, esattamente come si fa di solito quando devi importare dei dati 
da web in excel, per cui da excel apri la pagina web e te la ritrovi 
'innestata' dentro alle celle di excel, poi puoi spostare i dati a tuo 
piacimento e alla fine salvare in file di testo.
Se fai tutto questo col registratore acceso, alla fine hai il codice 
pronto in 5 minuti.
Alberto
-- 
Friedrich Nietzsche: Un po' di salute ogni tanto è il miglior rimedio 
per l'ammalato.

----------------------------------
Io intendevo se con la creazione di una macro in visual basic è possibile 
fare tutto ciò. Puoi postare le istruzioni ?

 Puoi postare le istruzioni ?
Per fare cosa?
Per scaricare una pagina web con excel?
A memoria non lo ricordo e non ho voglia di accendere excel, ma è una 
puttanata, ricordo che con l'help di excel erano pochi click.
Strano che tu non l'abbia trovato nell'help...
Alberto
-- 
Alessandro Bergonzoni: Il tempo vola e noi no. Strano sarebbe se noi 
volassimo e il tempo no, il cielo sarebbe pieno di uomini con 
l'orologio fermo.

-----
Ho seguito i tuoi consigli la macro creata provvede a visitare la pagina web 
ma non a salvare. Quando registro la macro per visitare la pagina web viene 
aperto explorer e da li salvo la pagina web.
Mentre la macro registra solo ciò che succedere in excel.
Ecco la macro creata:
Sub Macro3()
'
' Macro3 Macro
' Macro registrata il 18/11/2008 da ANTONIO
'
'
    ActiveCell.Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub

aluigi ha pensato forte :

Ma cosa stai dicendo?
Ho acquisito adesso, per provare, il meteo da Alice.
Sub Macro1()
    With ActiveSheet.QueryTables.Add(Connection:= _
 
"URL;
http://virgilio.alice.it/tech_includes/box_generic_meteo.html
", _
        Destination:=Range("$A$1"))
        .Name = "box_generic_meteo"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
End Sub
Saranno 5 click al massimo...
Orsù, non avventuriamoci in programmazione di Excel senza conoscere 
prima Excel...
Alberto
-- 
La bellezza è opinabile, sulla bruttezza sono tutti d'accordo.

-----
Ho inserito la macro da te fornita sul visual basic 6.3 di excel versione 
2003 e queste righe le visualizza in rosso e mi da l'erroe ( errore di 
compilazione )
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;
http://virgilio.alice.it/tech_includes/box_generic_meteo.html
", _
        Destination:=Range("$A$1"))
qual'è il problema ?

Scriveva aluigi mercoledì, 19/11/2008:

Forse non ci capiamo.
Innanzitutto, NON avevi detto che usavi Excel 2003.
Ma non cambia niente, anzi, meglio.
Esiste un subset di istruzioni e clausole che sono retrocompatibili, 
per cui se registri la macro con Excel 2003, quasi sicuramente questa 
funzionerà in Excel 2007. Io l'ho registrata con Excel 2007, quindi può 
essere che la sintassi contenga qualcosa di nuovo.
Ma se registri col 2003, sei a posto.
La stessa procedura di importazione dati da web io l'avevo sempre fatta 
col 2003, col 2007 l'ho fatta la prima volta ieri apposta per te, 
quindi si fa anche col 2003.
Adesso, dopo 4 giorni dalla mia prima risposta, vuoi per cortesia 
registrare la macro col tuo Excel?
Poi, se ci sono problemi, proseguiamo la discussione, ma se non siamo 
in grado di fare un'importazione dati web in excel, è inutile che ci 
concentriamo su VB.
Procediamo per step.
Alberto
-- 
Karl Marx: Uno scrittore è produttivo non nella misura in cui produce 
idee, ma nella misura in cui arricchisce l'editore che pubblica le sue 
opere.


Leva la riga vuota tra With e URL
ciao sam--

Sam -- ci ha detto :

No, ti prego, dimmi che non è vero...
Alberto
-- 
Henry David Thoreau: L'uomo è tanto più ricco quanto meno costano i 
suoi piaceri.

 No, ti prego, dimmi che non è vero...
Ho paura di sì!
-- 
Ciao Fede
By Chicco Production
http://bcp.freetools.it

Non è che per caso conosci una certa Graziana?


----
Ok eliminando la riga vuota funziona. Solo che non capisco dove viene 
salbato il file.
Dal sito viene prelevato solo il testo e non i link,
Quale istruzione si deve aggiungere per salvare tale pagina sul PC e 
prelevare anche i link ?

 prelevare anche i link ?
Scusa, ma ci sei o ci fai?
Hai acceso il registratore di macro e fatto l'importazione?????????
Io ho fatto un esempio, ci sono mille parametri che tu puoi volere 
diversi dai miei, accendi il registratore e fai quello che vuoi tu, non 
quello che ho fatto io.
Facendo così, non soltanto fai la figura dello stupido (che magari non 
ti interessa), ma soprattutto non stai imparando niente di nuovo.
Se domattina ti serve una cosina appena appena diversa, cosa fai, apri 
un thread nuovo?
Alberto
-- 
Fabio Fazio: Se siamo alleati come mai nei nostri bar si vende Coca 
Cola e nei bar americani non si vende l'amaretto di Saronno?