Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
544to548
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
544to548
544to548
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

In Acces mit VBA Excel öffnen

In Acces mit VBA Excel öffnen
13.01.2005 08:50:38
Ledi
Hallo zusammen,
ich habe eine Access Datenbank und möchte mit am Ende einer Prozedur gerne eine Exceldatei in einem bestimmten Pfad öffnen. Wer weiß hier Rat?
Vielen Dank im Vorraus

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: In Acces mit VBA Excel öffnen
DieterB
Hallo,
habe ich gerade gestern gelöst.
dafür brauchst du 2 Funktionen.
bei mir wird mit Klick auf Button (in einem Formular)
eine bestimmte Excel-Datei geöffnet.
ist es das was du willst?
Habe es unter Office2000 (9.0) erstellt.
Gruß
DieterB
AW: In Acces mit VBA Excel öffnen
13.01.2005 09:23:12
Ledi
Genau das ist es.
Gruß
L.
AW: In Acces mit VBA Excel öffnen
13.01.2005 09:36:04
DieterB
Hallo Ledi,
Anbei der Code.
'Hier beginnen die Funktionen
Option Compare Database
Private Declare Function ShellExecuteA Lib "shell32.dll" ( _
ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long _
) As Long

Function ShellExec( _
ByVal Path As String, _
Optional ByVal WindowStyle As VbAppWinStyle = vbNormalFocus, _
Optional ByVal Operation As String = "open" _
) As Boolean

ShellExec = ( _
ShellExecuteA(0&, Operation, Path, _
vbNullString, vbNullString, WindowStyle) > 32)
End Function
'Hier beginnt der Code, der ausgeführt wird
'wenn man auf den Button klickt

Private Sub Befehl52_Click()
On Error GoTo Err_Befehl52_Click
Dim oApp As Object
Dim strexcel As Application
ShellExec "F:\Ordner\Datei.xls"
'Set oApp = strexcel 'CreateObject("Excel.Application")
'oApp.Visible = True
'Only XL 97 supports UserControl Property
On Error Resume Next
oApp.UserControl = True
Exit_Befehl52_Click:
Exit Sub
Err_Befehl52_Click:
MsgBox Err.Description
Resume Exit_Befehl52_Click
End Sub

Viel Erfolg
Gruß
DieterB
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige