Forums Neueste Beiträge
 

Internetseiten (HTTPS) abspeichern

12/04/2010 - 12:08 von Martin Hülle | Report spam
Hallo zusammen. (Sry für den 2. Post erster war leider im falschen
Unterforum)

Ich arbeite grade an ein Paar makros zur Archivierung von Dateien und
stolpere über eine große Hürde.

Ich soll eine Intranetseite ( HTTPS) abspeichern.
Ich habe lange gesucht und eine Lösung mit dem Send Keys befehl gefunden,
was aber sehr launisch ist ( mal gehts mal nicht, Cod unten). Frage hierzu
was zur Hölle ist der Befehl für 'ENTER' ?

Kann ich irgendwie in VBA (soll ein Makro in Excel sein weil ich da die
links rausziehe) den Internet Explorer (IE 8) fernsteuern? (Speichern unter
funktioniert hervorragend)

Eine Lösung die nicht so launisch ist wie Send Keys wàre nett :-)
Systemdaten:
Excel 2007, Win XP,Internet Explorer 8
und für unsere Spezis: keine adminrechte (habe lösungen die die Regedit
anfassen gesehen)

Mein Coding bis jetzt
___
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
_________________________________________________________________
Public Sub Command3_Click()


Dim Zàhler As Integer
Dim seite As String
Zàhler = 2
Do While Zàhler <> 20 'Range("G" & Zàhler).Value <> ""
(Derzeit auf 20 da es weit mehr als 100 seiten sind )

seite = Range("G" & Zàhler).Value

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = 1
IE.Navigate seite
Do While IE.busy
Loop

If Not Left(IE.Document.Title, 8) = "HTTP 404" Then
Sleep 50

Application.SendKeys "%D" ' Alt-D "Datei"
Sleep 50
Do While IE.busy
Loop

Application.SendKeys "u" ' u "Speichern unter ""
Sleep 50
Do While IE.busy
Loop


End If

Zàhler = Zàhler + 1
Loop
End Sub

_______________________________________________________________________
Von den 18 aufgerufenen Seiten haben 10 den Speichern unter dialog auf 7
nichts und 1 den Drucken dialog (woher weiß nur der teufel persönlich)

_
"Even if the morrow is barren of promisses
Nothing shall forestall my return
to become the dew that quenches the land
to spare the sands, the seas, the skies
I offer thee this silent sacrifice"
_
"Even if the morrow is barren of promisses
Nothing shall forestall my return
to become the dew that quenches the land
to spare the sands, the seas, the skies
I offer thee this silent sacrifice"
 

Lesen sie die antworten

#1 Andreas Killer
12/04/2010 - 13:12 | Warnen spam
On 12 Apr., 12:08, Martin Hülle
wrote:

Ich soll eine Intranetseite ( HTTPS) abspeichern.
Ich habe lange gesucht und eine Lösung mit dem Send Keys befehl gefunden,
was aber sehr launisch ist ( mal gehts mal nicht, Cod unten). Frage hierzu
was zur Hölle ist der Befehl für 'ENTER' ?


Sendkeys "{ENTER}"

Kann ich irgendwie in VBA (soll ein Makro in Excel sein weil ich da die
links rausziehe) den Internet Explorer (IE 8) fernsteuern? (Speichern unter
funktioniert hervorragend)


Jaa, nutzt Dir aber nicht viel.

Im Prinzip kannst Du mit
IE.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DONTPROMPTUSER, Datei
den Speicherprozess auslösen, aber der User-Prompt kommt trotzdem.
Daher müsstest Du vorher via SendKeys "%S" auf den Button "Speichern"
drücken, was aber kein stabiler Prozess ist.

BTW, setzt mal den Verweis "Microsoft Internet Controls" und
deklariere "Dim IE As InternetExplorer", das macht sowas einfacher.

Kuck mal hier:
http://support.microsoft.com/defaul...us;q244757
das sollte ggf. gehen.

Andreas.

Ähnliche fragen