ich habe zwei Excel-Dateien und möchte nun nachdem eine Checkbox aktiviert und der Button Fertig gedrückt wurde die Daten von der einen Excel-Datei (die im Hintergrund geöffnet wird und ohne zu speicher wieder geschlossen wird) in die aktuelle Excel-Datei übernehmen.
Mein Code dafür ist wie folgt:
Private Sub ButtonFertig_Click()
Dim appExcel As Object
Dim doc As Object
If UserForm1.CheckBox2.Value = True Then
Set appExcel = CreateObject("Excel.Application")
Set doc = appExcel.Workbooks.Add("G:\Technische Bauteilspezifikation\Technische _
Spezifikation.xlsx")
doc.Unprotect
doc.Sheets("Tabelle1").Range("D5").Copy
ThisWorkbook.Sheets("Input").Range("G12").Paste
doc.Sheets("Tabelle1").Range("E5").Copy
ThisWorkbook.Sheets("Input").Range("H12").Paste
doc.Sheets("Tabelle1").Range("F5").Copy
ThisWorkbook.Sheets("Input").Range("I12").Paste
doc.Sheets("Tabelle1").Range("G5").Copy
Workbook.Sheets("Input").Range("J12").Paste
doc.Protect wdNoProtection
doc.Close savechanges:=False
Set appWord = Nothing
Set doc = Nothing
End If
End Sub
Leider funktioniert es nicht und bei der Fett hinterlegten Codezeile kommt der Laufzeitfehler 438 "Objekt unterstützt diese Eigenschaft oder Methode nicht"
Kann mir jemand helfen?
Danke
Gruß
Franzi