QueryTables auf passwortgeschützter Homepage
22.09.2014 23:22:27
Martin/FRA
ich versuche mit QueryTables Daten von einer Homepage zu extrahieren. Sie sind dort auf ca. 490 Seiten (monatlich wachsend) verteilt, aber durchnummeriert. Das erlaubt den Einsatz einer Schleife.
Die Seite ist Passwortgeschützt. Ich log mich ein, hangel mich zum ersten Datensatz durch und lass das Makro laufen. Die Seiten mit den gesuchten Daten werden nacheinander angezeigt. Aber QueryTAbles liest nichts aus, bzw. kopiert mir nichts in die Zellen. So wie es bei der Erstellung des Makros mit dem Makrorekorder für den ersten Datensatz einwandfrei funktionierte. Bei der Erstellung musste ich mich auch erst einloggen und durchhangeln, um die richtige Tabelle markieren zu können.
Aktualisiere ich die Daten auf dem Tabellenblatt manuell, können die Daten nicht aktualisiert werden.
Gehe ich auf "Abfrage bearbeiten" erscheint nur die URL der Login-Seite (https://webgate.ec.europa.eu/ksda/login.htm), auf der sich natürlich keine Daten befinden.
Das Blatt lösche ich vor jedem Durchlauf von allen Verbindungen.
Wie komme ich nun an meine Daten heran? Außer den Quellcode einzulesen und mühselig zu extrahieren.
Sub Auswertung()
Set Ie = CreateObject("InternetExplorer.Application")
Ie.Visible = True
Reihe = 1
For z = 1 To 2 'eigentlich 490
adresse = "https://webgate.ec.europa.eu/ksda/validationListDisplay.htm?d-5394113-p=" & z & "& _
addrline1=&addrline2=&identNum=&addrline3=&subModuleId=vkc&name=*&postCode=&town=&alterName=& _
msId=DE"
Ie.navigate adresse ' Klappt einwandfrei, ich sehe die Daten die ich kopieren will
Reihe = Reihe + 7
Sleep 300
Do: Loop Until Ie.Busy = False
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;https://webgate.ec.europa.eu/ksda/validationListDisplay.htm?d-5394113-p=" & z & "& _
_
addrline1=&addrline2=&identNum=&addrline3=&subModuleId=vkc&name=*&postCode=&town=&alterName=& _
msId=DE" _
, Destination:=Worksheets("Auswertung").Range("A" & Reihe))
.Name = "validationListDisplay.htm?d-5394113-p=" & z & "&addrline1=&addrline2=&identNum= _
_
&addrline3=&subModuleId=vkc&name=*&postCode=&town=&alterName=&msId=DE"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = """currentRowObject"""
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Next z
End Sub
Ich hoffe jemand kennt sich mit diesem sehr speziellen Problem aus und kann mir helfen.
Gruß Martin