Excel模版创建pdm.doc

Excel模版创建pdm一、 将数据字典中的数据表结构粘贴到Excel文件中，整理成如下图所示格式二、 在powerdesigner中创建PDM工程，选中该工程，然后打开脚本代码窗口：ToolsExecute Commands EditRun Script ，编写代码脚本。三、 脚本代码Dim mdl the current modelSet mdl = ActiveModelIf (mdl Is Nothing) ThenMsgBox 没有活动的模版End IfDim HaveExcelDim RQRQ = vbYes MsgBox(Is Excel Installed on your machine ?, vbYesNo + vbInformation, Confirmation)If RQ = vbYes ThenHaveExcel = True Open & Create Excel DocumentDim x1 Set x1 = CreateObject(Excel.Application)x1.Workbooks.Open C:UsersAdministratorDesktopBook1.xls 指定excel文档路径ElseHaveExcel = FalseEnd Ifa x1, mdlsub a(x1, mdl)dim rwIndex dim tableNamedim colnamedim tabledim coldim counton error Resume Nextset table = mdl.Tables.CreateNew 创建一个表实体table.Name = 国家信息表 指定表名，如果在Excel文档里有，也可以 .Cells(rwIndex, 3).Value 这样指定table.Code = LU_STATUS 指定表名编码count = count + 1For rwIndex = 2 To 1000 指定要遍历的Excel行标，此处第一列为列名，古从第二行开始循环With x1.Workbooks(1).Worksheets(sheet1)需要循环的sheet名称If .Cells(rwIndex, 1).Value = ThenExit ForEnd Ifset col = table.Columns.CreateNew 创建一列/字段col.Name = .Cells(rwIndex, 1).Value 指定列名col.Code = .Cells(rwIndex, 2).Value 指定列名编码col.DataType = .Cells(rwIndex, 3).Value 指定列数据类型指定主键If .Cells(rwIndex, 4).Value = 是 Thencol.Primary = true End If指定列是否可空 true 为不可空 If .Cells(rwIndex, 5).Value = 否 Thencol.Mandatory = true End Ifcol.Comment = .Cells(rwIndex, 6).Value 指定列说明End WithNextMsgBox 生成数据表结构共计 +