mit beigefügtem Code gibt es die Möglickeit - ohne jeweils
den Explorer bemühen zu müssen - aktive Word-Dokumente
zu löschen.
Gibt es eine derartige Möglichkeit auch in Excel, um "aktive Arbeitsmappen" zu löschen?
Ich bedanke mich im voraus.
Public Sub MAIN()
Dim X$
On Error GoTo -1: On Error GoTo Fehler
X$ = WordBasic.[FileName$]()
WordBasic.BeginDialog 450, 140, "Aktives Dokument löschen"
WordBasic.OKButton 244, 63, 120, 21, "cmdOK"
WordBasic.CancelButton 246, 92, 120, 21, "cmdCancel"
WordBasic.Text 27, 13, 401, 29, X$ + " löschen ..?", "txtEingabe"
WordBasic.GroupBox 27, 49, 164, 67, "Bestätigen", "Auswahl"
WordBasic.OptionGroup "Auswahl"
WordBasic.OptionButton 37, 70, 85, 16, "Nein", "Optionsfeld1"
WordBasic.OptionButton 37, 91, 65, 16, "Ja", "Optionsfeld2"
WordBasic.EndDialog
Dim Dlg As Object: Set Dlg = WordBasic.CurValues.UserDialog
WordBasic.MsgBox X$
If WordBasic.Dialog.UserDialog(Dlg) Then
If Dlg.Auswahl = 1 Then WordBasic.FileClose 2: WordBasic.Kill X$
End If
Fehler:
End Sub