Office: automatisch Dateien öffnen und rename

Hallo,

folgendes Problem,

Ich habe unzähliche Dateien mit einer Masterdatei verknüpft, was mein leben recht angenehm macht. Bis auf ein Problem: Die Dateien werden von externen ausgefüllt und beim versenden immer irgendwie umbenannt--> Die schönen Verknüpfungen sind dahin und ich muß immer selbst die Dateinamen ändern. leider sind die externen recht "lernresistent" und die Anzahl der Dateien recht hoch

was möchte ich versuchen:

Die erste Datei in einem ordner (egal welche, egal wie diese heißt, sagen wir die an erste Position steht), soll geöffnet werden und soll unter dem Ausdruck, welcher in feld "A1" steht woanders gespeichert werden.
Und das dann für alle dateien im Ordner

Danke für eure Hilfe

Grüße

 

Hi,

mal ungetestet:

Code:

Sub SpeichernUmbenennen()
   Dim strDateiname As String
   Application.ScreenUpdating = False
   strDateiname = Dir("C:\Test\*.xls")
   Do While strDateiname <> ""
       Workbooks.Open Filename:="C:\Test\" & strDateiname & ".xls"
       ActiveWorkbook.SaveAs "D:\Test\" & ActiveWorkbook.Worksheets("Tabelle1").Range("A1") & ".xls"
       ActiveWorkbook.Close True
       strDateiname = Dir
   Loop
   Application.ScreenUpdating = True
End Sub

Bis später,
Karin

 

Supi...

besten Dank Karin, funktioniert

Grüße

Boris