Hallo
Da bin ich wieder. Ich habe mich getraut (LS). Ich gebe eine Excel-Datei aus und es klapp auch, aber nicht auf dem Server. Ich habe hier gelesen, das man als alterative auch eine CSV-Datei ausgeben kann. Dies habe ich dann promt eingebaut
--> OLE: Automation object error -->
hier die Stelle wo ich es eingebaut habe:
Else ' alle Documente
Set fs = CreateObject("Scripting.FileSystemObject")
Set abc = fs.CreateTextFile("c:\Raitest.csv", True) Set otherdoc = otherview.GetFirstDocument
While Not otherdoc Is Nothing
abc.writeline otherdoc.columnvalues(1) For colmn = 0 To Ubound(otherview.Columns)
MulCol = otherdoc.columnvalues(colmn)
If Isarray(MulCol) Then
ColCat = Cstr(MulCol(0) )
For ColNum=1 To Ubound(MulCol)
ColCat=ColCat & " | " & Cstr(MulCol(ColNum))
Next ColNum
xlApp.cells(row,colmn+1) = ColCat
Else
xlApp.cells(row,colmn+1) = Cstr( MulCol )
End If
'xlApp.cells(row,colmn+1) = otherdoc.columnvalues(colmn)
Next
row=row+1
Set otherdoc = otherview.GetNextDocument(otherdoc)
Wend
abc.close End If
Was kann das denn schon wieder sein?
Rainer