Excel staren

14/02/2009 - 17:02 von Oski | Report spam
Hallo
Wer kann mir einen guten Tipp geben.
Ich möchte aus einer Accesapplikation 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 Andreas Killer
16/02/2009 - 09:19 | Warnen spam
On 14 Feb., 17:02, Oski wrote:

Ich möchte aus einer Accesapplikation 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


...
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



oApp.Workbooks.Open "W:\Daten\Belegung_2009.xls"


Exit_BA_Belegung_Click:
    Exit Sub

Err_BA_Belegung_Click:
    MsgBox Err.Description
    Resume Exit_BA_Belegung_Click

End Sub



Andreas.

Ähnliche fragen