Delete (Kill) Active Workbook

Hi,
I'd like to open an existing file, save it automatically by macro in a
different location with a new file name. This portion i can do. I'd like then
to delete the original, still active/open workbook. Any suggestions?
Thank you,
Stefan

Hi,

Here is an example:

Sub Test()
On Error GoTo ErrorHandler
If ActiveWorkbook.Path <> "" Then
If Not ActiveWorkbook.ReadOnly Then
ActiveWorkbook.Saved = True
ActiveWorkbook.ChangeFileAccess xlReadOnly
End If
Kill ActiveWorkbook.FullName
End If
Exit Sub

ErrorHandler:
MsgBox "Fail to delete file: " & ActiveWorkbook.FullName
Exit Sub

End Sub

I am not sure it is perfectly all right.
I recommend to close the workbook after deleted.

--
HTH

okaizawa

stefan via OfficeKB.com wrote:
> Hi,
> I'd like to open an existing file, save it automatically by macro in a
> different location with a new file name. This portion i can do. I'd like then
> to delete the original, still active/open workbook. Any suggestions?
> Thank you,
> Stefan

Why bother testing if readonly, just set it

Sub Test()
On Error GoTo ErrorHandler
With ActiveWorkbook
If .Path <> "" Then
.Saved = True
.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
End If
End With
Exit Sub

ErrorHandler:
MsgBox "Fail to delete file: " & ActiveWorkbook.FullName
Exit Sub

End Sub


--
HTH

Bob Phillips

"okaizawa" <okaizawa@hotmail.com> wrote in message
news:epYbweFhFHA.2456@TK2MSFTNGP10.phx.gbl...
> Hi,
>
> Here is an example:
>
> Sub Test()
> On Error GoTo ErrorHandler
> If ActiveWorkbook.Path <> "" Then
> If Not ActiveWorkbook.ReadOnly Then
> ActiveWorkbook.Saved = True
> ActiveWorkbook.ChangeFileAccess xlReadOnly
> End If
> Kill ActiveWorkbook.FullName
> End If
> Exit Sub
>
> ErrorHandler:
> MsgBox "Fail to delete file: " & ActiveWorkbook.FullName
> Exit Sub
>
> End Sub
>
> I am not sure it is perfectly all right.
> I recommend to close the workbook after deleted.
>
> --
> HTH
>
> okaizawa
>
> stefan via OfficeKB.com wrote:
> > Hi,
> > I'd like to open an existing file, save it automatically by macro in a
> > different location with a new file name. This portion i can do. I'd like
then
> > to delete the original, still active/open workbook. Any suggestions?
> > Thank you,
> > Stefan

Bob,

>Why bother testing if readonly, just set it
That is only an example.
If a workbook is readonly, "ChangeFileAccess xlReadOnly" fails.
(I use Excel 2000)

--
Regards,
okaizawa

Hello Bob, Hello okaizawa,

Thank you for your help. This works. I went without the fail-save-option as i
am controling the workbooks that are being processed and none would be
readonly to begin with. So it should not be an issue... if so, i'd confuse
the user one way or another anyway. ;-)

Thank you again.

Stefan

okaizawa wrote:
>Bob,
>
>>Why bother testing if readonly, just set it
>That is only an example.
>If a workbook is readonly, "ChangeFileAccess xlReadOnly" fails.
>(I use Excel 2000)
>


--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200507/1