Datei speichern
15.09.2005 15:11:07
Bettina
Hab ein kleines Problem und hoffe auf Eure Hilfe
Möchte das aktuelle Tabellenblatt speichern. Die Daten für das Verzeichnis sowie Name sollen aus der Zelle entnommen werden.
Mein Problem ist nur wenn ich zB Z:\Daten im Verzeichnis eingeben, dann kommt als ergebnis der Datenname: DatenProjektplanung ..xls.
Zudem befinde ich mich nur im Pfad von Z und nicht in Z:\Daten.
Noch eine Frage hätte ich:
Wie kann ich nun, nach dem ein neues Blatt geöffnet und gespeichert wurde gleich nach dem speichern wieder löschen und ins ursprüngliche zurückkehren?
Vielen Dank für Eure Hilfe
Grüße Bettina
Private Sub CommandButton2_Click()
'Ruft das Dialogfeld "Speichern unter" auf
ActiveSheet.Copy
Dim strDateiname As String
Dim strPath As String
strPath = ActiveSheet.Range("A1").Value
ChDrive Left(strPath, InStr(strPath, "\"))
ChDir strPath
objektdaten = ActiveSheet.Range("B1").Value
strDateiname = ("Projektplanung_" & objektdaten & ".xls")
Application.Dialogs(xlDialogSaveAs).Show (strPath & strDateiname)
End Sub