vba03-3.txt

AO的原代码,都是以TXT的文件写的,对你肯定有帮助的.这些都是 我的心血啊.

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