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

Per Makro Datei öfnnen Dateiname bekannt

Per Makro Datei öfnnen Dateiname bekannt
24.01.2005 11:32:34
hannes
Hallo
zu Datei öffnen ist schon einiges hier zu finden aber wie sieht es aus in kenne die die Hauptverzeichnisse D:\Test\Ablage\dann keine Ahnung welches Verzeichnis\und vom Filenamen die ersten vier Zeichen im Range("AI14")stehen.xls
wie müsste der dann Makro lauten wenn ich nur nach den ersten vier Buchsstaben suche obwohl der Filename der zu suchenden Datei viel länger ist!
Bitte seit so nett und helft mir
hannes

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

Betreff
Datum
Anwender
Anzeige
AW: Per Makro Datei öfnnen Dateiname bekannt
24.01.2005 11:49:23
ino

Sub dateiöffnen()
name1 = Cells("Al14").Value
tmpart = "name1" & "*.xls"
pfad1 = "D:\test\ablage\"
strDirNew = pfad1
ChDrive Left(pfad1, 1)
ChDir strDirNew
fname = Dir(pfad1 & tmpart)
While fname <> ""
Workbooks.Open fname, 0
fname = Dir()
wend
End Sub

AW: Per Makro Datei öfnnen Dateiname bekannt
hannes
Danke erst mal ino
deine Code läuft zwar durch er öffnet mir aber kein Workbook?
hannes
AW: Per Makro Datei öfnnen Dateiname bekannt
24.01.2005 15:27:01
ino
sorry!

Sub dateiöffnen()
name1 = Range("Al14").Value
tmpart = name1 & "*.xls"
pfad1 = "D:\test\ablage\"
strDirNew = pfad1
ChDrive Left(pfad1, 1)
ChDir strDirNew
fname = Dir(pfad1 & tmpart)
While fname <> ""
Workbooks.Open fname, 0
fname = Dir()
wend
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige