PW-geschützte Internetseite öffnen + Datenimport
29.04.2015 14:15:02
Alexander
bedauerlicherweise verfüge ich selbst nur über äußerst bescheidene VBA Kenntnisse.
Daher hoffe ich auf Eure Unterstützung.
Ich stehe vor der folgenden Herausforderung:
Von einer mit einem Passwort geschützten Seite möchte ich "Daten aus dem Web" importieren. Dies funktioniert auch mit der entsprechenden Webabfrage in Excel 2013 sehr gut. Der Knackpunkt hierbei ist lediglich, dass ich die Verbindung beim Start des Programms - und nach Ablauf der Session - immer wieder aktualisieren muss, da ein automatischer Login nicht erfolgt. Weiterhin sollen im Anschluss an den Login Daten von einer anderen Seite minütlich, wie bei der Webabfrage einstellbar, und automatisch (also ohne mein Zutun) über die Hintergrundabfrage erfolgen.
Mit dem Makrorekorder sieht zumindest der Datenimport über die Webabfrage folgendermaßen aus:
Sub WEBABFRAGE()
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;https://ABC-XYZ.de/ABC_de/listprices", Destination:=Range("$A$1"))
.CommandType = 0
.Name = "listprices"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = True
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 1
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = """tablesorter-demo"""
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub
Für Eure Hilfe und Unterstützung danke ich im Voraus.
Freundliche Grüße,
Alexander
Anzeige