copy listobject & overwrite
30.01.2022 21:06:34
Markus
ich finde meinen fehler nicht.
Was habe ich vor? Zwei Exceldateien. Haben die gleichen Tabellen (listobjects). Eine enthält aktualisierte Daten und die andere Datei noch alte.
Ziel: Wenn ich die alte Datei offen habe, knopf drücken, die geschlossen datei mit den aktualisierten dateien soll sich öffnen und die die daten der alten überschreiben. Also, ein altes listobject soll durch ein neues listobject überschrieben werden. Die Position der linken oberen ecke ist B8. Es sollen Header+Body überschrieben werden.
Aber es klappt nicht. der fett/kursive teil löst runtimeerror 5 aus
Sub copy_data_from_workbook_and overwrite()
'Datapath from Source
sPath = "C:\[...]\DataInput.xlsm"
'Check if xlsx exists
If Dir(sPath) "" Then
'Open Workbook
Set wbSource = Workbooks.Open(sPath)
'Data copy and overwrite
wbSource.Worksheets("Data").ListObjects("Datatable").Range.Copy _
Destination:=ThisWorkbook.Worksheets("Data").ListObjects("Datatable").Range("B8")
'Close Workbook
wbSource.Close SaveChanges:=False
End If
End Sub