Update all links in excel

Обновление всех связей в книге

Описание проблемы

Если создаваемый файл Excel ссылается на несколько книг, в которых часто меняются данные, то возникает потребность в их периодическом обновлении. Конечно, можно обновить все связи вручную по одной или перезапустить файл обновив все связи автоматически. Однако что делать если ссылок на файлы очень много? Перебирать по одной связи очень долго. А что делать если используются функции СУММЕСЛИ или СУММЕСЛИМН. В этом случае формулы не пересчитаются до тех пор пока файл из которого берутся данные закрыт. Держать с десяток файлов открытыми тоже не решение.

Решение

Надстройка VBA-Excel содержит макрос с помощью которого можно быстро обновить все связи и пересчитать формулы. Для этого необходимо выполнить следующие действия:

1. Открыть вкладку VBA-Excel на ленте.
2. В группе Ячейки и диапазоны найти пункт меню Связи и в раскрывающемся списке выбрать Обновить все связи.

Принцип работы программы

Макрос проходит по всем связям, которые имеются в книге и последовательно открывает их в фоновом режиме. В момент открытия файла пересчитываются формулы. Файлы (связи) открываются в режиме для чтения и не влияют на одновременную работу с ними других пользователей. Процедура обновления практически незаметна (если конечно ваши файлы не по 10-15 Мб).

Источник

How to make Excel update links using VBA

Excel doesn’t automatically update any external links in your workbooks and this can become a hassle if it’s something happening frequently. In this article, we’re going to show you how to make Excel update links automatically using VBA.

How to make Excel update links

Links can be updated using a special method named UpdateLink under the Workbook object. The UpdateLink method takes two optional arguments:

• Name: The name of the Microsoft Excel workbook or DDE/OLE link to be updated, as returned from the LinkSources
• Type: One of the parameters for XlLinkType is specifying the type of link. Use xlLinkTypeExcelLinks for Excel files and xlLinkTypeOLELinks for OLE sources.

To update all links in the active workbook, use ActiveWorkbook.LinkSources for the Name and xlExcelLinks for Type arguments.

Since the default value of the Type parameter is xlExcelLinks, you can omit that argument as well.

You can use codes in two ways:

In the Module method, you need to add the module into the workbook or the add-in file. Copy and paste the code into the module to run it. The main advantage of the module method is that it allows saving the code in the file, so that it can be used again later. Furthermore, the subroutines in modules can be used by icons in the menu ribbons or keyboard shortcuts. Remember to save your file in either XLSM or XLAM format to save your VBA code.

The Immediate Window method, on the other hand, is essentially a quick and dirty method where you can simply copy and paste the code into the Immediate Window and press the Enter key to run it. Unfortunately, any code you use in the Immediate Window will not be saved. Also note that icons and keyboard shortcuts will not be available.

Источник

Метод Workbook.UpdateLink (Excel)

Обновления ссылку Microsoft Excel, DDE или OLE (или ссылки).

Синтаксис

expression. UpdateLink (имя, тип)

Выражение Переменная, представляющая объект Workbook .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Name	Необязательно заполнять.	Variant	Имя обновляемой ссылки Microsoft Excel или DDE/OLE, возвращенное методом LinkSources .
Type	Необязательный	Variant	Одна из констант XlLinkType , указывающая тип ссылки.

Замечания

Если метод UpdateLink вызывается без каких-либо параметров, Excel по умолчанию обновляет все ссылки на лист.

Пример

В этом примере обновляются все ссылки в активной книге.

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Источник

Update all links VBA

jeremy1026@yahoo.com

New Member

A while ago I found a short VBA program on the internet that updates all the externals links in a workbook. It was much better than using Edit—>Links. selecting all the source files and clicking «Update All» since I found that, at least in earlier versions of Excel, it didn’t update all the links.

Does anyone have a VBA macro that will update all external links in the current workbook?

Excel Facts

Will from London

Board Regular

I’ve made a workbook in the office that is capable of updating multiple links (in other workbooks). It can update multiple workbooks (one after the other). To use it you enter the details using a UserForm. The data to enter is effectively:

‘Path’, ‘filename’, ‘change links from’ and ‘change links to’

If this would be of use I’ll e-mail a copy to my home address and I could then post it on here.

jeremy1026@yahoo.com

New Member

Will from London

Board Regular

First a sheet called «Control» needs to be set up with the following ranges:
fileNames D16:D65536
inputRange C16:H65536
pathNames C16:C65536

I put the following headings in C15:H15
Path, Filename, Change Links From, Change Links To, Ignore or Undo, Result.

I created a User Form called update_links_form with the following command buttons (Captions in brackets after them): allFiles (Yes), okButton (OK), cancelButton (Cancel), locationBrowse (Browse…), oldLinkBrowse (Browse…), and newLinkBrowse (Browse…).
There are three text boxes called: locationFileUpdate, oldLink and newLink.
There are two check boxes called: includeSubFolders and addFurtherRecords

I should mention that the Yes button is next to the question “Include all files in this location?”

locationBrow = Application.GetOpenFilename
If locationBrow = False Then locationBrow = «»
update_links_form.locationFileUpdate = locationBrow

