PDA

Vollständige Version anzeigen : createObject - Excel


Toennissen
18.10.2001, 10:52
Hallo,

habe folgendes Problem:

Ich möchte aus Access 97 heraus eine Exceltabelle mit Werten füllen.

Set Tabelle = CreateObject("Excel.Sheet.8")
Tabelle.Application.Visible = True
Tabelle.activesheet.cells(1, 1).Value = "Hallo"

Soweit sogut, aber leider wird Excel immer wieder automatisch geschlossen, wenn die Prozedur beendet ist.

Wie bringe ich als Access dazu, Excel nicht zu schließen???

Danke

Bwacki
18.10.2001, 11:52
Hallo,
ich nehme dazu folgenden Code:
Public Sub EXCEL_Open
Dim oApp As Object

On Error Resume Next

Set oApp = GetObject(, "Excel.Application")

If Err Then Set oApp = CreateObject("Excel.Application")
oApp.Workbooks.Open (Dateiname)
oApp.Worksheets(2).Activate
oApp.Visible = True
oApp.UserControl = True

End Sub

Viel Glück

Bwacki

Toennissen
18.10.2001, 13:48
Danke!

Funzt!