Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
800to804
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
800to804
800to804
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

FileSearch & Save

FileSearch & Save
20.09.2006 12:23:07
Lars
Hallo Forum,
Über FileSearch suche & bearbeite Filename(August.xls) Dateien.
Jetzt soll aber die Datei nach Bearbeitung nicht unter dem gleiche Filename
gespeichert werden, sondern als September.xls.
Was muss ich bei diesem Befehl ändern?
Set quelle = Workbooks.Open(Application.FileSearch.FoundFiles(y))
'Hier dann Befehle für Änderung an Datei
quelle.Close savechanges:=True
Danke & Gruß
Lars

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

Betreff
Datum
Anwender
Anzeige
AW: FileSearch & Save
20.09.2006 15:02:15
Reinhard
Hi Lars,
ungetestet:
Set quelle = Workbooks.Open(Application.FileSearch.FoundFiles(y))
'Hier dann Befehle für Änderung an Datei
quelle.saveas "September.xls" ' kanmn auch sein "c:\eigenne Dateien\September.xls"
quelle.Close
Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
AW: FileSearch & Save
20.09.2006 15:22:19
Lars
Hallo Reinhard,
in diesem Beispiel werden mir die Dateien wirklich in Eigene Dateien gespeichert.
Mit FileSearch durchlaufe ich aber 98 Ordner und somit 98 Dateien.
In den 98 Ordnern gibt es jewals eine Datei August.xls.
Diese Dateien August.xls öffne ich nach ein ander mit FileSearch und ändere die Datei.
Die geänderte Datei soll dann in dem Ordner aber als September.xls gespeichert werden.
In deinem Beispiel bekomme ich die Datei September.xls in Eigene Dateien und da:
1. aus welchem der 98 Ordner ist diese Datei
2. wird September.xls immer versucht durch September.xls zu ersetzen
Gruß
Lars
Anzeige
AW: FileSearch & Save
20.09.2006 15:32:39
Reinhard
Hi Lars,
Set quelle = Workbooks.Open(Application.FileSearch.FoundFiles(y))
Pfad=activeworkbook.path
'Hier dann Befehle für Änderung an Datei
quelle.saveas Pfad & "\" & "September.xls"
quelle.Close

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige