Datei außerhalb von Excel ÖFFNEN
Excel
Danke für eure Hilfe
Silvia
Sub Menu3()
Dim vollpfad
Dim pfad
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
With fso.getfile(ActiveWorkbook.FullName)
pfad = Mid(.Path, 1, Len(.Path) - Len(.name))
End With
vollpfad = pfad & "HilfeDatei.doc"
CreateObject("word.application").documents.Open(vollpfad).Application.Visible = True
End Sub
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
Declare
Function GetActiveWindow Lib "user32.dll" () As Long
Const SHOWMAXIMIZED = 3
Const SHOWNORMAL = 1
Sub pdfAufruf()
''Pfad muss natürlich angepasst werden!
ShellExecute GetActiveWindow, "Open", "C:\Eigene Dateien\Manual.pdf", "", "", SHOWMAXIMIZED
End Sub
Gruß K.Rola
' AKTUELLEN PFAD FINDEN
Function PfadFeststellen()
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
With fso.getfile(ActiveWorkbook.FullName)
PfadFeststellen = Mid(.Path, 1, Len(.Path) - Len(.NAME))
End With
End Function
' INTERNET EXPLORER ÖFFNEN
Sub IEoeffnen(DATEI)
Dim IE As InternetExplorer
If Dir(DATEI) = "" Then
MsgBox "Die Datei " & DATEI & " wurde nicht gefunden!", 64, "Hinweis: Datei nicht gefunden"
Exit Sub
End If
Set IE = New InternetExplorer
With IE
.FullScreen = False
.Toolbar = False
.StatusBar = False
.AddressBar = False
.Resizable = False
.Width = 700
.Height = 500
.Top = 0
.Left = 0
.TheaterMode = False
.Visible = True
End With
IE.Navigate DATEI
Set IE = Nothing
End Sub
Sub Menu1() 'Hilfedatei öffnen
Const HNAME As String = "HilfeDatei.doc"
Dim DATEI
PfadFeststellen
DATEI = PfadFeststellen & HNAME
IEoeffnen (DATEI)
End Sub
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
Declare Function GetActiveWindow Lib "user32.dll" () As Long
Const SHOWMAXIMIZED = 3
Const SHOWNORMAL = 1
Sub pdfAufruf()
ShellExecute GetActiveWindow, "Open", "F:\HilfeDatei.pdf", "", "", SHOWMAXIMIZED
End Sub