On Jun 13, 9:45*am, Jim Thomlinson <James_Thomlin...@owfg-Re-Move-
This-.com wrote:
So you want to know if the workbook you are in pulls data from other
workbooks. If so then get the FindLinks download...
http://www.oaltd.co.uk/MVP/
If you are wanting to know if other workbook(s) are pulling data from the
workbook you are in then the answer is, there is no easy way to determine
that.
I personally never link workbooks as I have never had them work out for me
--
HTH...
Jim Thomlinson
"Danny" wrote:
What I would like this code to do is find when a workbook has an
external link from one workbook to another. *Say I have a link from
workbook A to workbook B pullnig in data from a specific range from
workbook B.
Is there away to find that the external link or name range exists in
workbook A using or modifying my code above?
Also, when workbooks are all closed and return the listing and path?
Thanks
D- Hide quoted text -
- Show quoted text -
Thanks for the link but I wanted to know how to code this versus
adding an addin. I appreciate your help. The code I currently have
is below. But I can't get it to find formulas or external links.
Sub findfiles()
With Application.FileSearch
.NewSearch
.LookIn = "H:\1 corey projects\vbatest"
.SearchSubFolders = True
'Cells.Find(What:="[").Activate
', After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
' xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=False _
' , SearchFormat:=False).Activate
.TextOrProperty = "["
.LookIn = xlFormulas
.MatchTextExactly = False
.FileType = msoFileTypeExcelWorkbooks
.Filename = "*.xls"
.Execute
If .Execute(msoSortByFileName) 0 Then
If .Execute(msoSortOrderDescending) 0 Then
MsgBox "There were " & .FoundFiles.Count & " file(s) found."
For i = 1 To .FoundFiles.Count
Cells(i, 1).Value = .FoundFiles(i)
'Cells(i, 2).Value = FileDateTime(.FoundFiles(i))
'Cells(i, 3).Value = FileLen(.FoundFiles(i))
Next i
Else
MsgBox "There were no files found."
End If
For i = 1 To .FoundFiles.Count
'MsgBox "Files found: " & .FoundFiles.Count& " file(s)
found."
MsgBox "There were " & .FoundFiles.Count & " file(s) found."
'UserForm1.ListBox1.AddItem.
'UserForm1.ListBox1.AddItem.FoundFiles (i)
Next i
'UserForm1.Show
End If
End With
End Sub
Any help on getting this code to work for external links and
identifying errors in formulas would be greatly appreciated. Thanks
Jim
D