Hente nogen sager fra Excel

Hvis jeg forstår dig ret så brug en variant:

Sub test()
    Dim a As Variant
    Dim i, e   

    a = Range(\"a1:f15\")
    For i = LBound(a, 1) To UBound(a, 1)
        For e = LBound(a, 2) To UBound(a, 2)
            Debug.Print \"(\" & i & \";\" & e & \")\" & vbTab & a(i, e)
        Next e
    Next i
End Sub

VH søren

Hov et gammelt spørgsmål...

Desværre var det ikke lige det jeg var ude efter. Jeg havde en Excel fil som jeg ville loade ind i en variabel som jeg så kunne trylle lidt rundt med, og så vidt jeg kan se henter din kode ikke data fra nogen Excel fil.

gem filen som csv

det er jo ikke så svært at åbne en fil som en tekstfil og tjekke efter semikolonner :-)

Jamen jeg vil ikke chekke efter semikolonner, jeg vil åbne en .xls fil... og om muligt smide de data der måtte findes der ind i et 2D array så jeg kan trylle lidt rundt med dataene.

Altså jeg vil gerne angive koordinaterne for de data jeg vil have importeret.

Bommelom.