vba03-3.txt

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

Sub MyMacro()
    Dim pMxDocument As IMxDocument
    Dim pMap As IMap
    Dim lCount As Long
    Dim lIndex As Long
    Set pMxDocument = Application.Document
    Set pMap = pMxDocument.FocusMap
    lCount = 1
    For lIndex = 0 To (pMap.LayerCount - 1)
        If TypeOf pMap.Layer(lIndex) Is _
        IFeatureLayer Then
            lCount = lCount + 1
        End If
    Next lIndex
    MsgBox "Number of the feature layers " & _
    "in the active map: " & lCount
End Sub