Microsoft Excel

Herbers Excel/VBA-Archiv

mehrere dateien per vba speichern

Betrifft: mehrere dateien per vba speichern
von: Beate
Geschrieben am: 17.04.2003 - 19:10:03

hallo

ich würde gerne erfahren wie man mehrere excel dateien die geöffnet sind per command button speichern und schliessen kann (ich schaffe es nur die aktive datei zu speichern, aber alle anderen dateien bleiben ungesichert und offen!). ich habe im archiv und recherche nichts passendes gefunden bzw. es hat nicht gefunzt. bitte helft mir. danke.


  

Re: mehrere dateien per vba speichern
von: andre
Geschrieben am: 17.04.2003 - 19:29:48

hallo beate,
etwa so:
for each dateien in workbooks()
workbook(dateien.name).close savechanges=true
next
--> schliesst auch die dateie mit dem code
wenn nicht, dann noch
if dateien.name <> "MeineCodeDatei.xls" then
...close...
end if
gruss andre

  

Re: mehrere dateien per vba speichern
von: beate
Geschrieben am: 17.04.2003 - 19:37:27

hi

tut mir leid andre, aber ich bin nicht so gut in vba. in welchen ordner (arbeitsmappe, im tabellenblatt oder modul?) muss ich diesen code eingeben und bei ... workbook(dateien.name).close... wie soll ich den namen schreiben? angenommen die dateien heissen abc und def, dann schreibe ich.... workbook("abc.xls"&"def.xls").close...... ich hoffe die frage klingt nicht zu dämlich. nochmals danke.


  

Re: mehrere dateien per vba speichern
von: andre
Geschrieben am: 17.04.2003 - 19:46:25

hallo beate,
der code kommt in's modul.
meinetwegen so:

sub alleszu()
'schliesst alles ausser dieser datei und speichert zuvor
for each dateien in workbooks()
if dateien.name <> "MeineCodeDatei.xls" then
workbook(dateien.name).close savechanges=true
end if
next

die datei mit dem code speicherst du vor dem ausführen des codes unter MeineCodeDatei.xls oder gibst ihr einen anderen namen, musst das aber im code auch ändern.

geschlossen werden alle dateien ausser dieser, wie die dann heissen ist egal.

gruss andre

 

Beiträge aus den Excel-Beispielen zum Thema "mehrere dateien per vba speichern"