Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
364to368
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
364to368
364to368
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Webabfrage über Hyperlink

Webabfrage über Hyperlink
15.01.2004 12:16:36
James
Tach zusammen!
Habe folgendes Problem:
Ich würde gerne über einen Link mit ständig wechselnden IDs einen bestimmten Bereich dieser ID abfragen.
Die Links sehen in etwa so aus:
http://www.XXX.de/title.asp?id=15602
Habs schon über ne normale Webabfrage versucht, krieg das aber leider nicht hin, dass nur ein bestimmter Teil einer Tabelle geladen wird. Vielleicht hat jemand nen Tip. Wäre echt super!
Danke schon mal!

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Webabfrage über Hyperlink
15.01.2004 13:15:49
Karl-Otto Reimann
Hallo James
Dein Link steht in A1:

Sub LinkAufteilen()
With Range("A1")
.Offset(0, 1) = .Value
.Offset(0, 2) = .Hyperlinks(1).Address
End With
Columns("A:C").AutoFit
End Sub

Durch Runterziehen in B erhält dieser Value eine fortlaufende Nummer.
Diese dann wieder umgewandelt in einen Link ... ?
Oder brauchst Du nur die ID. Dann in D1 "=LINKS(B1;5)"
Gruss KO
AW: Webabfrage über Hyperlink
15.01.2004 13:31:06
Karl-Otto Reimann
Quatsch: "=Rechts(B1;5)"
AW: Webabfrage über Hyperlink
15.01.2004 14:35:24
James
Danke für die Antwort KO, aber das ist nicht so ganz was ich gesucht hab. Vielleicht beschreib ichs nochmal ausführlich:
Die Abfrage sieht nach aufgezeichneten Makro folgendermaßen aus:
Range("B4").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.XXX.de/title.asp?id=13761", Destination:=Range("B4"))
.Name = "title.asp?id=13761"
.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 = "10"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.Refresh BackgroundQuery:=False
End With
End Sub
Problem ist jetzt, dass das Ergebnis dieser Abfrage die komplette 10 Tabelle (also quasi den Hauptframe der Seite) liefert. Das einizige, was ich davon brauche ist allerdings die Überschrift.
Ne andere Möglichkeit, die die Sache einfacher gestalten könnte, wäre eine bessere ASP Abfrage. Da ich aber die Field IDs nicht kenne und mich auch mit ASP eigentlich gar nicht auskenne, könnte das schwierig werden.
Meine Datei würde dann so aussehen, dass ich in Spalte A die einzelnen ID's stehen habe, und die dann per Abfrage bezeichnet haben wollte. Allerdings sind die Einstellungen für die Abfrage recht schmal.
Anzeige
AW: Webabfrage über Hyperlink
15.01.2004 18:15:40
Karl-Otto Reimann
Beim Rechtsklick auf eine Internetseite kann ich den Quelltext als .txt abspeichern
und dann im Tabellenblatt mit

Sub Dat_Imp()
Dim sWord As String, sPath As String, sSearchPath As String, FileName As String, InputData
Dim AnzFound As Integer
AnzFound = 0
sWord = "asp?ID"
sSearchPath = "c:\Dokumente und Einstellungen\Dr Mabuse\Desktop\VBA-Excel\James_test*.txt"
sPath = "c:\Dokumente und Einstellungen\Dr Mabuse\Desktop\VBA-Excel\"
FileName = Dir(sSearchPath)
If FileName <> "" Then
Do While FileName <> ""
Open sPath & FileName For Input As #1
Do While Not EOF(1)
Line Input #1, InputData
If InStr(1, InputData, sWord) > 0 Then
AnzFound = AnzFound + 1
Sheets("Tabelle2").Cells(AnzFound + 1, 2) = InputData
End If
Loop
Close #1
FileName = Dir
Loop
End If
End Sub

Übrig bleibt die URL
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige