pfad des aktuellen workbook lesen
10.07.2003 14:38:01
david
ich habe ein excel-tool(Original.xls), welches sich über ein makro unter einem neuen namen speichern läßt. ich möchte nun die neue version im selben pfad ablegen, wie das alte. geht- so wurde mir hier weitergeholfen so:
ActiveWorkbook.SaveAs workbooks("Original.xls").path & "\" & sFile
da aber die neue version einen anderen namen hat, und man von dieser wiederum eine kopie erstellen kann, muß ich den code ändern, weiß nur nicht wie.
kann ich dem namen des workbooks einer variablen zuweisen, und bei der pfadbestimmung darauf zurückgreifen? hab ich schon versucht- allerdings ohne erfolg.
Gruß
David
sFile = InputBox("Dateiname:")
If sFile = "" Then Exit Sub
sFile = sFile & ".xls"
If Dir(sFile) <> "" Then
Beep
If MsgBox("Mappe überschreiben?", _
vbCritical + vbYesNo) = vbNo Then Exit Sub
End If
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs sFile
Application.DisplayAlerts = True
End Sub