一、学友问题描述:
爱好者:苏州--风雨无阻 12:15:11
请问VBA代码引用对话框的文件定位路径不完整显示,怎么解决?有的系统上鼠标悬停会完整显示文件定位路经,而有的机器上没有显示,就不能找到相关组件文件。如下图:
这个是可以显示的。
这个就是没有鼠标悬停显示。
二、解决方法:
要显示Access中VBA引用中文件的完整路径,你可以使用以下代码:
Sub ShowReferencePath()
Dim ref As Reference
For Each ref In Application.References
Debug.Print ref.Name & " - " & ref.FullPath
Next ref
End Sub
对鼠标悬停不能显示的情形下可使用。将上述代码添加到Access数据库中的一个模块中,然后运行ShowReferencePath过程。这将遍历所有引用,并在Immediate窗口中显示引用的名称和完整路径。
要打开Immediate窗口,请按下Ctrl + G,或者在VBA编辑器中选择"View"菜单下的"Immediate Window"选项。
请注意,这段代码只能显示已经设置为引用的文件的完整路径。如果某个引用是通过浏览文件对话框选择的,那么它可能没有完整路径。如下图: