我的excel2003 有的。。。 更高级的版本应该也有的吧?
1、点击编辑,选中程序
2、在文本栏输入下列代码
Sub Grab_References()
Dim n As Integer
On Error Resume Next
For n = 1 To ThisWorkbook.VBProject.References.count
Cells(n, 1) = ThisWorkbook.VBProject.References.Item(n).Name
Cells(n, 2) = ThisWorkbook.VBProject.References.Item(n).Description
Cells(n, 3) = ThisWorkbook.VBProject.References.Item(n).GUID
Cells(n, 4) = ThisWorkbook.VBProject.References.Item(n).Major
Cells(n, 5) = ThisWorkbook.VBProject.References.Item(n).Minor
Cells(n, 6) = ThisWorkbook.VBProject.References.Item(n).fullpath
Next n
End Sub
3、保存,运行,即可
07版 工具--引用 找得到的