Data kopiëren met ExecuteExcel4Macro in loop

[Kim2011]

Hoi Allemaal,

Hoe kan ik data uit een Excel-bestand (bepaald door een collection) halen met behulp van ExecuteExcel4Macro? Ik heb een collection met daarin bestandsnamen. Nu wil ik dat uit deze collectie-bestanden de waarde uit cel H11 gekopieerd wordt en in C5 geplaatst wordt. Maar ik weet niet hoe ik dat in de formule moet ingeven.
Ik gebruik daarvoor nu dit, maar dit werkt niet. Er wordt dan niets gekopieerd. Vast een kleinigheidje maar ik loop er op stuk. Ik heb niet de volledige code weergegeven, maar als dat nodig is kan dat wel.

Super bedankt!

i = 1
Do While i <= cFls1.Count
j = cFls1.Item(i)

Range("C5").Value = ExecuteExcel4Macro("'C:\Users\Kim2011\Desktop\' & j & 'Blad1'!R11C8")

i = i + 1
Loop

 

[snb]

moet dat niet :

Range("C5").Value = ExecuteExcel4Macro("'C:\Users\Kim2011\Desktop\[" & cFls1.Item(i) & "]Blad1'!H11")

zijn ?

 

[Kim2011]

Die had ik eerst geprobeerd, maar dan kopieert ie ook niks. Ik snap er niks van. De cellen zijn wel ingevuld. De collection is ook goed gedefinieerd.

 

[Kim2011]

Het is gelukt. Geen idee waarom het nu wel werkt. Ik heb nu deze code gebruikt:

Range("C5").Value = ExecuteExcel4Macro("'C:\Users\Kim2011\Desktop\[" & cFls1.Item(i) & "]Blad1'!R11C8")

 

[Roncancio]

Range("C" & i +4).Value = ExecuteExcel4Macro("'C:\Users\Kim2011\Desktop\[" & cFls1.Item(i) & "]Blad1'!R11C8")

ExecuteExcel4Macro werkt met R1C1 verwijzing. Vandaar dat het eerst niet werkte.

Met vriendelijke groet,


Roncancio