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
Similar Threads
