Probleem met ExecuteExcel4Macro

[DutchOirs]

Goedemiddag,

Ben al ruim een dag aan het zoeken voor de oplossing, maar helaas

Frisse blik doet wonderen, dus ik dacht stel hem ff hier.

Wil vanuit doelmap (Map12) data halen uit een gesloten bronmap (Map13)
Dit lukt wel in cel A7 met een formule, maar met VBA wil het helaas niet lukken.

Gebruik de volgende code

Private Sub CommandButton1_Click()
  Application.DisplayAlerts = False

    Range("A10").Value = ExecuteExcel4Macro("'E:\Test-Office\[Map13.xls]Blad1'!xlR3C3")
  
  Application.DisplayAlerts = True
End Sub

Nu is me alleen dat laatste niet helemaal duidelijk, dat xlR3C3

Iemand een idee?

Vr. Gr.

Dutch

 

[alphamax]

Range("A10").Value = ExecuteExcel4Macro("'E:\Test-Office\[Map13.xls]Blad1'!R3C3")

geen xlR3C3 maar R3C3
R3C3 = row/rij 3, column/kolom 3 = cel C3

 

[DutchOirs]

Hoi AlphaMax, thanks..

Werkt perfect... Stom dat ik dat niet eerder zag...

is deze code:

 Range("A10").Value = ExecuteExcel4Macro("'E:\Test-Office\[Map13.xls]Blad1'!R3C3")

ook andersom te gebruiken?

dus van doelMap naar BronMap?

ExecuteExcel4Macro("'E:\Test-Office\[Map13.xls]Blad1'!R3C3")=Range("A10").Value

 

[DutchOirs]

pfff komen steeds meer vragen boven :-(

2e vraag is deze code ook te gebruiken met variabelen?

stel de naam van het file staat op C5 en het Path staat op cel G5 van het actieve bestand
Zou dus worden:

 Range("A10").Value = ExecuteExcel4Macro("ActiveWorkbook.Worksheets("Blad1").Range("G5")\[ActiveWorkbook.Worksheets("Blad1").Range("G5").xls]Blad1'!R3C3")

of evt. met with worksheets erbij
ben ermee aan het stoeien

 

[Warme bakkertje]

G5 = E:\Test-Office
C5 = Map13

With Sheets("Blad1")
    .Range("A10") = ExecuteExcel4Macro("'" & .Range("G5") & "\[" & .Range("C5") & ".xls" & "]Blad1'!R3C3")
End With

 

[DutchOirs]

Thanks Warm bakkertje.

Had het gezien

Mooi compacter.

Zit met nog een vraag maar zal deze ff overnieuw stellen op het forum.

Vr. Gr.

Dutch