Abfrage / Externe Daten
15.01.2004 22:04:24
Kevin
ich habe eine frage zur externen Datenabfrage, die ich in ein Makro einbauen will.
Gibt es die Möglichkeit den unteren Quelltext des Makros so umzuschreiben, dass man die URL nicht absolut eintragen muss, sondern auf eine Zelle z.B. A1 verweist?
mfg und vielen dank
Kevin
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.rp-online.de/news/ticker/borussia/", Destination:=Range( _
"A2"))
.Name = "fussball_2"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.Refresh BackgroundQuery:=False
End With