罗列VBA的所有引用对象名称

作者：绿色风分类：时间：2022-08-18 浏览：99

楼主罗刚君	想知道有哪些引用吗？或者说想复制该引用名称吗？某些引用的名称太称，界面中都显示不完整，给手抄带来麻烦有了下面的SUB过程好方便了，瞬间完成！ Sub 引用列表() For Each Ref In ThisWorkbook.VBProject.References i = i + 1 Cells(i, 1) = Ref.Name Cells(i, 2) = Ref.GUID Cells(i, 3) = Ref.Major Cells(i, 4) = Ref.Minor Cells(i, 5) = Ref.FullPath Cells(i, 6) = Ref.Description Next Ref End Sub
2楼罗刚君	没人有兴趣?
3楼爱疯	学习了谢谢罗版
4楼水星钓鱼	这个是不是要用API解决如何用VBA代码使“引用”对话框中的引用都添加为本工程的引用 http://www.exceltip.net/thread-31237-1-1.html

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表

楼主罗刚君	想知道有哪些引用吗？或者说想复制该引用名称吗？某些引用的名称太称，界面中都显示不完整，给手抄带来麻烦有了下面的SUB过程好方便了，瞬间完成！ Sub 引用列表() For Each Ref In ThisWorkbook.VBProject.References i = i + 1 Cells(i, 1) = Ref.Name Cells(i, 2) = Ref.GUID Cells(i, 3) = Ref.Major Cells(i, 4) = Ref.Minor Cells(i, 5) = Ref.FullPath Cells(i, 6) = Ref.Description Next Ref End Sub
2楼罗刚君	没人有兴趣?
3楼爱疯	学习了谢谢罗版
4楼水星钓鱼	这个是不是要用API解决如何用VBA代码使“引用”对话框中的引用都添加为本工程的引用 http://www.exceltip.net/thread-31237-1-1.html