View Single Post
  #8   Report Post  
Posted to microsoft.public.excel.programming
Tom Ogilvy Tom Ogilvy is offline
external usenet poster
 
Posts: 27,285
Default Update Links on file open

I said in the Workbook_Open Event.

In the thisworkbook module, in the left dropdown at the top, select Workbook
from the left dropdown and Open from the right dropdown. It will put in
code like this

Private Sub Workbook_Open()


End Sub

put your code in there


Private Sub Workbook_Open()
Workbooks.Open Filename:= _
ThisWorkbook.Path & ("\PS27a(manual).xlt"), _
UpdateLinks:=3
'ThisWorkbook.Close savechanges:=False ' rem'ed out for now
End Sub

--
Regards,
Tom Ogilvy


End Sub


"Mick Southam" wrote in message
...
Dave/Tom

Guys I'm sorry about this but I must be missing something here.

I have now put the following in the ThisWorkbook module but still have the
same problem, but again if I step through it works:

Sub Auto_Open
Workbooks.Open Filename:=ThisWorkbook.Path &

("\PS27a(manual).xlt"),
UpdateLinks:=3
'ThisWorkbook.Close savechanges:=False ' rem'ed out for now
End Sub

Regards

Mick

"Tom Ogilvy" wrote in message
...
Put your code in the Workbook_Open event found in the ThisWorkbook

module.

--
Regards,
Tom Ogilvy

"Mick Southam" wrote in message
...
Dave

I have done as you suggested and it works the first time I use it, but

not
if I open it again from within another macro.

Rather than use a normal file I am using a template as I need a blank

file
open each time, it will open the template but does not run the Sub
Auto_Open() or at least I think that's what happens. Does this mean it

need
to be written differently for a template. I have tried using

Workbooks.Add
Template:= instead but when I do UpdateLinks will not work.

Regards

Mick

"Dave Peterson" wrote in message
...
You can toggle the setting (user by user, though) via:

Tools|Options|Edit Tab.
There's a checkmark for "ask to update automatic links"

But this means that you suppress the question--the links still get
updated.

This setting is for the individual user--and affects all their

workbooks.

If you want more control:
Try creating a dummy workbook whose only purpose is to open the

original
workbook with links updated:

Kind of like:

Option Explicit
Sub auto_open()
Workbooks.Open Filename:="c:\my documents\excel\book2.xls",
UpdateLinks:=1
ThisWorkbook.Close savechanges:=False
End Sub

Then you open the dummy workbook and the links will be refreshed.

And xl2002 added an option that allows you to have more control:
Edit|links|startup prompt button.
check the "don't display the alert and update links"




Mick Southam wrote:

Hi
Can anyone help please, I need to automatically update links as a

file
opens
without any user input.

--
Kind Regards

Mick

--

Dave Peterson