Excel VBA Web-Abfrage

Warum willst du die umgehn?

Das set und with is ne Vereinfachung für den Code..

Anstatt jedesmal das Komplette Object+Eigenschaft etc zu notieren, wird ne Objektvariable erstellt das auf das Objekt verweist (set)

Und mit with nimmste auf die Objektvariable Bezug, und brauchst somit nur noch direkt die Eigenschaft anzusprechen um den Wert zu bekommen oder zu setzen.

MeinObjekt= Worksheets("Tabelle1").QueryTables.Add( _
                Connection:="URL;" & sSearch, _
                Destination:=Tabelle1.Cells(1, 1))

Mit set/with:
Dim meineObjektvaraibale as Object
set meineobjektvariable = MeinObjekt

with meineObjektvariable
   .Eigenschaft = Wert
   .Eigenschaft1 = Wert
   MeineVariable = .Eigenschaft2
end with

Ohne Set/with:
Worksheets("Tabelle1").QueryTables.Add( _
                Connection:="URL;" & sSearch, _
                Destination:=Tabelle1.Cells(1, 1)).Eigenschaft = Wert

Worksheets("Tabelle1").QueryTables.Add( _
                Connection:="URL;" & sSearch, _
                Destination:=Tabelle1.Cells(1, 1)).Eigenschaft1 = Wert

MeineVariable = Worksheets("Tabelle1").QueryTables.Add( _
                Connection:="URL;" & sSearch, _
                Destination:=Tabelle1.Cells(1, 1)).Eigenschaft2
etc

Also warum immer den gleichen langen Code notieren wenns auch viel einfacher/kürzer/eleganter geht.


Gruß

Cool!

Ich hab zwar keine Antwort, aber das Script mal probiert.
Was ist genau der Sinn. Muss der Web Betreiber etwas speziell bereitstellen oder ist das einfach gedacht um beispiels weise Variablen von Internet her upzudaten.
Währungskurse oder Mitglieder Adressen?


Gruss SpaceMaster

PS: Frage konkret: Kann ich so eine Liste 1:1 vom web ins Excel kopieren? (Linkliste etc.)

Mit dieser Web Abfrage über VBA ist es möglich Web Seiten komplett herunterzuladen. Natürlich kann man
dies auch eleganter lösen, indem man nur bestimmte Werte herunterladet z.B. einen Aktienkurs. Aber immerhin ein Anfang.
Bei manchen Web Seiten könnte es aber zu rechtlichen
Problemen kommen. Also Vorsicht!

Gruss Che