vba03-1.txt

来自「AO的原代码,都是以TXT的文件写的,对你肯定有帮助的.这些都是 我的心血啊.」· 文本 代码 · 共 6 行

Sub MyMacro()
    Dim pMxDocument As IMxDocument
    Set pMxDocument = Application.Document
    MsgBox pMxDocument.FocusMap.Name
End Sub