End Sub
Private Sub allFiles_click()

If update_links_form.locationFileUpdate = «» Then GoTo lastLine

allFilesLocation = update_links_form.locationFileUpdate
Do While Right(allFilesLocation, 1) <> «»
allFilesLocation = Left(allFilesLocation, Len(allFilesLocation) — 1)
Loop
update_links_form.locationFileUpdate = allFilesLocation

lastLine:
End Sub
Private Sub cancelButton_click()

End Sub
Private Sub oldLinkBrowse_click()

oldLinkBrow = Application.GetOpenFilename
If oldLinkBrow = False Then oldLinkBrow = «»
update_links_form.oldLink = oldLinkBrow

End Sub
Private Sub newLinkBrowse_click()

newLinkBrow = Application.GetOpenFilename
If newLinkBrow = False Then newLinkBrow = «»
update_links_form.newLink = newLinkBrow

End Sub
Public Sub okButton_click()

Option Explicit
Sub ReadFiles()

‘Written by Will 15/10/04

Dim fileName As String
Dim locationPath As String
Dim counter As Integer
Dim fileCells As Object
Dim allFiles As Integer
Dim locationPathFile As String
Dim locationPathFile1 As String
Dim pathExtract As String
Dim oldLink As String
Dim newLink As String
Dim subFolders As Boolean
Dim addFurther As Boolean
Dim endRow As Long
Dim i As Long
Dim startPoint As Long
Dim numberToCheck As Long
Dim deleteRow As Boolean

allFiles = 0
counter = 0

Load update_links_form
update_links_form.locationFileUpdate = «»
update_links_form.oldLink = «»
update_links_form.newLink = «»
update_links_form.allFiles = False
update_links_form.addFurtherRecords = False

Application.ScreenUpdating = False
update_links_form.Show

locationPathFile = update_links_form.locationFileUpdate
oldLink = update_links_form.oldLink
newLink = update_links_form.newLink

subFolders = update_links_form.includeSubFolders
addFurther = update_links_form.addFurtherRecords

If oldLink = «» Then GoTo lastLine

If ActiveSheet.Range(«C16»).Value = «» Then ActiveSheet.Range(«C16»).Select

If ActiveSheet.Range(«C16»).Value <> «» Then
ActiveSheet.Range(«C15»).Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range(«A1»).Select
End If

Do While Right(locationPath, 1) <> «»
locationPath = Left(locationPath, Len(locationPath) — 1)
Loop

ActiveCell.Value = locationPath
ActiveCell.Offset(0, 2).Value = update_links_form.oldLink
ActiveCell.Offset(0, 3).Value = update_links_form.newLink
If locationPath = locationPathFile Then allFiles = 1

If allFiles = 1 Then
ActiveCell.Offset(0, 1).Select

startPoint = ActiveCell.Row — 16

With Application.FileSearch
.NewSearch
.LookIn = locationPath
.FileType = msoFileTypeAllFiles
.SearchSubFolders = subFolders ‘boolean defined above
.Execute
endRow = .FoundFiles.Count
For i = 1 To endRow
fileName = .FoundFiles(i)
pathExtract = fileName
Do While Right(pathExtract, 1) <> «»
pathExtract = Left(pathExtract, Len(pathExtract) — 1)
Loop
Sheets(«Control»).Range(«pathNames»).Cells(i + startPoint, 1).Value = pathExtract
fileName = Right(fileName, Len(fileName) — Len(pathExtract))
Sheets(«Control»).Range(«fileNames»).Cells(i + startPoint, 1).Value = fileName
Next i
End With

If allFiles = 0 Then
locationPathFile1 = locationPathFile

Do While ActiveCell.Value & locationPathFile1 <> locationPathFile
locationPathFile1 = Right(locationPathFile1, Len(locationPathFile1) — 1)
Loop
ActiveCell.Offset(0, 1).Value = locationPathFile1
End If

If ActiveSheet.Range(«D17»).Value <> «» And allFiles = 1 Then
Selection.End(xlDown).Select
ActiveCell.Offset(0, 1).Range(«A1:B1»).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.FillDown
End If

ActiveSheet.Range(«C15»).Select
Application.ScreenUpdating = True

If addFurther = True Then GoTo DisplayForm

‘to tidy up entries
Application.ScreenUpdating = False

Selection.End(xlDown).Select
numberToCheck = ActiveCell.Row — 15
Sheets(«Control»).Range(«C16»).Select

For i = 1 To numberToCheck
deleteRow = False

If ActiveCell.Value & ActiveCell.Offset(0, 1).Value = _
ActiveWorkbook.FullName Then deleteRow = True
If Right(ActiveCell.Offset(0, 1).Value, 4) <> «.xls» Then deleteRow = True
If Right(ActiveCell.Offset(0, 2).Value, 4) <> «.xls» Then deleteRow = True
If Right(ActiveCell.Offset(0, 3).Value, 4) <> «.xls» Then deleteRow = True

If deleteRow = True Then ActiveCell.EntireRow.delete
If deleteRow = False Then ActiveCell.Offset(1, 0).Select

Next i
Application.ScreenUpdating = True

