Ich habe ein Navigationsformular.
Eine der Schaltflächen lässt mehrere Abfragen nacheinander ablaufen und Exportiert auch Daten in eine Excel Tabelle (Datei1.xls).
Am Schluß möchte ich eine andere Excel Tabelle (Datei2.xlsm) automatisch öffnen lassen.
Datei2 liegt im gleichen Verzeichnisordner wie Accessdatenbank.
(Sinn und Zweck ist, aus Access werden Daten1 exportiert und beim öffnen von Datei2 durch ein auto_open Makro in Excel direkt verarbeitet.)
Hallo!
Vieleicht bring dich das weiter
Public Sub Click_Open()
Dim objExcel As Excel.Application
Dim strPfad As String
strPfad = CurrentProject.Path & "\Datei2.xls"
Set objExcel = New Excel.Application
If Not objExcel Is Nothing Then
With objExcel
.Visible = True
.Workbooks.Open strPfad
End With
End If
Exit_ErrHandler:
If Not objExcel Is Nothing Then Set objExcel = Nothing
Exit Sub
Err_ErrHandler:
Select Case Err.Number
Case Else
MsgBox "Verbindung zu Excel kann nicht aufgebaut werden. " & _
Err.Description, vbSystemModal + vbCritical Or vbOKOnly, "Problem !"
Resume Exit_ErrHandler
End Select
End Sub
Gruß Frank