Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
Screenshot zu CommandButton	CommandButton-Seite mit Beispielarbeitsmappe aufrufen

Anfänger bittet um Eure MAKRO Hilfe

• Anfänger bittet um Eure MAKRO Hilfe von Michael vom 08.09.2004 19:00:09
• AW: Anfänger bittet um Eure MAKRO Hilfe - von Nepumuk am 08.09.2004 19:17:14
  • Klappt noch nicht - von Michael am 08.09.2004 19:23:37
    • AW: Klappt noch nicht - von Nepumuk am 08.09.2004 19:29:14

Betrifft: Anfänger bittet um Eure MAKRO Hilfe von: Michael
Geschrieben am: 08.09.2004 19:00:09

Hallo liebes Forum,
leider bin ich ein absoluter Makroanfänger (nur Recorder) und mit der Hilfefunktion komme ich leider nicht weiter.
Bitte um Eure Hilfe wie mein Makro aussehen muß wenn ich bei Ausführung die unten genannte ACCESS Datei öffnen will.

D:\PROGRAMME\ACCESS\DMF_Kalkulation_V172.mdb

1.000 Dank
Michael

Betrifft: AW: Anfänger bittet um Eure MAKRO Hilfe von: Nepumuk
Geschrieben am: 08.09.2004 19:17:14

Hallo Michael,
so geht's:

Option Explicit

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal lpnShowCmd As Long) As Long

Public Sub DB_oeffnen()
    ShellExecute 0, "Open", "DMF_Kalkulation_V172.mdb", "", "D:\PROGRAMME\ACCESS\", 3
End Sub

Gruß
Nepumuk




Betrifft: Klappt noch nicht von: Michael
Geschrieben am: 08.09.2004 19:23:37

Da bekomme ich noch eine Fehlermeldung.
Was habe ich falsch gemacht?

Private Sub CommandButton6_Click()
Option Explicit

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal lpnShowCmd As Long) As Long

Public Sub DB_oeffnen()
    ShellExecute 0, "Open", "DMF_Kalkulation_V172.mdb", "", "D:\PROGRAMME\ACCESS\", 3
End Sub

Betrifft: AW: Klappt noch nicht von: Nepumuk
Geschrieben am: 08.09.2004 19:29:14

Hallo Michael,
so:

Option Explicit

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal lpnShowCmd As Long) As Long

Private Sub CommandButton6_Click()
    ShellExecute 0, "Open", "DMF_Kalkulation_V172.mdb", "", "D:\PROGRAMME\ACCESS\", 3
End Sub

Gruß
Nepumuk