Visual Basic og excel!

jeg smider gerne 400 point ekstra oveni hvis det er noget jeg virkelig kan bruge.

Dim A(1 to 10) as string
Dim B(1 to 10 as string
Dim I as integer

' Her tag jeg værdierne fra celler A1 til A10
'og putter i en streng variable der hedder A(1) til A(10)

For i = 1 to 10
A(i) = activesheet.cells(i,1)
next i

' Her tag jeg værdierne fra celler B1 til B10
'og putter i en streng variable der hedder B(1) til B(10)

For i = 1 to 10
B(i) = activesheet.cells(i,2)
next i

Hilsen
Mix

P.S
det kan være du skal udskrive komma "," tegnet med et simikolon ";".
så det ser sådan ud.


For i = 1 to 10
A(i) = activesheet.cells(i;1)
next i

' Her tag jeg værdierne fra celler B1 til B10
'og putter i en streng variable der hedder B(1) til B(10)

For i = 1 to 10
B(i) = activesheet.cells(i;2)
next i

Sæt en reference til Excel 8.0 i Visual basic og kør så fælgende kode:
   
Dim XL As New Excel.Application
Dim XLArray() As String
Dim Counter As Integer
   
XL.Workbooks.Open "C:\TestXL.xls"
    XL.Visible = True
    Range("A1").Select
   
    Do
    Counter = Counter + 1
    If Range("A" & Counter).Text = "" Then
        Exit Do
    Else
        ReDim Preserve XLArray(Counter)
        XLArray(Counter) = Range("A" & Counter) & " " & Range("B" & Counter)
    End If
    Loop
    Set XL = Nothing

Ovenståen kode åbner et regneark (C:\TestXL.xls) og henter værdierne ud fra A1:B1,A2:B2 osv. og læser dem allesammen ind i det dynamiske array XLArray() - så skulle det problem være løst :o)

Jeg glemte at nævne at det "smarte" ved min metode kontra mix's forslag/løsning er at hans kode ikke tager højde for hvor mange rækker der er ... hans virker KUN sålænge der ikke er mer' end 10 rækker, min metode er en anelse mer' fleksibel idet den redimensionere arrayet med én hver gang der kommer en ny række, på den måde kan du være ligeglad med om der er 3 rækker eller 12467 - :)

Hmmm... nu var det et eksemple.
hvis den ikke skal være bestem.
gør du sådan her.
Dim Find as string
Dim Antal as string
antal = 1
find = activesheet.cells(1,1)
do while len(Find)
antal = antal +1
find = activesheet.cells(antal,1)
loop

ReDim A(1 to Antal) as string
ReDim B(1 to Antal) as string
Dim I as integer

' Her tag jeg værdierne fra celler A1 til A10
'og putter i en streng variable der hedder A(1) til A(10)

For i = 1 to antal
A(i) = activesheet.cells(i,1)
next i

' Her tag jeg værdierne fra celler B1 til B10
'og putter i en streng variable der hedder B(1) til B(10)

For i = 1 to antal
B(i) = activesheet.cells(i,2)
next i

Hilsen
Mix

Hej Mix,

Hva' er forskellen på det du gjorde her i sidste omgang og mit eksempel?

Hilsen
Henrik

jeg har droppet excel, og gjort det på en anden måde..

Hej Henrik.

Forskellen er forståelsen.
for en der ikke kan lave nogle af de 2 ekslemper vi har lavet.
Vil det være nemmer forstå det der er delt op.
sådan er det om ik andet for mit eget vedkommende.

hilsen
Mix