VBA で現在のドキュメントファイルのフルパスを表示する方法

      2017/12/09

'現在のドキュメントファイルのフルパスを表示する方法
'ドキュメントを保存しなければエラーとなるので注意
Sub GetDocumentPath()
    Dim pDocument As IDocument
    Set pDocument = ThisDocument
     
    Dim pVBProject As VBProject
    Set pVBProject = pDocument.VBProject
     
    Debug.Print pVBProject.FileName
 
End Sub

 - プログラミング, ArcGIS , ,