Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 18:57:33
17.04.2024 16:56:58
Anzeige
Archiv - Navigation
412to416
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
412to416
412to416
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Problem beim öffnen einer datei mit shell

Problem beim öffnen einer datei mit shell
ray
Hallo,
in einer frm lasse ich mir pfade/daeien anzeigen.
msgbox "" & Listbox1 liefert:
F:\MT\0035 - Schanzen 13,15 - Hinrich-Voiß-Str 5+7\echg.xls
Ich möchte mit:
Shell (Application.Path & "\excel.exe" & " " & ListBox1)
die Datei echg.xls aus obigen Pfad öffnen.
Fehler: 2. Excel wird geöffnet = ok,
Bei Leerschritten fügt er aber dann .xls zu, versucht zu öffen, und meldet
0035.xls nicht gefunden
dann Schanzen.xls nicht gefunden
dann 13,15.xls nicht gefunden
usw.
Versuch und Irrtum haben schwer gekämpft, Irrtum hat gewonnen...
Weiß jemand wie ich die Ausgabe von Listbox1 richtig benutzen muß?
Gruß aus Hamburg

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Problem beim öffnen einer datei mit shell
Oberschlumpf
Hi Hamburger :-)
Hab Deinen "Hilferuf" im letzten Thread bemerkt :-)
Versuch mal dies hier:
Shell (Application.Path & "\excel.exe " & Chr(34) & ListBox1.Text & Chr(34))
Mit Chr(34) am Anfang und Ende von Listbox1.Text wird eben genau der Inhalt von Listbox1.Text in Anführungszeichen eingeschlossen. Und somit "erkennt" Excel das dann auch als zusammenhängenden Pfad & Dateinamen.
(zumindest funktionierts bei mir so ;-) )
Ach so.
Voraussetzung ist, dass Du VOR der Ausführung des Befehls den entsprechenden Eintrag in der Listbox angeklickt hast, da sonst Listbox1.Text keinen Wert hat.
Aber ich gehe davon aus, dass Du eh erst aus der Listbox etwas "auswählst" und dann erst startest, oder? :-)
Ciao
ein anderer Hamburger :-)
Anzeige
es geht.... mT
ray
sorry leute, war mal wieder zu blöd... hab \ vor excel vergessen...
hier die versuche, die gehen
ich bin zu blöd, hatte das \ vor excel vergessen. hab on error rausgeschmissen und im debugger zum Fehler.
die opt die gehen:
Dim x As Long
'x = Shell(Application.Path & "\excel.exe " & Chr$(34) & ListBox1.List(ListBox1.ListIndex) & Chr$(34), vbNormalFocus) 'ok
'x = Shell(Application.Path & "\excel.exe " & Chr$(34) & ListBox1 & Chr$(34), vbNormalFocus) ' ok
'x = Shell(Application.Path & "\excel.exe " & " """ & ListBox1 & """", vbNormalFocus) 'ok
'x = Shell(Application.Path & "\excel.exe " & " '" & ListBox1 & "'") 'nein
Danke, für eure geduld,
Grüße aus der Nachbarschaft
Ray
Anzeige
no Prob :-)...o.T.
19.04.2004 10:04:53
Oberschlumpf

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige