kopiëren tussen 2 excelbestanden

[sonny88]

Beste mensen,

Ik heb mij een ongeluk gezocht om het volgende voor elkaar te krijgen in VBA.
Ik heb 2 Excel bestanden (test1.xlsm en test2.xslm) staan in dezelfde map.
Het is de bedoeling dat een "Range" bijvoorbeeld .Range("B4:E9") moet worden gekopieerd van test1.xlsm naar test2.xlsm in dezelfde Range. (Dus ook B4:E9). Alle informatie staat gewoon op Blad1.

Ik heb al verschillende methodes van het Internet gebruikt maar tevergeefs

Krijg regelmatig fout 9, het subscript valt buiten bereik. Bestandsnamen e.d. kloppen echter wel gewoon.

Alvast super bedankt!

 

[Haaren101]

Voorbeeld ontdaan van confidentiele informatie is ook wel handig

Dit werkt bij mij om van book 2 naar book 1 te kopieren

    Windows("Book2").Activate
    Range("B2:B5").Copy
    Windows("Book1").Activate
    Range("B2").Select
    ActiveSheet.Paste
    Windows("Book2").Activate

Ron

 

[Mark xl]

Even twee tips:
De hierarchie is workbook > worksheet > Range

dus niet

Workbooks("Test1").Range("B4:E9").copy Destination:=Workbooks("Test2").Range("B4:E9")

maar

Workbooks("Test1").sheets(1).Range("B4:E9").copy Destination:=Workbooks("Test2").sheets(1).Range("B4:E9")

Ten tweede
bij workbook referenties in VBA-code gebruik je slechts de naam ,niet het volledige pad.
Dus

workbooks("test")

en niet

Workbooks("test.xlsm") of workbooks("C:\temp\test.xlsm")

Je kunt namelijk ook nooit twee bestanden met dezelfde naam geopend hebben, ongeacht de extensie.

helpt dit je verder?