Excel Path an Access Makro übergeben
06.05.2014 17:04:51
Templer
ich versuche die bereits in Excel definierten Variable "Path" an Access zu übergeben. Wie ich das Makro in Access Aufrufe habe ich gefunden.
Sub CallAccess()
Path = Range("K8")
Dim accApp As Object
Dim sFile As String
sFile = "C:\test.accdb"
If Dir(sFile) = "" Then
Beep
MsgBox "Access-Datenbank wurde nicht gefunden!"
Else
With CreateObject("Access.Application")
.OpenCurrentDatabase sFile
.Run "Return_Provision"
.CloseCurrentDatabase
End With
End If
End Sub