flexible Web-Adresse

Forumthread: flexible Web-Adresse

30.06.2014 17:39:53

oliver

Hallo liebe Gemeinde,
brauche mal eure Hilfe bei einer flexiblen Web-Adresse.
Original sieht die Adresse so aus:
www.onvista.de/onvista/times+sales/popup/historische-kurse/?notationId=180039&dateStart=30.06.2013&interval=Y1&assetName=Commerzbank&exchange=Xetra"
was ich aber haben möchte ist so etwas:
www.onvista.de/onvista/times+sales/popup/historische-kurse/?
notationId=180039&dateStart=" & Format(Date-365, "dd.mm.yyyy") & "interval=Y1&assetName=Commerzbank&exchange=Xetra"
Also immer diese Adresse mit Rückblick auf ein Jahr.
Denke es liegt an meiner verwendeten Syntax, hoffe ihr könnt mir helfen.
Danke Oliver

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

meinst Du evtl. folgendes ...

30.06.2014 18:19:18

der neopa

Hallo Oliver,
... für die Datumsangabe: =TEXT(DATUM(JAHR(HEUTE())-1;MONAT(HEUTE());TAG(HEUTE()));"TT.MM.JJJJ") und diese mit & in Deinen Adresstextteil eingebunden?
Gruß Werner
.. , - ...

AW: meinst Du evtl. folgendes ...

30.06.2014 20:04:40

oliver

Danke Werner für die Antwort.
Leider klappt es noch nicht ganz, wollte es per VBA einbinden.
Hier nochmal mein gesamter Code.

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

Gruß Oliver

bei VBA ist das mit dem Format etwas anders ...

01.07.2014 08:30:46

der neopa

Hallo Oliver,
... allerdings halte ich mich aus VBA - Fragen außen vor.
Ich stelle den Thread deshalb auf offen.
Gruß Werner
.. , - ...

AW: bei VBA ist das mit dem Format etwas anders ...

01.07.2014 09:29:17

Robin

Guten Tag Oliver,
ich hoffe doch ich habe dein Problem richtig verstanden, probier es mal hiermit:

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

MfG
Robin

AW: bei VBA ist das mit dem Format etwas anders ...

01.07.2014 16:54:18

oliver

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)

Forumthread: flexible Web-Adresse

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

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread