Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

FileSearch & Save

Forumthread: 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
Anzeige

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..
Anzeige
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..
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige