如何（通过编程）弄清使用VBA的当前弧形文档的路径

Question

我想要一个视觉基本的应用程序功能，该功能显示当前文档的路径。

例如，如果ARCMAP正在显示 map.mxd 我需要显示其路径。

我只找到了一些示例来查询显示层的数据量的路径。

Answer 1

用这个：

Dim DocAbsPath As String
DocAbsPath = Application.Templates.Item(Application.Templates.Count - 1)

取自 这 线。