kann aus flexible script nichts in excel schreiben

[Bensen83]

Zuviel Werbung?
-> 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.

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

 

[Larry Laffer]

Hallo Bensen,
deinem PS entnehme ich das Excel auf deinem System installiert ist ...?
Ich bin mir da jetzt nicht 100%ig sicher, meine allerdings, dass die Cells-Adressierung mit (1,1) für "A1" beginnt und nicht mit (0,0).
Probier das doch mal ...

Gruß
Larry