AW: VBA: Click in Listbox PDF Datei öffnen
24.07.2018 11:33:44
Hajo_Zi
Datei öffnen Word, Powerpoint oder sonst was
Option Explicit
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 nShowCmd As Long) As Long
Sub Open_File(strFileName As String, windowType As Integer)
ShellExecute 0, "Open", strFileName, "", "", windowType
End Sub
Sub test()
'1 = vbNormalFocus
'2 = Minimized
'3 = Maximized
Open_File "c:\DeineDatei.txt", 1
End Sub
von Ramses Rainer
Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.