VBAを使用してSpark EAの要素/エンティティにタグ値を追加する方法は？

Question

ExcelシートのデータをEAモデルに移植しようとしています。私はモデルを構築することができましたが、VBAを使って作成した要素/エンティティにタグ値を追加したいと思います。私はGeert Bellekens EAExcelimporterユーティリティを使用し、要件に合わせて修正/修正しました。ただし、エンティティにタグ付きの値を追加するために拡張することはできません。この点についてAnyhelpは大いに感謝します。

ありがとう、 Rahul。

Answer 1

私はこれでコードを書くことができました。 EA.taggedvalue としてEA.taggedvalue暗いcurrentElementTagとして

パブリック関数addOrUpdateElementTag（文字列として、tagValueとしてEA.element、タグ変数としてanElement）EAとして薄暗いparentPackage「更新指定された名前 持つすべてのタグ付き値」。パッケージには、 '選択したパッケージは、 ます' これはFUTURの誰かに役立つであろうparentPackage = eaConn.getSelectedPackage（）

For Each currentElementTag In anElement.TaggedValues 
    If currentElementTag.name = Tagname Then 
     currentElementTag.Value = tagValue 
     Set addOrUpdateElementTag = currentElementTag 
     currentElementTag.Update 
    End If 
Next 
'no tagged value found, so create it 
If addOrUpdateElementTag Is Nothing Then 
    Set addOrUpdateElementTag = anElement.TaggedValues.AddNew(Tagname, "ElementTag") 
    addOrUpdateElementTag.Value = tagValue 
    addOrUpdateElementTag.Update 
End If 

エンド機能

希望を設定しますe。

ありがとう、 Rahul。