Excel von Access starten

14/02/2009 - 20:26 von Oski | Report spam
Hallo
Wer kann mir einen guten Tipp geben.
Ich möchte aus einer Accesapplikation (Access 2003) direkt eine Datei im
Excell öffnen und
habe dazu folgende Ereignissprozedur erstellt.

Excel Datei: W:\Daten\Belegung_2009.xls
Wie muss ich folgenden Script ergànzen

Danke und Gruss
Oski


Private Sub BA_Belegung_Click()
On Error GoTo Err_BA_Belegung_Click

Dim oApp As Object

Set oApp = CreateObject("Excel.Application")
oApp.Visible = True
'Only XL 97 supports UserControl Property
On Error Resume Next
oApp.UserControl = True

Exit_BA_Belegung_Click:
Exit Sub

Err_BA_Belegung_Click:
MsgBox Err.Description
Resume Exit_BA_Belegung_Click

End Sub
 

Lesen sie die antworten

#1 Stefan Hoffmann
14/02/2009 - 20:33 | Warnen spam
hi,

Oski schrieb:
Dim oApp As Object

Set oApp = CreateObject("Excel.Application")
oApp.Visible = True


oApp.Workbooks.Open AFileName



mfG

Access-FAQ http://www.donkarl.com/
KnowHow.mdb http://www.freeaccess.de
Newbie-Info http://www.doerbandt.de/Access/Newbie.htm

Ähnliche fragen