Office: [Excel 2003 VBA] Tabellenblatt exportieren

Hallo Leute,

ich möchte gerne einen Command Button mit einer Funktion belegen die folgendes kann:

Sie exportiert ein Tabellenblatt (besser wäre nur bestimmte Daten aus einem bestimmten Bereich) in eine neue Arbeitsmappe und speichert die unter einem automatisch zugeteiltem Dateinamen ab.

Sinn und Zweck ist es bestimmte Werte somit schnell und automatisch zu sichern.

Mir ist es bisher nur gelungen die ganze Mappe zu sichern:

Code:

Private Sub CommandButton1_Click()

Dim pfad, name, Sicherung

pfad = ActiveWorkbook.Path
name = "\backup_" & Range("a1").Value & ".xls"

Sicherung = pfad & name

ActiveWorkbook.SaveCopyAs (Sicherung)

   
End Sub

Die Zelle A1 enthält lediglich "=jetzt()"


Bei Knopfdruck wird nun eine Kopie der ganzen Mappe im gleichen Ordner erzeugt.

-----------

Ist es zudem möglich mit Hilfe einer Funktion zu prüfen ob ein bestimmter Ordner existiert und bei nicht vorhandensein ihn erzeugt?

-----

Dann bräuchte ich ebenso eine "Umkehrfunktion" :D Also ein Button der durch klicken ein "öffnen" Fenster öffnet, man das Backup auswählt und er sagen wir Beispielsweise die Daten aus dem 1ten Tabellenblatt des Backups aus dem Bereich xy nimmt und sie in das xte Tabellenblatt der ursprünglichen Arbeitsmappe kopiert?!


Schon mal ein riesen Dank falls mir da jemand helfen kann!!