-> Hier kostenlos registrieren
Hallo,
ich habe folgendes Problem. Will etwas in Excel schreiben, aber bei dem Befehl wsExcel.cells.... bekomme ich im script einen fehler. Hier mein code, könnt ihr mir weiter helfen? Ps. das script macht auch nach wsExcel. keine autovervollständigung in richtung cells.
Ps. wenn ich wsExcell.Range("A1") = .... schreibe, funktioniert es
ich habe folgendes Problem. Will etwas in Excel schreiben, aber bei dem Befehl wsExcel.cells.... bekomme ich im script einen fehler. Hier mein code, könnt ihr mir weiter helfen? Ps. das script macht auch nach wsExcel. keine autovervollständigung in richtung cells.
Code:
Set appExcel = CreateObject("Excel.Application")
Set wbExcel = appExcel.Workbooks.Open(Verzeichnis + Datei)
Set wsExcel = wbExcel.Worksheets("Tabelle1")
'appExcel.application.visible = True
'Schreibend der Daten
wsExcel.cells(0,0) = SmartTags("Excel\erste")
If Err.Number <> 0 Then
SmartTags("Zaehler") = "4"
Exit Sub
End If
wsExcel.cells(0,1) = SmartTags("Excel\zweite")
If Err.Number <> 0 Then
SmartTags("Zaehler") = "5"
Exit Sub
End If
'Dialog zum Abspeichern der Excel-Mappe
'appExcel.DisplayAlerts = False 'Meldungen unterdrücken
wbExcel.Save
wbExcel.Close
appExcel.Quit
appExcel.DisplayAlerts = True 'Meldungen wieder aktivieren
'Freigeben der Excel-Mappe, Freigeben des Speichers
Set wsExcel = Nothing
Set wbExcel = Nothing
Set appExcel = Nothing
Ps. wenn ich wsExcell.Range("A1") = .... schreibe, funktioniert es
Zuletzt bearbeitet: