ER 썸네일형 리스트형 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 다음