vba03-4.txt

来自「本书给出了AO的常用的VAB代码 可能是初学者很好的一本参考书」· 文本 代码 · 共 14 行

Sub MyMacro()
    Dim pMxDocument As IMxDocument
    Dim pMaps As IMaps
    Dim pMap As IMap
    On Error GoTo SUB_ERROR
    Set pMxDocument = Application.Document
    Set pMaps = pMxDocument.Maps
    Set pMap = pMaps.Item(1)
    MsgBox pMap.Name
    Exit Sub
SUB_ERROR:
    MsgBox "Error: " & Err.Number & "-" & _
    Err.Description
End Sub