AW: Programm bzw Datei öffen
09.11.2007 23:51:00
Oberschlumpf
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