Dateiname & Parameter aulesen
27.08.2018 22:18:48
R.
ich möchte meine Excel-Mappe etwas komfortabler für den Anwender machen.
Per Klick auf einen Button öffnet sich eine Datei, die in der Regel auch fast immer gleich bleibt.
Nur für die Ersteinrichtung habe ich einen weiteren Button eingerichtet, der den Namen und den Pfad der Datei recht einfach auswählen lässt.
Im "Klartext" VBA :
Sub pfad()
Dim varDatei As Variant
varDatei = Application.GetOpenFilename(, 1, "Bitte Datei auswählen")
If varDatei False Then
Sheets("progress").Range("M374") = varDatei
End If
End Sub
Hier kann nun die Datei ausgewählt werden.
Das Ergebnis ist auch zufriedenstellend, solange es .EXE Dateien sind.
Auch mit den meisten Verknüpfungen läuft es recht stabil.
Aber leider nicht immer.
Das Ergebnis oben liefert mir den Wert aus einer Verknüpfung :
C:\Users\admin\Winamax\wlauncher.exe
Die Datei (Verknüpfung wird aber trotzdem nicht sauber ausgeführt, weil die Startparameter _
nicht mit ausgelesen werden.
Wenn ich die Verknüfung mit rechter Maustaste anwähle und Eigenschaften wähle, erscheint :
C:\Users\admin\Winamax\wlauncher.exe --mode unattended --unattendedmodeui none --cmdlaunch _
poker
Ohne diese (fett dargestellten) Startparameter öffnet sich leider nichts.
Meine beiden Fragen :
Wie sieht eine Sub aus, die zunächst "automatisch" zwischen exe und Verknüpfung unterscheidet _
und zusätzlich in der Lage ist, den vollständigen Pfad, Dateinamen UND alle Startparameter auszulesen?
Aufgerufen wird die Datei übrigens mit :
Sub software()
Dim path As Variant
Dim x As Variant
path = Sheets("progress").Range("M374")
MsgBox path
x = Shell(path, 1)
End Sub
Wie gesagt : klappt nur dann nicht, wenn die Parameter fehlen.
Bin wirklich dankbar für jeden Hilfeansatz!