Programm bzw Datei öffen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Aber mir fällt eben ein das ich noch was anderes vorher brauche... Und Zwar ist mir nicht bekannt in welchem Ordner die Datei liegt. Der Pfad sieht in etwa so aus: G:\Ordner1\Ordner2\Ordner3\ In Ordner 3 sind nochmals 2 Ordner enthalten einmal Name 3D und einmal Name 2D In einem von diesen beiden Ordnern ist meine Datei. Gibt es ne Möglichkeit diese beide Ordner _ zu durchsuchen, und dann erst zu öffen? Wenn ja wie?

Sub sbDxf() Dim lstrFile As String, lloProg As Long lstrFile = Application.GetOpenFilename("DXF-Files (*.dxf), *.dxf") If lstrFile = "Falsch" Then Exit Sub lloProg = Shell("Pfad\Programmname " & lstrFile) End Sub

Sub sbDxf() Dim lstrFile As String, lloProg As Long lstrFile = Application.GetOpenFilename("JPG-Files (*.jpg), *.jpg") If lstrFile = "Falsch" Then Exit Sub lloProg = Shell("C:\Programme\Adobe\Photoshop CS\Photoshop.exe D:\Fotos\ " & lstrFile) End Sub

Sub sbDXFoderJPG() With Application.FileSearch .LookIn = "G:\Ordner1\Ordner2\Ordner3" 'musst du anpassen! .SearchSubFolders = True .Filename = "AnfangVonDatei" & Range("DeineZelle").Value & ".jpg" 'musst du anpassen! If .Execute() > 0 Then lloProg = Shell("C:\Programme\Adobe\Photoshop CS\Photoshop.exe " & Chr(34) & . _ Filename & Chr(34)) End If End With End Sub

Sub sbDXFoderJPG() With Application.FileSearch .LookIn = "D:\Neuer Ordner1\Neuer Ordner2\Neuer Ordner3" 'musst du anpassen! .SearchSubFolders = True .Filename = "AnfangVonDatei" & Range("L34").Value & ".doc" 'musst du anpassen! If .Execute() > 0 Then lloProg = Shell("C:\Programme\Microsoft Office\OFFICE11\WINWORD.EXE " & Chr(34) _ & . _ Filename & Chr(34)) End If End With End Sub

Hi Gerhard
Irgendwo hattetst du das hier geschrieben:
So wie hier in etwa?
D:\Fotos\2007_02_17" & Range("D34:D34") & ".jpg")
Und da ging ich davon aus, dass du einen Anfang der Datei hast, und dann den Wert aus einer bestimmten Zelle an den Anfang der Datei - in deinem Bsp ist 2007_02_17 der Anfang der Datei - anhängst.
Nun schreibst du, dass sich der gewünschte Dateiname nur aus Zelle L34 + die im Script angegeben Dateiendung zusammensetzt!
Erst so, dann so?
Wie soll man dir eine Lösung anbieten, wenn du die Voraussetzungen andauernd veränderst?
Dazu fällt mir nur ein:
Eine qualifierte Antwort setzt eine qualifizierte Fragestellung voraus!
Mit anderen Worten:
Überleg dir bitte - bevor du eine Frage stellst - erst mal genau, welche Vorgaben du hast, und was du erreichen möchtest.
Mit deinen neuen Anforderungen versuch es mal mit dieser Zeile:


.Filename = Range("L34").Value & ".doc"

die ähnlich lautende Zeile mit "AnfangDerDatei" musst du natürlich löschen.
Mit Hilfe der neuen Zeile wird nun nach einer Datei gesucht, dessen Dateinamen sich aus dem Wert aus Zelle L34 und der Endung ".doc", oder was auch immer du dafür einträgst, zusammensetzt.
Bin neugierig, ob du nun weiterkommst.
Hilft es?
Ciao
Thorsten

Hi Gerhard
nochmal dein Zitat:
D:\Fotos\2007_02_17" & Range("D34:D34") & ".jpg")
Wenn also z Bsp in Zelle der Wert 5 steht, dann ergibt die obige Zeile diesen Ausdruck:
D:\Fotos\2007_02_175.jpg
Wenn es sich aber, wie du jetzt meinst, bei 2007_02_17 um ein Verzeichnis handelt, dannnnn....hättest du die obige Zeile so schreiben müssen:
D:\Fotos\2007_02_17\" & Range("D34:D34") & ".jpg")
Erkennst du den Unterschied?
Du hattest hinter der 17 den Backslash vergessen.
(bist du immer noch der Meinung, dass ich was falsch verstanden habe, oder siehst du nun, dass du etwas vergessen hast, was zwangsläufig zum Missverständnis führt?)
Hättest du das nicht vergessen, dann wäre auch ich sofort der Meinung gewesen, dass sich der Dateiname nur aus dem Wert aus - hier - Zelle D34 und der Endung .jpg ergibt, da es sich ja bei
D:\Fotos\2007_02_17\
eindeutig um ein Verzeichnis handelt, weil...mit abschließendem Backslash.
Um nun aber das ganze Wirrwarr noch komplett zu machen, habe auch ich richtig was falsch gemacht! - Sorry dafür
Der Code läuft so wie bisher nicht - auch nicht bei mir - hab beim hier eintragen einiges vergessen - wie gesagt - sorry dafür
(nun lehn dich aber nich zurück und sag nicht zu dir dir selbst: "Hab ich mir ja gleich gedacht!" :-) )
Denn dein fehlender \ führte trotzdem zu dem erwähnten Missverständnis ;-)
Hier nun der Code, wie er definitiv auch bei mir funktioniert:


Sub sbDXFoderJPG()
With Application.FileSearch
.NewSearch
.LookIn = "D:\Homepages\Kopie von Tipps" 'musst du anpassen
.SearchSubFolders = True
.MatchTextExactly = True
.Filename = Range("L34").Value & ".doc"
If .Execute() Then
lloProg = Shell("C:\Programme\Microsoft Office\OFFICE11\WINWORD.EXE " & Chr(34)  _
& .FoundFiles(1) & Chr(34))
End If
End With
End Sub

Wie du vielleicht siehst, gibt es nun ein paar Zeilen mehr.
Aber so, wie der Code da steht (der Pfad für winword.exe ist bei mir nur anders), wird bei mir die Datei aus Zelle L34 mit und in Word geöffnet.
Wenn du die LookIn-Zeile anpasst, sollte nun auch bei dir alles ok sein.
Oder? :-)
Ciao
Thorsten

Die Datei konnte nicht gefunden werden, wozu es folgende Gründe geben kann: die Datei ist nicht vorhanden, befindet sich in einem anderen Speicherort, wird von einer _ anderen Applikation in Anspruch genommen, oder ist aufgrund mangelnder Zugriffsrechte nicht verfügbar.

Beliebteste Forumthreads (12 Monate)

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Programm bzw Datei öffen

24 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread