Ich habe selber noch etwas rumgebastelt.. da ich keine Ahnung habe wie ich Daten aus einem Sheet in ein Array packen oder auf die Daten zugreifen kann, habe ich das Array einfach mit Quelltext gefüllt:
Code: Alles auswählen
sub arraytest
dim arr(27,1)
dim pre$, suf$, a
pre = "http://www.der-andere-spieleladen.com/cgi-local/spieleladen/magic.pl?Group="
suf = "&Order=1"
arr(0,0)= pre & "Allianzen+%2F+Alliances" & suf
arr(0,1)= "ALL"
arr(1,0)= pre & "Dritte+Vierte+%2F+4th" & suf
arr(1,1)= "4ED"
arr(2,0)= pre & "Eiszeit+%2F+Ice+Age" & suf
arr(2,1)= "ICE"
arr(3,0)= pre & "Exodus+%2F+Exodus" & suf
arr(3,1)= "EXO"
arr(4,0)= pre & "F%FCnfte+%2F+5th" & suf
arr(4,1)= "5ED"
arr(5,0)= pre & "Felsenburg+%2F+Stronghold" & suf
arr(5,1)= "STH"
arr(6,0)= pre & "Heimatl%E4nder+%2F+Homelands" & suf
arr(6,1)= "MHL"
arr(7,0)= pre & "Invasion+%2F+Invasion" & suf
arr(7,1)= "INV"
arr(8,0)= pre & "Limitierte" & suf
arr(8,1)= "LIM"
arr(9,0)= pre & "Merkadische+Masken+%2F+Mercadian+Masques" & suf
arr(9,1)= "MMQ"
arr(10,0)= pre & "Nemesis+%2F+Nemesis" & suf
arr(10,1)= "NMS"
arr(11,0)= pre & "O+%2F+Antiquities" & suf
arr(11,1)= "ATQ"
arr(12,0)= pre & "O+%2F+Chronicles" & suf
arr(12,1)= "CHR"
arr(13,0)= pre & "O+%2F+Fallen+Empires" & suf
arr(13,1)= "FEM"
arr(14,0)= pre & "O+%2F+Unglued" & suf
arr(14,1)= "UGL"
arr(15,0)= pre & "Portal+1+%2F+Portal+1" & suf
arr(15,1)= "POR"
arr(16,0)= pre & "Portal+2+%2F+Portal+2" & suf
arr(16,1)= "P02"
arr(17,0)= pre & "Portal+3+asiatisch+%2F+Portal+3" & suf
arr(17,1)= "PTK"
arr(18,0)= pre & "Prophezeiung+%2F+Prophecy" & suf
arr(18,1)= "PCY"
arr(19,0)= pre & "Renaissance" & suf
arr(19,1)= "REN"
arr(20,0)= pre & "Sechste+%2F+6th" & suf
arr(20,1)= "6ED"
arr(21,0)= pre & "Sturmwind+%2F+Tempest" & suf
arr(21,1)= "TMP"
arr(22,0)= pre & "Trugbilder+%2F+Mirage" & suf
arr(22,1)= "MIR"
arr(23,0)= pre & "Urzas+Saga+%2F+Urza%27s+Saga" & suf
arr(23,1)= "USG"
arr(24,0)= pre & "Urzas+Schicksal+%2F+Urza%27s+Destiny" & suf
arr(24,1)= "UDS"
arr(25,0)= pre & "Urzas+Verm%E4chtnis+%2F+Urza%27s+Legacy" & suf
arr(25,1)= "ULG"
arr(26,0)= pre & "Visionen+%2F+Visions" & suf
arr(26,1)= "VIS"
arr(27,0)= pre & "Wetterlicht+%2F+Weatherlight" & suf
arr(27,1)= "WTH"
a=lbound(arr)
do
msgbox arr(a,0) & Chr$(13) & arr(a,1)
a=a+1
loop until a > ubound(arr)
end sub
Da sich jetzt vieles an der URL ähnelt, habe ich sie in Pre(fix) und Suf(fix) aufgeteilt.
Die Messagebox im Loop bestätigt mir, dass ich nach und nach auf die Daten zugreifen kann.
Einfach jetzt das Webquery hier einfügen ging leider nicht.. wäre auch fast zu einfach gewesen.
Einerseits überschreibt er nur die Daten welche vorher im Sheet standen (was schlecht ist da die Anzahl der Zeilen unterschiedlich sind), zum anderen bleiben die ganzen Links im Hintergrund auch erhalten und stapeln sich ohne Ende.
Also irgendwie schon ein Stück weiter, aber eigentlich noch immer am Anfang.. hmm.
Der "richtige" Code würde dann vermutlich irgendwie so aussehen können:
Variablen definieren
Array füllen
Import Sheet auswählen
Loop >
Inhalt Import Sheet
Externen Link entfernen
Daten über Webquery abfragen
Daten in Import Sheet einfügen
Daten auf neues Sheet ohne Formatierung übertragen
Nächster Eintrag <
Leider machen mir die ganzen Dispatcher, Services, Frames, Sun.Star.Beans
usw. ziemlich Kopfzerbrechen.
Einfache Gehe zu X, Mache Y Anweisungen sind gefühlt seitenlange Anweisungen die am Ende ziemlich gleich aussehen