lastLine:
End Sub
Sub updateLinks()

Dim numberToDo As Single
Dim counter As Single
Dim fileToOpen As String
Dim oldLink As String
Dim newLink As String
Dim areYouSure As Integer
Dim thisSheet As String

areYouSure = MsgBox(«Are you sure you wish to proceed?», vbYesNo + vbQuestion)

If areYouSure = vbNo Then GoTo lastLine

ActiveSheet.Range(«C15»).Select
Selection.End(xlDown).Select
number To Do = ActiveCell.Row — 15

For counter = 1 To numberToDo
Application.StatusBar = «Processing update » & counter & » of » & numberToDo & «.»

If ActiveSheet.Range(«G» & counter + 15).Value = «Undo» _
Or ActiveSheet.Range(«G» & counter + 15).Value = «undo» Then
fileToOpen = ActiveSheet.Range(«C» & counter + 15).Value _
& ActiveSheet.Range(«D» & counter + 15).Value
oldLink = ActiveSheet.Range(«F» & counter + 15).Value
newLink = ActiveSheet.Range(«E» & counter + 15).Value
GoTo updatePoint
End If

If ActiveSheet.Range(«G» & counter + 15).Value <> «» Then
ActiveSheet.Range(«H» & counter + 15).Value = «Omitted»
GoTo nextRecord
End If
fileToOpen = ActiveSheet.Range(«C» & counter + 15).Value _
& ActiveSheet.Range(«D» & counter + 15).Value
oldLink = ActiveSheet.Range(«E» & counter + 15).Value
newLink = ActiveSheet.Range(«F» & counter + 15).Value

updatePoint:
On Error GoTo 0
On Error GoTo errorHandler
Workbooks.Open fileName:=fileToOpen, updateLinks:=0
‘this is the only bit that actually changes anything
Application.Calculation = xlAutomatic
ActiveWorkbook.Change LinkName:=oldLink, NewName:=newLink, Type:=xlExcelLinks
Application.Calculation = xlCalculationManual

ActiveWorkbook.Close (True) ‘True causes the file to be saved.

If ActiveSheet.Range(«G» & counter + 15).Value = «Undo» Then
ActiveSheet.Range(«H» & counter + 15).Value = «Undone»
GoTo nextRecord
End If
ActiveSheet.Range(«H» & counter + 15).Value = «Updated»
nextRecord:
Next counter

MsgBox «Macro has finshed running», vbOKOnly, «Update Links Macro»

errorHandler:
If ActiveWorkbook.FullName <> thisSheet Then ActiveWorkbook.Close (False)
ActiveSheet.Range(«H» & counter + 15).Value = «Error»
Application.Calculation = xlCalculationManual
Resume nextRecord
Application.ScreenUpdating = True

End Sub
Sub deleteEntries()

End Sub

Hope this solves the problem.

Mike Reutter

New Member

Will from London

Board Regular

I’ve updated the whole thing since I posted it (and there are a couple of minor problems with the code above because I didn’t use the BB code formatter correctly) so it’s probably more efficient if you want this if you drop me a PM with your e-mail address and I can then send the whole thing as an attachment.

Anyone else is more than welcome to do the same.

Pixelpusher

Board Regular

Will from London

Hi Will from London I hope you are still around as your link updater might be the answer I am looking for

I have a problem to solve in that a vlookup table is linked to a master lookup table that can be updated because there are multiple sheets with the same table in them, so is there a way to update the master table and not have a warning msg ‘do you want to update links to another workbook’ when you open a sheet with the table in and not have to save that sheet also, I hope that makes sense.

Will from London

Board Regular

Firstly let me see if I’m understanding the issue:
1. You have a master workbook which contains a table.
2. There are a certain number of other workbooks that extract information from this central table using VLOOKUP etc.
3. When you update information in the master workbook you would like all the information in the dependent tables to automatically update.
4. Although you change data within the master table you do not actually change the destination (as in the cell references within the master workbook) of the links.

Unfortunately this is not what my workbook described above does. A more apt title to this thread would include «alter» rather than «update» because, using your situation, it would allow you to effectively switch to a new master workbook at the click of a mouse. The links would still point to say cell A1 on Sheet1 but instead of pointing to masterA.xls they’d be pointing to masterB.xls.

If your situation is as described above I would be inclined to opt for a slightly different approach.

1. I would create (within the master workbook but on a new sheet) a list of the path and file names of all the workbooks that you wish to update every time you update the master workbook.
2. Then I would have a button linked to a macro that recalculated and saved the master worksheet (but kept it open) and then went through the list of other workbooks in turn. The macro would then update all the links within your dependent workbooks recalculate and then save them. (This process generally works more quickly with the master workbook open anyway).
3. As a sort of audit trail the macro could then add the date and time that each dependent workbook was saved next to its name on the list in the master workspace.

The solution I have described can be built so that the warning messages don’t appear, although you’d probably want a message if somebody else had one of the dependent workspaces open at the time you ran the macro or if the links were corrupt in some way.

If writing VBA code is not a strong point, or you’re not sure where to start, let me know and I’ll see if I can point you in the right direction.

Источник