close workbook and reopen it

[SQUIDD]

Hi all

Is there a way of making something that closes the workbook down and re-opens it again without saving the previous work.
I have some code that runs, saves various things and creates reports etc.
But when it has finished and i want to paste new info into it, i have to close it and then re-open it, would be great to make it happen by itself ready for the next lot of data.
Thanks

dave

 

[SQUIDD]

Thanks zvi

very intresting

Dave

 

[ZVI]

And here is direct answer on your question - yes it is possible to reload previously saved workbook without saving changes.
Try:

Sub ReloadMe()
  Application.DisplayAlerts = False
  ThisWorkbook.Saved = True
  ThisWorkbook.ChangeFileAccess Mode:=xlReadOnly
  Workbooks.Open ThisWorkbook.FullName
  Application.DisplayAlerts = True
End Sub

 

[Michael M]

Sorry Dave
I wasn't suggesting you were fibbing....I was simply amazed that it actually did work....
Excel / VBA never stops astounding me.

Cheers

 

[SQUIDD]

Hi Micheal

Never thought that for a moment.
Thanks for all your help.
I seem to have moved onto a bigger problem that is way over my head.
No takers yet

Thanks, and I was also surprised that there way a way to do this?

dave

 

[ZVI]

Sub ReloadMe()
  Application.DisplayAlerts = False
  ThisWorkbook.Saved = True
  ThisWorkbook.ChangeFileAccess Mode:=xlReadOnly
  Workbooks.Open ThisWorkbook.FullName
  Application.DisplayAlerts = True
End Sub

This line is an extra: ThisWorkbook.ChangeFileAccess Mode:=xlReadOnly
The simplified code:

Sub ReloadMe()
  Application.DisplayAlerts = False
  ThisWorkbook.Saved = True
  Workbooks.Open ThisWorkbook.FullName
  Application.DisplayAlerts = True
End Sub

 

[shg]

Do you need DisplayAlerts?

Sub ReloadMe()
    ThisWorkbook.Saved = True
    Workbooks.Open ThisWorkbook.FullName
End Sub

 

[ZVI]

Do you need DisplayAlerts?

Nice question, Shg
One more extra code is cleared, thanks!