Excelarbeitsmappe automatisch abspeichern

[Vektor]

Hallo!

Ich hätte gerne dass wenn ich eine Exceltabelle schließe, dass es automatisch unter einem Dateinamen als *.xls, und aber auch noch ohne nachzufragen in einem anderen Verzeichniss und mit anderem Namen als *.xml abspeichert.

Dabei ist auch noch schwerer dass in der Arbeitsmappe 3 Tabellen enthalten sind, welche jeweils unter einem anderen Namen abgespeichert werden sollen.

Ich hoffe dass es einigermaßen verständlich ist, wenn nicht, werde ich es noch versuchen anderst zu formulieren.

Ich hoffe Ihr könnt mir helfen, oder muss ich da schon ins VBA Forum gehen?

Danke im vorraus.

 

[thekorn]

ich würde es so machen:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim pfad As String

pfad = "c:/windows/desktop/"

For Each tabelle In Me.Worksheets
    tabelle.SaveAs Filename:=pfad & tabelle.Name & ".xls"
    tabelle.SaveAs Filename:=pfad & tabelle.Name & ".xml"
Next

End Sub

PROBLEM:
Dieser Code wird dann auch in jede gespeicherte datei übernommen, öffnet man also diese und schließt sie dann wieder wird diese Prozedur auch ausgelöst usw....

Dieser Code muss übrings in "diese Arbeitsmappe" eingefügt werden, da es ein ereignis ist.

gruß
thekorn

 

[Vektor]

Vielen Dank, klappt super. Nur das Me. vor Worksheets musste ich entfernen da er damit einen Fehler brachte.