Prev: Find
Next: rows truncated when printing
From: shital shah on 27 May 2010 16:19
Thanks you Mike for reply it's working fine.
Thanks Again.
One more thing i am useing excel2003 is there any good book for excel2007 or
any PDF file from net.
Thanks

"Mike H" wrote:

> Hi,
>
> Try this. Note I used XLSX as the file extension because I'm using e2007 so
> change to the apppropriate one for you
>
> Sub MyBackup()
> Application.DisplayAlerts = False
> ActiveWorkbook.Sheets("Data").Copy
> ActiveWorkbook.SaveAs Filename:="C:\MyBackup.xlsx"
> ActiveWorkbook.Close
> Application.DisplayAlerts = True
> End Sub
> --
> Mike
>
> When competing hypotheses are otherwise equal, adopt the hypothesis that
> introduces the fewest assumptions while still sufficiently answering the
> question.
>
>
> "shital shah" wrote:
>
> > Hi I have I workbook I that I have more than 10 worksheet I want to take a
> > backup of only 1 worksheet which name is “Data” that is to store in other
> > folder & when I take backup next time it should over write lake backup any
> > help.
> >
> > Thanks
> >
From: Mike H on 27 May 2010 16:42
Hi,

Try this. Note I used XLSX as the file extension because I'm using e2007 so
change to the apppropriate one for you

Sub MyBackup()
Application.DisplayAlerts = False
ActiveWorkbook.Sheets("Data").Copy
ActiveWorkbook.SaveAs Filename:="C:\MyBackup.xlsx"
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub
--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.


"shital shah" wrote:

> Hi I have I workbook I that I have more than 10 worksheet I want to take a
> backup of only 1 worksheet which name is “Data” that is to store in other
> folder & when I take backup next time it should over write lake backup any
> help.
>
> Thanks
>
 | 
Pages: 1
Prev: Find
Next: rows truncated when printing