Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
348to352
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
348to352
348to352
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Datei in VErzeichnis aus Anwendung heraus suchen

Datei in VErzeichnis aus Anwendung heraus suchen
14.12.2003 15:08:19
Fritz Sanne
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei in VErzeichnis aus Anwendung heraus suchen
14.12.2003 16:54:09
Nepumuk
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
Anzeige
AW: Datei in VErzeichnis aus Anwendung heraus suchen
14.12.2003 17:19:47
Fritz Sanne
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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige