01 02 03 04 05 06 07 08 09 10 11 12 13 14 | 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 "選択レイヤのフィールド数 : " & pFeatureClass.Fields.FieldCount Debug.Print "選択レイヤのフィールド数 : ", pFeatureClass.Fields.FieldCount End Sub |
ArcMap の TOC で選択したレイヤーのフィールド数をカウント
2016/9/1 (木)
![Pinterest](https://www.pinterest.com/pin/create/button/?url=https%3A%2F%2Fwww.wingfield.gr.jp%2Farchives%2F7633&media=https://www.wingfield.gr.jp/wp/wp-content/uploads/2024/05/WINGFIELD_since1995_200x200.png&description=[vb title="VBA"] Public Sub FieldCount() Dim pMxDocument As IMxDocument Set pMxDocument = ){kind=link}