Kopieren von Daten aus einem anderen Excel-Datei mit VBA-Makro

Question

Ich mag würde, eine Arbeitsmappe öffnen und aus dem geöffneten Arbeitsmappe Blatt zu meinem worbook Blatt wie das kopieren:

Private Sub Workbook_Open() 
    Dim openedFile As String 
    Dim sourcebook As Workbook 
    openedFile = Application.GetOpenFilename(fileFilter:="Excel Macro-Enabled Workbook (*.xlsm), *.xlsm") 'Source book opening 

    Set sourcebook = Workbooks.Open(openedFile) 

    Application.CutCopyMode = True 
    sourcebook.Worksheets("source_sheet").Range("A1:L100").Copy 
    ThisWorkbook.Worksheets("dest_sgheet").Range("A1").PasteSpecial Paste:=xlPasteValues 
    Application.CutCopyMode = False 
    Call sourcebook.Close(False) 
End Sub 

ich diese Fehlermeldung bekam, nachdem ich diesen Code runing :

Laufzeitfehler ‚1004" : Pastespecial-Methode der Range-Klasse

fehlgeschlagen Es ist occour in dieser Zeile:

ThisWorkbook.Worksheets("dest_sheet").Range("A1").PasteSpecial Paste:=xlPasteValues

Answer 1

try Aktivieren der Arbeitsmappe zuerst („Diese Arbeitsmappe“) und dann das Blatt zu aktivieren, wenn Sie möchten die Daten einfügen. Der Fehler tritt auf, weil entweder der Bereich nicht sichtbar ist oder existiert.

Answer 2

Ihr Code sollte funktionieren.

ThisWorkbook.Worksheets("dest_sgheet").Range("A1").PasteSpecial Paste:=xlPasteValues 

mit diesem: diese Zeile ändern

ThisWorkbook.Worksheets("dest_sheet").Range("A1").PasteSpecial Paste:=xlPasteValues 

EDIT Basierend auf OP Kommentare zu 25-05-2016 Ich habe das Programm laut OP-Code erneut ausführen, nach der Korrektur kleiner Tippfehler bei der Rechtschreibung Programm läuft erfolgreich ohne Probleme. Ich erhalte keinen Laufzeitfehler 1004. Der Screenshot zeigt, dass die Daten korrekt kopiert werden.