Arrays in Excel mit VBA

[LordofFrog]

Hi,

ich wollte mir ein makro zum importieren von XML datein von einem server schreiben und bin auf ein problem gestoßen

Sub EVE()
Dim ID() As Variant = {16634, 16643, 16647, 16641, 16640, 16650}

Dim i As Integer
i = 0
laenge = UBound(ID) + 1

While i < laenge
    
 ActiveWorkbook.XmlImport URL:= _
        "http://api.eve-central.com/api/marketstat?typeid=" + ID(i) + "&usesystem=30000142", ImportMap:=Nothing, _
        Overwrite:=True, Destination:=Range("$A$i+1)")
        
i = i + 1

Wend
End Sub

die Import funktion geht soweit, nur hab ich ein problem beim array. ich Dimensioniere es und will ihm werte zuweisen, nur leider mekert da Excel immer.

ich meine gelsenen zu haben, dass die direkte zuweisung ohne angabe der arraylänge (implizit) in excel nicht geht, stimmt dass oder hab ich nur die falschen zeichen gesetzt?

LoF

 

[Janchu88]

Hi, so müsste es klappen!

PS: Finde eine Zählschleife eleganter, siehe code

Sub EVE()
Dim ID As Variant
ID = Array(16634, 16643, 16647, 16641, 16640, 16650)

For i = LBound(ID) To UBound(ID)
    
 ActiveWorkbook.XmlImport URL:= _
        "http://api.eve-central.com/api/marketstat?typeid=" + ID(i) + "&usesystem=30000142", ImportMap:=Nothing, _
        Overwrite:=True, Destination:=Range("$A$i+1)")
        
Next i

End Sub