flexible Web-Adresse

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub DatenLaden() With ActiveSheet.QueryTables.Add(Connection:= _ "URL;http://www.onvista.de/onvista/times+sales/popup/historische-kurse/?notationId=180039& _ dateStart=" & Format(Date - 365, "dd.mm.yyyy") & " interval=Y1&assetName=Commerzbank&exchange=Xetra", Destination:= _ Range("$A$1")) .Name = "?notationId=180039&dateStart=" & Format(Date - 365, "dd.mm.yyyy") & "&interval= _ Y1&assetName=Commerzbank&exchange=Xetra" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .WebSelectionType = xlEntirePage .WebFormatting = xlWebFormattingNone .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = False .WebDisableRedirections = False .Refresh BackgroundQuery:=False End With End Sub

Sub Link_Date() Dim url1 As String Dim url2 As String Dim date1 As String Dim both As String url1 = "www.onvista.de/onvista/times+sales/popup/historische-kurse/?notationId=180039&dateStart= _ url2 = "&interval=Y1&assetName=Commerzbank&exchange=Xetra" date1 = Date - 365 both = url1 + date1 + url2 Cells(1, 1) = both End Sub

Robin danke für deine Hilfe, genau das habe ich gesucht.
Paar Änderungen waren zwar noch nötig, aber ein DICKES Danke.
Hier der Code nochmal für andere.

Sub CommerzbankLoad()
Dim url1 As String
Dim url2 As String
Dim date1 As String
Dim pfad As String
url1 = "www.onvista.de/onvista/times+sales/popup/historische-kurse/?notationId=180039&dateStart= _
url2 = "&interval=Y1&assetName=Commerzbank&exchange=Xetra"
date1 = Date - 365
pfad = url1 + date1 + url2
'Cells(1, 1) = pfad
With ActiveSheet.QueryTables.Add(Connection:="URL;http://" & pfad & ".de", Destination:=Range("$ _
A$1"))
.Name = pfad
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub

Gruß Oliver

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread