Hallo
wer kann mir sagen was beim folgenden code falsch ist ?
ich will damit eine excel 2000-datei öffnen und dann weitere zellen mit text füllen. das öffnen funktioniert. und der code zum schreiben funktioniert nur bei einer leeren tabelle. eine geöffnete bestehende tabelle kann ich damit nicht erweitern. wieso ???
dateiname$ = App.Path & „\output.xls“
Dim XL1 As Object
On Error Resume Next
Set XL1 = GetObject(, „Excel.Application“)
Set XL1 = GetObject(dateiname$)
XL1.Application.Visible = True
XL1.Parent.Windows(1).Visible = True
'Dim xlApp As Object
Dim xlWb As Object
Dim xlWs As Object
Set XL1 = CreateObject(„Excel.Application“)
Set xlWb = XL1.Workbooks.Add
Set xlWs = xlWb.Worksheets(„Tabelle1“)
XL1.Visible = True
XL1.UserControl = True
'weitere Zellen mit Text füllen
For i = 1 To 5
xlWs.Cells(1, i).Value = „Test“ & i
Next
xlWs.SaveAs dateiname$
Set xlWs = Nothing
Set xlWb = Nothing
Set XL1 = Nothing