Loop through a list of excel files searching & adding a list of file dependencies (Links) in adjacent columns??

[morph81]

Hi All

I have been looking online for sny good strating points for writing a macro which will:

1. Run through a list of files in Excel (full file path)

2. Open and search out all links used within the file (rather than using the edit links tool manually)

3. Inputting/Listing all files which are linked in the adjacent columns

----

4. (Think this element wouldn't be possible??) List any files which are be dependent on the file opened...

ANY IDEAS much appreciate!

 

[Richard Schollar]

You may find my answer in this thread to be of some use:

http://www.mrexcel.com/forum/showthread.php?t=223433&highlight=linksources

 

[morph81]

Richard

Many many thanks for such a swift response - I think the code you posted in this previous thread should do the trick nicely.

Great!

Cheers

M

 

[morph81]

Hi Richard

I think the code I lifted from your previous thread is pre 2007, so the application.filesearch no longer works....

I did a serach for workaround code :

--------------------------------------------------------------------------------------' Module : Module1
' DateTime : 09/05/2007 08:43
' Author : Roy Cox (royUK)' Website : [URL="http://www.excel-it.com"]www.excel-it.com[/URL] for more examples and Excel Consulting
' Purpose : Open all worksheets in a specific folder' Disclaimer; This code is offered as is with no guarantees. You may use it in your' projects but please leave this header intact.
'---------------------------------------------------------------------------------------
Option Explicit
Sub Open_All_Files()
Dim oWbk As Workbook
Dim sFil As String
Dim sPath As String
sPath = "C:\Documents and Settings\Roy Cox\My Documents\" 'location of files
ChDir sPath
sFil = Dir("*.xlsx") 'change or add formats
Do While sFil <> "" 'will start LOOP until all files in folder sPath have been looped through Set oWbk = Workbooks.Open(sPath & "\" & sFil) 'opens the file
' do something
oWbk.Close True 'close the workbook, saving changes
sFil = Dir
Loop ' End of LOOP
End

But am not sure how to insert this/modify your original code and I don't think it (workaround filesearch code) will loop through all subfolders...

Thanks for everything so far,

Cheers

Martha