Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1160to1164
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
Inhaltsverzeichnis

Suchen und Umbennen

Suchen und Umbennen
Luca
Guten Tag alle Zusammen
Es geht um eine "Suchen+umbennen" Geschichte mit VBA 6.5.
Folgendes:
Ich möchte nur in einem bestimmten Verzeichniss nach einer Datei mit Endung *.xlsx suchen.
Diese Datei soll sofort genommen und die Dateiendung geändert werden.
Ich habs geschafft die Datei zu suchen, jedoch noch nicht sie umzubennen.
Dim cFile As String
cFile = Dir("G:\Daten\BUCHHALT\G93\UBS\2010\*.xlsx")
Do While cFile ""
Debug.Print cFile
cFile = Dir
Loop
Wäre sehr schön wenn ihr mir helfen könnt.
Freundliche Grüsse Luca

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Suchen und Umbennen
08.06.2010 14:43:56
Hajo_Zi
Hallo Luca,
wozu?

AW: Suchen und Umbennen
08.06.2010 14:48:03
Luca
Das ist eine Datei die wir von der Bank geschickt bekommen haben.
Bisher in einem anderen Format.
Das wurde automatisiert verarbeitet, und aus irgendeinem mir unerklärlichen Grund hat die Bank plötzlich das Format gewechselt.
Jetzt muss ich vor der automatischen Verarbeitung eine Umbennenung der Datei einbauen, weil es sonst eine Fehlermeldung gibt.
AW: Suchen und Umbennen
08.06.2010 14:53:37
Luca
Problem ist gelöst:
Dim Dat1$, Ordner$
Ordner = "G:\DATEN\BUCHHALT\G93\UBS\2010"
Dat1 = Dir$(Ordner & "\*.xlsx")
Do Until Dat1 = ""
Name (Ordner & "\" & Dat1) As (Ordner & "\" & Left$(Dat1, Len(Dat1) - 3))
Dat1 = Dir$
Loop
Anzeige
AW: Suchen und Umbennen
08.06.2010 16:50:26
Hajo_Zi
Halo Luca,
Du kanns einer Datei mit dem Typ XLSX den Typ DOC geben das wird aber trotzdem keine Word Datei.
Gruß Hajo

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige