External WS links not updating

rickblunt

Well-known Member
Joined
Feb 18, 2008
Messages
609
Office Version
  1. 2019
Platform
  1. Windows
Hello, I am using the typical cell links between some of my workbooks to retrieve data. The odd thing is that some of these links are not updating at all. My main WB is getting its data from two different source workbooks (which have multiple worksheets in them) and the data from one of the source workbooks all transfer fine, but the second source workbook is hit and miss - sometimes it will or sometimes it won't. I am using the code below to update the main workbook every 30 minutes, and it seems to work fine with the exception of the issues as noted. If I have all of the WB's open on my desktop everything updates correctly. And If I close them out and open the WB's on the servers I see that the links also update with the server name as it is supposed to. So everything looks like it normally does.

The only thing different that I can see between the two source workbooks is that the first source workbooks data is all coming from the same worksheet, whereas in the second source workbook I am getting data from a couple of worksheets. My understand has always been that all I had to do update my data was to open the workbook(s), not necessarily to activate each of the sheets. Is that correct? I am wondering if I need to open the WB's and then cycle through the worksheets in order to get the data to update.

I appreciate any insights - thanks



VBA Code:
Sub UpdateLinks()

        ActiveWorkbook.UpdateLink Name:="L:\CommonRW\FacilitiesApps.xlsm", Type:= _
            xlExcelLinks
        ActiveWorkbook.UpdateLink Name:= _
        "L:\CommonRW\Facilities Inspection App.xlsm", Type:= _
            xlExcelLinks
        Application.OnTime DateAdd("s", 1800, Now), "UpdateLinks"
              
        [B99] = Now
        
        With ActiveSheet.Shapes("Rectangle 13").Fill
            .Visible = msoTrue
            .UserPicture "L:\CommonRW\Facilities Information Center\FacCal.gif"
            .TextureTile = msoFalse
    
        End With        
                  
        ActiveWorkbook.Save        

End Sub
 

Excel Facts

What did Pito Salas invent?
Pito Salas, working for Lotus, popularized what would become to be pivot tables. It was released as Lotus Improv in 1989.

Forum statistics

Threads
1,223,246
Messages
6,170,988
Members
452,373
Latest member
TimReeks

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top