Problem Excel- Export

19/05/2010 - 19:52 von Johann Weiss | Report spam
Hallo NG,

wollte in meinFormular einen Excelexport einbauen.
hier der Code:


Private Sub Excel_export_Click()

Dim xlApp As Object
Dim xlWorkbook As Object
Dim strPath As String
Dim rst As DAO.Recordset

strPath = "C:\Temp\Export.xls"

On Error Resume Next
Set xlApp = GetObject(, "Excel.Application")

If Err.Number = 429 Then
Set xlApp = CreateObject("Excel.Application")
End If
On Error GoTo 0

With xlApp
Set xlWorkbook = .Worksbooks.Add
Set rst = DBEngine(0)(0).OpenRecordset("qry_stüli_ex")
xlWorkbook.Range("A1").CopyFromRecordset rst
rst.Close
xlWorkbook.SaveAs strPath
.Visible = True
End With

Set xlWorkbook = Nothing
Set xlApp = Nothing
End Sub


Bekomme aber immer folgende Fehlermeldung:

Laufzeitfehler '438'
Objekt unterstützt diese Eigenschaft oder Methode nicht





Set xlWorkbook = .Worksbooks.Add <<<<<<<<<<<< hier wird dann immer
alles angehalten









Weiss Jemand Žwarum der Fehler enntsteht?
Zur Info, benutze Acc97

gruss Johann
 

Lesen sie die antworten

#1 Stefan Dase
19/05/2010 - 22:13 | Warnen spam
Hallo Johann!

(...)
With xlApp
Set xlWorkbook = .Worksbooks.Add



Da du eine Funktion aufrufst, musst du mindestens die leeren Klammern
angeben:

Set xlWorkbook = .Worksbooks.Add()

Vielleicht ist es damit schon getan? Ansonsten setze dir mal einen
Haltepunkt auf diese Zeile und schau im "Lokal-Fenster", welchen
Objekttyp xlApp hat.

Viele Grüße,
Stefan

Ähnliche fragen