title image


Smiley Re: Word-Dokument mit Makro öffnen






'Damit kann man AFAIK alle registrierten Dateiarten öffnen/ausführen ohne das Programm angeben zu müssen:

 

'In einem Standartmodul:

Option Compare Database

Option Explicit

 

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal Hwnd As Long, ByVal Ipoperation As String, _

ByVal Ipfile As String, ByVal Ipparameters As String, ByVal Ipdirectory As String, ByVal nshowcmd As Long) As Long

 

 

'Dann im Formular z.B.:

Private Sub OpenFileBtn_Click()

On Error Resume Next

Dim DoOpenFile As Long, OpenFileVar As String

 

'Wenn Pfad und Datei in einem Formularfeld "Dateifld" stehen:

If Not IsNull(Me!Dateifld) Then

OpenFileVar = Me!Dateifld

DoOpenFile = ShellExecute(Me.Hwnd, vbNullString, OpenFileVar, vbNullString, vbNullString, 1)

Else

MsgBox "Es wurde keine Datei ausgewählt.", vbExclamation

End If

 

'bzw. gleich direkt:

OpenFileVar = "C:\BlaBla\DeineDatei.xyz" 'oder wie auch immer

DoOpenFile = ShellExecute(Me.Hwnd, vbNullString, OpenFileVar, vbNullString, vbNullString, 1)

 

End Sub




Gruss aus dem (wilden) Süden ;-) Karl-Heinz

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: