VBA kopieren Daten aus anderen Arbeitsmappe, ohne offen, dass Arbeitsmappe

Question

ich diesen VBA-Code haben:

Sub OpenCopyPaste() 

Dim wb As Workbook 
Dim Reportwb As Workbook 

' set report workbook to workbook object (works only is the file is already open) 
Set Reportwb = Workbooks("report.xlsx") 

' open the source workbook and select the source sheet 
Set wb = Workbooks.Open(Filename:="C:\Users\Adryan Permana\Downloads\Test\part8.xlsx") 

' copy the source range and paste in 1 line , paste at "C3:E9" 
wb.Sheets("Sheet1").Range("C3:E9").Copy 
Reportwb.Sheets("Sheet1").Range("C3:E9").PasteSpecial xlPasteValues 
Reportwb.Save 

End Sub 

Ich möchte Daten kopieren von „part8.xlsx“ ohne offene dieser Datei. Wie kann ich das machen? Vielen Dank für die Hilfe.

Answer 1

Sub OpenCopyPaste() 
Dim wb As Workbook 
Dim Reportwb As Workbook 
' set report workbook to workbook object (works only is the file is already 
'open) 
Set Reportwb = ThisWorkbook 
Application.ScreenUpdating = False 
' open the source workbook and select the source sheet 
Set wb = Workbooks.Open(Filename:="C:\Users\Adryan Permana\Downloads\Test\part8.xlsx") 
' copy the source range and paste in 1 line , paste at "C3:E9" 
wb.Sheets("Sheet1").Range("C3:E9").Copy 
Reportwb.Sheets("Sheet1").Range("C3:E9").PasteSpecial xlPasteValues 
wb.Close False 
Reportwb.Save 
Application.ScreenUpdating = True 
End Sub 

Try This