Webabfrage
Karl
Ich ersuche Euch um Eure Hilfe.
Ich benötige eine Webabfrage die ich vorläufig mit dem Macrorecorder aufgezeichnet habe und die folgendermaßen aussieht:
Sub webabfrage_3()
' webabfrage_3 Makro
' LANDBOUWKREDIET BEL TeamID 2953
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://62.50.72.82/ucinet/default.asp?page=UCITeamsdetail&discipline=ROA&continent=ALL& _
teamscategory=&teamstype=PCT&year=2011&teamnameid=2953&npage=&search=&l=ENG" _
, Destination:=Range("$A$1"))
.Name = _
"default.asp?page=UCITeamsdetail&discipline=ROA&continent=ALL&teamscategory=&teamstype= _
PCT&year=2011&teamnameid=2953&npage=&search=&l=ENG_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 = "6,18"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
Cells(65000, 1).End(xlUp).Offset(1, 0).Select
End With
' ACQUA & SAPONE ITA TeamID 2933
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://62.50.72.82/ucinet/default.asp?page=UCITeamsdetail&discipline=ROA&continent=ALL& _
teamscategory=&teamstype=PCT&year=2011&teamnameid=2933&npage=&search=&l=ENG" _
, Destination:=Range("$A$30"))
.Name = _
"default.asp?page=UCITeamsdetail&discipline=ROA&continent=ALL&teamscategory=&teamstype= _
PCT&year=2011&teamnameid=2933&npage=&search=&l=ENG_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 = "6,18"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub
Ich habe hier eine Makroaufzeichung gemacht, kopiert und die nächste Tabelle 30 Zeilen weiter unten eingefügt.Da ich aber keine Lösung gefunden habe, wie ich mit "Destination" die nach der ersten Abfrage selektierte Zelle auffinden kann, habe ich kapituliert,
da es sich hierbei um über 200 verschiedene TeamID's handelt und diese müßten nacheinander auf ein Tabellenblatt gereiht werden.
Wenn mir jemand einen Lösung anbieten könnte, wär mir sehr geholfen.
Danke
Karl