Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1104to1108
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Problem mit function ShellExecute

Problem mit function ShellExecute
chris
Hallo VBA profis,
noch eine frage :(
Sorry aber ich weiß nicht weiter.
Könnt ihr mir helfen ?
Ich versuche mit diesem Makro eine datei zu öffnen.
Aber es geht keine Datei auf.
Die textdatei test.txt ist vorhanden auf c:
Das Makro läuft durch aber nichts passiert.
was kann der fehler sein ?
Vielen Dank
Option Explicit
Private 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 neu()
Dim strTemp
Dim SHOWMAXIMIZED
Dim strdatei
strdatei = "c:\test.txt"
ShellExecute 0, "Open", strdatei, "", "", SHOWMAXIMIZED
End Sub

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Problem mit function ShellExecute
07.10.2009 12:04:06
xr8k2
Hallo Chris,
versuch mal so:
ShellExecute 0, "Open", strdatei, "", "", 3
Gruß,
xr8k2
AW: Problem mit function ShellExecute
07.10.2009 12:48:58
chris
Hallo,
vielen Dank damit klappts.
Komischerweiße ging es bis gestern auch anders aber egal :)
Danke und schönen tag !
AW: Problem mit function ShellExecute
07.10.2009 12:09:06
Rudi
Hallo,
ich mach das so:
Sub tt()
Dim myShell As Object, strDateiName As String
strDateiName = "c:\Test.txt"
Set myShell = CreateObject("WScript.Shell")
myShell.Run Chr(34) & strDateiName & Chr(34)
Set myShell = Nothing
End Sub

Gruß
Rudi
AW: Problem mit function ShellExecute
07.10.2009 12:49:48
chris
Danke vielmals !
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige