neu erstellste Arbeitsmappe speichern und schließe
23.06.2005 13:45:32
Ceci
ich habe ein kleines Problem. Und zwar erzeuge ich mit folgendem Code eine neue Arbeitsmappe:
IntSheets = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 1
Application.Workbooks.Add
Application.SheetsInNewWorkbook = IntSheets
dname = ConstPfadOrdner & "Mappe1" & ".xls"
Application.DisplayAlerts = False
Worksheets("Tabelle1").SaveAs dname
Application.DisplayAlerts = True
Zum Zeitpunkt des öffnens der neuen Mappe ist mein Programm in Excel offen.
Jetzt funktioniert das speichern mit ActivWorkbook nicht, da sonst die Datei mit dem Programm unter "Mappe1" gespeichert wird.
Wie kann ich veranlassen, dass die neu erzeugte Datei unter Mappe1 gespeichert, und dann gleich geschlossen wird?
Bin für jede Hilfe dankbar,
mfg Cäcilia