ArcMapのTOCで選択したレイヤのフィールド数をカウント

ArcMapのTOCで選択されたフィーチャ レイヤのフィールド数を数えるVBAマクロです。VBEditorを開いて適当なモジュールに貼り付けて実行してください。

レイヤが選択されていなかったり、フィーチャ レイヤ*以外のレイヤを選択していた場合はエラーとなります。

Public Sub FieldCount()

 Dim pMxDocument  As IMxDocument
 Set pMxDocument = ThisDocument

 Dim pFeatureLayer As IFeatureLayer
 Set pFeatureLayer = pMxDocument.SelectedLayer

 Dim pFeatureClass As IFeatureClass
 Set pFeatureClass = pFeatureLayer.FeatureClass

 MsgBox "FieldCount : " & pFeatureClass.Fields.FieldCount
 Debug.Print"FieldCount : ", pFeatureClass.Fields.FieldCount

End Sub

*フィーチャ レイヤ：シェープファイル やジオデータベース フィーチャクラスを元に作成したレイヤ