Seamus2626
asked on
Updating Links
Hi,
I have some code here to run a report. I get stuck though when i tyry to update a link i.e.
ActiveWorkbook.UpdateLink Name:= _
"\\ukhibmdata02\rights\Ass et Services Risk Team\Cash Nostros\Asset Services Outstanding Cash Items.xls", Type _
:=xlExcelLinks
I get the error messsage. "Method update of link failed"
Can anyone advise where im going wrong
Thanks
Seamus
I have some code here to run a report. I get stuck though when i tyry to update a link i.e.
ActiveWorkbook.UpdateLink Name:= _
"\\ukhibmdata02\rights\Ass
:=xlExcelLinks
I get the error messsage. "Method update of link failed"
Can anyone advise where im going wrong
Thanks
Seamus
Sub RunReport()
Call RunReportDataSource
Application.DisplayAlerts = False
Dim objSht
For Each objSht In ActiveWorkbook.Sheets
objSht.Visible = xlSheetVisible
Next objSht
Call Module7.Macro2
Call Autofill
Call Module7.DeleteRecordsRawData
Call Module7.ChangeFormula
Call Module7.DeleteRecordsYesterday
Call AllWorkbookPivots
Call HighlightTotals
Call FutureValues
Call Module5.Macro1
Call DollarsAndNumbers
Call ShrinkSheet
Call SendTotals
Sheets("Daily Dash").Visible = False
Sheets("Chart").Visible = False
Sheets("T-2").Visible = False
Sheets("Raw Data").Visible = False
Sheets("Check").Visible = False
Sheets("Screen").Select
ActiveWorkbook.UpdateLink Name:= _
"\\ukhibmdata02\rights\Asset Services Risk Team\Cash Nostros\Asset Services Outstanding Cash Items.xls", Type _
:=xlExcelLinks
Application.DisplayAlerts = True
MsgBox "Report Complete, Create File"
Call Msbox
End Sub
Are you sure the path is correct? Can you update the link manually?
PS If you want to update all links, you can use something like this rather than hardcoding file paths:
Sub UpdateFileLinks()
Dim arrLinks, I As Long
arrLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(arrLinks) Then
For I = LBound(arrLinks) To UBound(arrLinks)
ActiveWorkbook.UpdateLink arrLinks(3)
Next I
End If
End Sub
ASKER
Thanks Rory, i think il go with updating the all links
I get Subscript out of range on the following though
ActiveWorkbook.UpdateLink arrLinks(3)
Cheers,
Seamus
I get Subscript out of range on the following though
ActiveWorkbook.UpdateLink arrLinks(3)
Cheers,
Seamus
Sorry - that should be Arrlinks(I)
I must have been messing around with it some time and accidentally saved it!
I must have been messing around with it some time and accidentally saved it!
ASKER
Cheers Rory, thats not updating
here is my actual link
=COUNT('\\Ukhibmdata02.hbe u.adroot.h sbc\rights \Asset Services Risk Team\Cash Nostros\[Asset Services Outstanding Cash Items.xls]Outstanding Items Report-1'!$H:$H)-1
Is there something up with that?
Thanks
Seamus
here is my actual link
=COUNT('\\Ukhibmdata02.hbe
Is there something up with that?
Thanks
Seamus
Looks ok. What do you mean by not updating - getting an error in the code or the value just not changing?
ASKER
Value not changing.......
Does it work if you update it manually using the Edit Links dialog?
ASKER
Just been trying that. Nope. When i highlight the whole of Col A, it says 896. Back in the cell in my other WB it says 895, even though ive manually updates the link......
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Had the link named incorrectly, thanks!!