Linked Excel Documents

Hello,

Does directory opus have any capability to identify linked excel documents? I am working on a shared drive and am going to migrate thousands of excel documents into a new ECM. Wanted to know which files are linked so we can identify in the ECM and see if the linking works..

might be a long shot, but any help would be great

thanks

A curiosity somewhat unrelated to DOpus: are these old school *.xls docs or are they the new *.xlsx format?

xlsx and xls documents... Just thought it might be possible to right a script that would tell me if the .xls(x) files were linked in a search window

I asked because I might be able to help you out with the xlsx docs. I have some experience parsing those and might be able to come up with a .NET utility if nothing else will do the job for you.

As for writing a script that examines Excel files, you're better off asking this kind of question in a place with lots of Excel experts since it's not really a question about Opus. (Unless Phileosophos or someone else here can help.)

I did ask the question on a excel forum and they produced a macro that will go thorugh all the files in a directory and list which files have links.... Here is the marco if anyone needs it:

Not sure there is a way of finding out other than opening the files, but this macro will go through all the files in a directory and list which files have links. You might get asked if you want to update the file as it opens (it depends how "they" have them set up) - just say no.

CODE:

Sub test()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
FleNme = Dir("*.xls")
n = 1
Do While FleNme <> ""
Set wb = Workbooks.Open("P:\Finance\mfin\FDYWML\Bud2008\Q2 Forecast 2008" & FleNme)
' Change the path above to reflect your directory
alinks = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(alinks) Then
ThisWorkbook.Sheets("Sheet1").Cells(n, 1).Value = wb.FullName
n = n + 1
End If
wb.Close
FleNme = Dir
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub