Auto gem af hjemmeside
HejJeg skal have gemt en hjemmeside i internet explorer. Men den gider ikke at gemme automatisk.
Hvad mangler jeg?
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Sub HentOgGemSide()
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.navigate2 "http://google.dk" ' Hent din webside...
While IE.busy: Wend
Filename = navigate2 & "\temp.html"
IE.Document.ExecCommand "SaveAs", True, Filename
End Sub
På forhånd tak.