Arbeitsmappe Speichern und öffnen
21.02.2005 14:59:22
Thomas.
ich öffne eine Arbeitsmappe, muß aber vorher einen Dateinamen hierfür anlegen damit die Original Arbeitsmappe immer Leer bleibt.
Nun zu meiner Frage :
Wenn ich nun eine Mappe mit den Namen Test speicher, und die Datei Test dann öffnen möchte muß ich auch wieder einen Dateinamen anlegen. Giebt es ein Code welches ich mit eingeben könnte, welches das erneute anlegen eines Dateinamen umgeht bei einem bereits gespeichertem Dateinamen ?
Die Mappe öffne ich mit folgendem Code :
Const myPath As String = "C:\Eigene Dateien\2005\gespeicherte Arbeitsmappen\"
'
Private Sub cmdOK_Click()
Dim fname As String ' Der Dateiname
fname = myPath & IIf(txtFileName = "", "Ohne Name", txtFileName) & ".xls"
ActiveWorkbook.SaveAs Filename:=fname
Unload Me
cmdSchalttafel.Show
End Sub
'
' Der CANCEL-Button bekommt die Eigenschaft CANCEL = TRUE und DEFAULT = FALSE !
'
Private Sub cmdCancel_Click()
Dim fname As String ' Der Dateiname
fname = myPath & IIf(txtFileName = "", "Fehler", txtFileName) & ".xls"
ActiveWorkbook.SaveAs fname
Unload Me
cmdSchalttafel.Show
End Sub
' DAS X abschalten
'
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then Cancel = True
End Sub
Für eine Antwort und Hilfe wäre ich sehr Dankbar
Gruß
Thomas. F