Hallo Zusammen,
ich habe folgendes Problem: Und zwar will ich Daten von einer verschluesselten Webseite in mein Excel Sheet importieren. Mit normalen Webseiten gar kein Problem. Sobald ich in den Code jedoch als Connection eine "https" Adresse einsetze zieht sich excel einfach keine Daten mehr.
Hier mein Code:
ActiveCell.Offset(0, 0).Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;https://apex-p.bmwgroup.net:4942/pls/app/eps.ep.fbfahrten?vnr=" & A & "&yvondat=&ybisdat=&lang=D&anker=&ybeurt=&yshowall=0#" _
, Destination:=ActiveCell)
.Name = _
"eps.ep.fbfahrten?vnr=" & A & "&yvondat=&ybisdat=&lang=D&anker=&ybeurt=&yshowall=0#_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "1"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
Ich hab schon mal ein bisschen gesucht, aber leider wenig zum Thema gefunden. Wuerde mich um jede Hilfe freuen....
Viele Gruesse
Felix
|