Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: ShellExecute-Funktion Word-Datei im Netzwerk aufrufen
Autor: Ralf26
Datum: 15.02.20 17:09
Guten Abend, unsere Lösung dafür: Public Sub gFileShow(ByVal usFile As String, Optional ByVal ubAsk As Boolean = True, Optional usOrientation As String = "H") ' Comments : Zeigt die übergebene Datei mit dem passenden Programm an ' Parameters: usFile - Eingabe ' ubAks - = true fragt nach, ob die Datei angezeigt werden soll ' Returns : - ' Dim sExtension As String Dim objMYDocument As Object On Error GoTo gFileShow_Err: If LenB(usFile) = 0 Then GoTo gFileShow_Exit: End If usFile = Trim$(usFile) If Not gFSOFileExists(usFile) Then GoTo gFileShow_Exit: End If sExtension = gFSOFileGetExtensionName(usFile) Select Case sExtension Case "doc", "dot", "docx", "dotx" Call gGetWordObject With gobjWord .Application.Visible = True .Application.Activate .Application.WindowState = wdWindowStateMaximize .Documents.Add (usFile) Set objMYDocument = .ActiveDocument With objMYDocument usOrientation = Trim$(usOrientation) Select Case usOrientation Case "Q" .PageSetup.Orientation = wdOrientLandscape Case "H" .PageSetup.Orientation = wdOrientPortrait End Select End With ActiveWindow.View.ShowParagraphs = False End With Case "xls", "xlsx", "xlsm" Call gGetExcelObject With gobjExcel .Application.Visible = True .Application.WindowState = wdWindowStateMaximize .Workbooks.Open FileName:=usFile End With Case "csv" Call gGetExcelObject With gobjExcel .Application.Visible = True .Application.WindowState = wdWindowStateMaximize .Workbooks.OpenText FileName:=usFile, DataType:=gicstxlDelimited, Semicolon:=True, Local:=True End With Case Else Shell "notepad.exe " & usFile, vbNormalFocus End Select gFileShow_Exit: Exit Sub gFileShow_Err: Select Case mdblErrorNumber Case 5 Resume Next Case Else Call gSalFehlerroutine("gFileShow", Erl) Resume Next End Select End Sub

ShellExecute-Funktion Word-Datei im Netzwerk aufrufen	1.262	GL.	08.02.19 18:12
Re: ShellExecute-Funktion Word-Datei im Netzwerk aufrufen	585	Ralf26	15.02.20 17:09
Re: ShellExecute-Funktion Word-Datei im Netzwerk aufrufen	455	GL.	18.02.20 06:58

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen