Macro om data te importeren uit een ander bestand.

[gerrit098]

Beste dames en heren,

Ik wil graag met een macro data importeren uit een ander excel bestand.

ik heb met opnemen van een macro wat geprobeerd en is uit gekomen op

   Workbooks.Open FileName:= _
        "C:\bla\bla\Google Drive\bla\docu2.xlsx", UpdateLinks:= _
        3
    Sheets("Rooster keuken").Select
    
    Rows("2:469").Select  '<-- hierbij komt de foutmelding
    Selection.Copy
    Windows("Docu1.xlsm").Activate
    Rows("2:2").Select
    ActiveSheet.Paste

echter hierbij krijg ik de fout melding: fout 1004 tijdens uitvoering methode select van klasse range is mislukt

weet iemand hier een oplossing voor?

 

[gast0660]

Met de weinig info die je verstrekt kan je dit proberen.
Met beide documenten in dezelfde map.
macro in docu2
docu1 hoef je niet te openen

Sub dotchie()
Dim wsSEND As Worksheet, wbMASTER As Workbook
Dim NextRow As Long
Application.ScreenUpdating = False
Set wsSEND = ThisWorkbook.Sheets("Rooster keuken")
Set wbMASTER = Workbooks.Open(ThisWorkbook.Path & "\Docu1")
    With wbMASTER.Sheets([COLOR="#FF0000"]"Blad waar alles naartoe moet"[/COLOR])
        NextRow = .Range("A" & .Rows.Count).End(xlUp).Row + 1
        wsSEND.UsedRange.Copy
        .Range("A" & NextRow).PasteSpecial xlPasteValues
        .Range("A" & NextRow).PasteSpecial xlPasteFormats
    End With
wbMASTER.Close True
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub