Ciao a tutti, sono nuovo del forum.
Volevo sapere: è possibile traddure in codice l'azione che s'intraprende quando, da un broswer qualsiasi, si esegue il comando "Salva pagina con nome..." dal menù File di modo che quando lo apro possa vedere la pagina con tutte le sue immagini e formattazioni corrette?
Io ho provato così ma quando vado ad aprire il file .html le immagine sono sparite come pure buona parte della formattazione:
codice:Sub SALVAFILEBROSWER() Dim oHttp As Object Dim txtRequestString As String Set oHttp = CreateObject("MSXML2.XMLHTTP") txtRequestString = "www.virgilio.it" oHttp.Open "GET", txtRequestString, False oHttp.send Open For Output As #1 Write #1, oHttp.responseText Close #1 FileCopy ActiveWorkbook.Path & "\prova.txt", ActiveWorkbook.Path & "\prova.html" Set oHttp = Nothing End Sub

Rispondi quotando