Acces aus VB starten und Excel-Datei importieren
30.11.2005 11:46:42
sven
ich möchte gerne per Button Access aus Excel aufrufen und dabei am besten noch eine Excel-Datei mit access importieren.
Habe für word schon ein script gefunden was leider nicht für access funktioniert. Die Verweise habe ich alle gesetzt.
Vielleicht habe ich was übersehen oder ihr habt einen andern weg :).
MFG Sven
--------------------------------------------------
Private Sub bt_acces_starten_Click()
Dim wApp As Object
' access-Objekt erzeugen
Set wApp = CreateObject("Access.Application.8")
With wApp
' access anzeigen
.Application.Visible = True
.Application.Activate
' nach getaner Arbeit, access wieder beenden
' .Application.Quit
End With
Set wApp = Nothing
End Sub
-------------------------------------------------------