code 썸네일형 리스트형 ER Studio Entity Name to Clipboard Sample Code Sub Main Dim mdl As Model Dim ent As Entity Dim attr As AttributeObj Dim strResult As String Set mdl = DiagramManager.ActiveDiagram.ActiveModel Set sm = mdl.ActiveSubModel strResult ="" For Each ent In mdl.Entities strResult = strResult & ent.EntityName & vbCrLf For Each attr In ent.Attributes strResult = strResult & vbTab & attr.ColumnName & vbCrLf 'vbTab &" [" & attr.Datatype & "]" & vbCrLf Ne.. 더보기 이전 1 다음