Datei öffnen
08.02.2008 17:54:00
Brunken,
über diesen Doppelklick öffne ich eine Excel Datei aus der ListBox
wie geht das für eine PDF oder jpg Datei?
Private Sub lstTOC_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim objXLSApp As Excel.Application
Dim wb As Workbook
If lstTOC "" Then
Set objXLSApp = CreateObject("Excel.Application")
objXLSApp.Visible = True
Set wb = objXLSApp.Workbooks.Open(strPath & "\" & lstTOC)
End If
End Sub