Access-o-Mania

Access-Forum => Access Programmierung => Thema gestartet von: Grumpy am April 26, 2018, 12:57:56

Titel: Exceldatei öffnen als Teil eines Makro
Beitrag von: Grumpy am April 26, 2018, 12:57:56
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.)
Titel: Re: Exceldatei öffnen als Teil eines Makro
Beitrag von: Frank77 am Mai 12, 2018, 15:36:56
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