Prev: Autocompletion For UDFs?
Next: Exporting to .txt converts single quotes to double quotes
From: Michelle on 25 May 2010 03:04
I am trying to save another (differently named) version of my file whenever
I save.

It works fine if I use the normal save, but if the save is triggered from
the Before_Close event, it just skips over the following line...

ThisWorkbook.SaveAs Filename:=CurrPath & "\" & CurrName

in debug, it finds the line (it goes yellow), it doesn't generate any
errors, but it steps through the line without doing any saving

The CurrPath and CurrName variables do contain valid text

Why is it not saving?

thanks

M

From: Jacob Skaria on 25 May 2010 03:19
Try

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
ThisWorkbook.SaveAs Filename:=CurrPath & "\" & CurrName
End Sub

--
Jacob (MVP - Excel)


"Michelle" wrote:

> I am trying to save another (differently named) version of my file whenever
> I save.
>
> It works fine if I use the normal save, but if the save is triggered from
> the Before_Close event, it just skips over the following line...
>
> ThisWorkbook.SaveAs Filename:=CurrPath & "\" & CurrName
>
> in debug, it finds the line (it goes yellow), it doesn't generate any
> errors, but it steps through the line without doing any saving
>
> The CurrPath and CurrName variables do contain valid text
>
> Why is it not saving?
>
> thanks
>
> M
>
From: Jacob Skaria on 25 May 2010 03:24
Oops...Disable the events and then save as..

Application.EnableEvents = False
ThisWorkbook.SaveAs Filename:=CurrPath & "\" & CurrName
Application.EnableEvents = True

--
Jacob (MVP - Excel)


"Jacob Skaria" wrote:

> Try
>
> Private Sub Workbook_BeforeClose(Cancel As Boolean)
> Cancel = True
> ThisWorkbook.SaveAs Filename:=CurrPath & "\" & CurrName
> End Sub
>
> --
> Jacob (MVP - Excel)
>
>
> "Michelle" wrote:
>
> > I am trying to save another (differently named) version of my file whenever
> > I save.
> >
> > It works fine if I use the normal save, but if the save is triggered from
> > the Before_Close event, it just skips over the following line...
> >
> > ThisWorkbook.SaveAs Filename:=CurrPath & "\" & CurrName
> >
> > in debug, it finds the line (it goes yellow), it doesn't generate any
> > errors, but it steps through the line without doing any saving
> >
> > The CurrPath and CurrName variables do contain valid text
> >
> > Why is it not saving?
> >
> > thanks
> >
> > M
> >
From: Dave Peterson on 25 May 2010 07:25
Take a look at VBA's help for .SaveCopyAs

It sounds like that may be more appropriate for you.

Michelle wrote:
>
> I am trying to save another (differently named) version of my file whenever
> I save.
>
> It works fine if I use the normal save, but if the save is triggered from
> the Before_Close event, it just skips over the following line...
>
> ThisWorkbook.SaveAs Filename:=CurrPath & "\" & CurrName
>
> in debug, it finds the line (it goes yellow), it doesn't generate any
> errors, but it steps through the line without doing any saving
>
> The CurrPath and CurrName variables do contain valid text
>
> Why is it not saving?
>
> thanks
>
> M

--

Dave Peterson
 | 
Pages: 1
Prev: Autocompletion For UDFs?
Next: Exporting to .txt converts single quotes to double quotes