Herbers Excel-Forum - das Archiv
Datei in VErzeichnis aus Anwendung heraus suchen

|
Betrifft: Datei in VErzeichnis aus Anwendung heraus suchen
von: Fritz Sanne
Geschrieben am: 14.12.2003 15:08:19
Liebe Excelgemeinde.
Mit u.a. Teilcode rufe ich die Dokumentvorlage „Einladung1“ auf.
Die Dokumentvorlage befindet sich im gleichen Ordner, wie die Excel-Anwendung.
Um die Sache auch auf meinem dienstl. PC zum Laufen zu bringen, musste ich eine zweite Zeile für diesen PC einbauen. Da ich meine Programmierversuche auch meinen Kolleginnen und Kollegen zur Verfügung stellen möchte, bitte ich Euch, mir zu verraten, ob man Excel nicht aneisen kann sich selbst herauszusuchen, wo die Dokumentvorlage „Einladung1“ zu finden ist. Ich meine, ich hätte so etwas irgendwo schon einmal gesehen.
Hier mein Teilcode
Sub Einladung1()
Dim WD As Object
Application.ScreenUpdating = False
Set WD = CreateObject("word.application")
On Error Resume Next
WD.Documents.Add "D:\Eigene Dateien\Bewährungshilfe\Einladung1.dot"
WD.Documents.Add "D:\WINNT40\Profiles\bewhg06\Desktop\Bewährungshilfe\Einladung1.dot"
WD.Visible = True
Usw.
Danke für Eure Mühe.
Fritz

 |
Betrifft: AW: Datei in VErzeichnis aus Anwendung heraus suchen
von: Nepumuk
Geschrieben am: 14.12.2003 16:54:09
Hallo Fritz,
so geht's:
Option Explicit
Public Sub test()
Dim myFileSystemObject As Object, myDriveObject As Object, myDrive As Object, strDatei As String
Set myFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set myDriveObject = myFileSystemObject.Drives
For Each myDrive In myDriveObject
If myDrive.IsReady And (myDrive.DriveType = 2 Or myDrive.DriveType = 3) Then
With Application.FileSearch
.LookIn = myDrive.DriveLetter & ":"
.SearchSubFolders = True
.FileType = msoFileTypeTemplates
.Filename = "Einladung1.dot"
If .Execute <> 0 Then
strDatei = .FoundFiles(1)
Exit For
End If
End With
End If
Next
MsgBox strDatei
End Sub
Code eingefügt mit: Excel Code Jeanie
Gruß
Nepumuk
Betrifft: AW: Datei in VErzeichnis aus Anwendung heraus suchen
von: Fritz Sanne
Geschrieben am: 14.12.2003 17:19:47
Hi, Nepumuk.
Stark. Ich bin mal wieder begeistert. Und so langsam, gaaanz langsam, beginne ich auch zu verstehen, worum es geht.
Also nochmal vielen Dank.
Fritz