Excel und Web Abfrage

Computer: Software & Programmierung Office Software
1

Ich entwickle mir zur Zeit ein Worksheet um EBAY-Auktionen in Excel
beobachten zu können. Dabei möchte ich die Auktionen mit den diversen Daten wie
Anzahl Gebote, aktuelles Gebot etc. anzeigen. Ausserdem will ich die Hits der
Seiten anzeigen.

  1. Hits
    Das funktioniert bereits bestens.
    Inhalt = „http://counters.honesty.com/cgi-bin/honesty-counter…“ & Str(ActiveSheet.Cells(Zähler, 1).Value) 'In Zelle 1 steht die Auktions-Nummer
    ActiveSheet.Cells(Zähler, 5).Select
    ActiveSheet.Pictures.Insert(Inhalt).Select

  2. Auktionsdaten
    Das kriege ich nicht hin. Was funktioniert ist ein Query der aber alle Daten in eine Tabelle zieht.

With ActiveSheet.QueryTables.Add(Connection:= _
„URL;http://cgi.ebay.de/ws/eBayISAPI.dll?ViewItem&item=35…“, _
Destination:=Range(„a1“))

.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SaveData = True
End With

Was ich aber benötige ist eine Abfrage die die URL Quelltext Info in eine Variable zieht, die ich dann per String Operation zerlegen kann. In Visual
Basic klappt das mit

URLText = „http://cgi.ebay.de/ws/eBayISAPI.dll?ViewItem&item=“ & TxTAuktionsNummer.Text
URLInhalt = Inet1.OpenURL(URLText)

Wer kann mir sagen wie ich so etwas wie die Inet1.OpenURL in Excel VBA realisieren kann ?

Vielen Dank für evtl. Hilfeversuche im Voraus.

Günter Kehrer
[email protected]

2

weis zwar nicht ob ich dich richtig verstanden habe.
Um einen Hyperlink aufzuteilen:

Sub LinkAufteilen()
With Range(„A1“)
.Offset(0, 1) = .Value
.Offset(0, 2) = .Hyperlinks(1).Address
End With
Columns(„A:C“).AutoFit
End Sub
Um einen Hyprlink zu erzeugen:

Private Sub Hyperlinkerzeugen()
Dim C As Range
For Each C In Range(„A1“).CurrentRegion.Cells
If Left(C, 7) = „http://“ Then
C.Hyperlinks.Add C, C.Value
End If
Next C
End Sub

Das ist eigentlich alles was mir derzeit zu deiner Frage einfällt. Vielleicht hilft es dir ein wenig weiter
H.S

3

Vielen Dank für die Antwort. Was ich aber eigentlich suche
ist die Abfrage um den Quelltext einer URL in eine VBA
Variable in Excel (oder alles in 1 Zelle) zu bekommen,
also das was man als Text sieht, wenn man im Internet Explorer
mit dem Menu Ansicht und Menüpunkt Quelltext bekommt.

gk

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]