Hi Eric,

Your last post is the first time in this thread that you have mentioned
Internet. Your initial code sample gave no indication that you wanted link
updates from the internet and that is probably the reason you are not getting
the answers you require.

I now suggest that you post the question again with the heading "How to
update Excel workbook links via the internet" and include your code for
accessing these workbooks via the internet and hopefully you will get answers
from those that have experience with these problems. (You should be able to
blank out actual internet links/addresses with asterisks or something for
security purposes.)


--
Regards,

OssieMac


"Eric" wrote:

Thank you very much for suggestions
I have tried it, the worksheet performs recalucation on all worksheets
without refreshing any external links from internet. On this workbook, each
sheet will update all imported links automatically, once this file is opened.
After I add following code, there is no internet access signals and the text
information does not update at all, and only perform recalculation functions.
Do you have any suggestions on what is going on?
Thank everyone very much for any suggestions
Eric

"OssieMac" wrote:

Hi Eric,

My apologies. I thought you would know how to translate it into your code.
Here is your code with the update links code included.

As I said before I will be interested in how it goes.

Public Sub UpdatingLists2()

Dim WkbkName As String
Dim wkbk As Workbook
On Error Resume Next

WkbkName = "D:\Documents\file.xls"

Set wkbk = Nothing
On Error Resume Next

Set wkbk = Workbooks.Open(Filename:=WkbkName, UpdateLinks:=3)
On Error GoTo 0

wkbk.UpdateLink Name:=wkbk.LinkSources

wkbk.Close savechanges:=True

--
Regards,

OssieMac