vba 获取当前 路径

Sub get_path()

Dim ActivePath As String
ActivePath = ActiveWorkbook.Path

Range("a1") = ActivePath


End Sub

在这里插入图片描述

参考

看67433的回答
https://zhidao.baidu.com/question/2117151906662330347.html