SaveAs - Problem
20.07.2003 13:01:56
David
wie gebe ich in der SaveAs - Methode das gewünschte (neue) Dateiformat an?
Es soll ein Excel File werden.
Meine Versuche mit "*.xls",".xls",*.xl*, etc waren vergebens...
Das Makro soll auf Excel 97 und 2000 laufen.
Sub Test()
datum = Date
ActiveSheet.Copy
Cells.Copy
Cells.Cells.PasteSpecial Paste:=xlValues
ActiveSheet.Name = "meinName" & datum
ActiveWorkbook.SaveAs ("Dateiname" & datum)
End Sub
Und noch eine kleine Zusatzfrage:
Wenn ich mehrere Blätter in einer neuen Datei speichern möchte, kann ich nicht gleich das ganze Workbook mit Copy und Paste in eine neue Mappe verschieben und danach ActiveWorkbook.SaveAs ... anwenden ?
Allen Antwortern schon einmal vielen Dank im voraus !
Viele Grüße
David