Hallo,
ich hab noch nie mit VBA gearbeitet und steh vor folgendem Problem.
Ich muss von MS Access eien Excel Datei öffnen, soweit so gut. Vorher sollte aber Überprüft werden, ob die Datei schon exisitiert. Sollte die Datei noch nicht existieren, soll sie erstellt werden. Und hier hänge ich.
Wie kann ich von MS Access aus eine Exceldatei öffnen, diese, sollte sie noch nicht vorhanden sein, automatisch erstellen lassen. am besten mit Fenster "Datei wurde erfolgreich erstellt!".
Ich wäre um jedes Codeschnipsler dankbar. Für Profis sicher ein Klacks. Danke.
Soweit bin ich schon (test.xls soll noch durch ein Variable aus der Access Datenbank ersetzt werden):
Zitat:
Private Sub Befehl2_Click()
On Error GoTo Err_Befehl2_Click
Dim oApp As Object
Set oApp = CreateObject("Excel.Application")
oApp.Visible = True
oApp.Workbooks.Open FileName:="test.xls"
'Only XL 97 supports UserControl Property
On Error Resume Next
oApp.UserControl = True
Exit_Befehl2_Click:
Exit Sub
Err_Befehl2_Click:
MsgBox Err.Description
Resume Exit_Befehl2_Click
End Sub
|