Hi Leute,
irgendwas habe ich hier falsch gemacht: Fehler liegt beim fettgedruckten.
Bonus: Kann man den Dateipfad auch abfragen? (falls er sich mal ändert)
Sub copy_data_from_workbook()
Dim sPath As String
Dim wbSource As Workbook
'Datapath from Source
sPath = "C:\[...]..xlsx"
'Open Workbook
Set websource = Workbooks.Open(sPath)
'Data copy and paste
wbSource.Worksheets(2).ListObjects("myTable").Range.Copy ThisWorkbook.Worksheets(2).ListObjects("myTable")
'Close Workbook
wbSource.Close SaveChanges:=False
End Sub
DANK mIKEY
|