Excel模版创建pdm

《Excel模版创建pdm》由会员上传分享，免费在线阅读，更多相关内容在PPT专区-天天文库。

1、Excel模版创建pdm一、将数据字典中的数据表结构粘贴到Excel文件中，整理成如下图所示格式二、在powerdesigner中创建PDM工程，选中该工程，然后打开脚本代码窗口：Tools－ExecuteCommands－　EditRunScript，编写代码脚本。三、脚本代码'Dimmdl'thecurrentmodelSetmdl=ActiveModelIf(mdlIsNothing)ThenMsgBox"没有活动的模版"EndIfDimHaveExcelDimRQRQ=vbYes'MsgBox("IsExcelInstalledonyourmachine?",vbYesNo+

2、vbInformation,"Confirmation")IfRQ=vbYesThenHaveExcel=True'Open&CreateExcelDocumentDimx1'Setx1=CreateObject("Excel.Application")x1.Workbooks.Open"C:UsersAdministratorDesktopBook1.xls"'指定excel文档路径ElseHaveExcel=FalseEndIfax1,mdlsuba(x1,mdl)dimrwIndexdimtableNamedimcolnamedimtabledimcoldimcounto

3、nerrorResumeNextsettable=mdl.Tables.CreateNew'创建一个表实体table.Name="国家信息表"'指定表名，如果在Excel文档里有，也可以.Cells(rwIndex,3).Value这样指定table.Code="LU_STATUS"'指定表名编码count=count+1ForrwIndex=2To1000'指定要遍历的Excel行标，此处第一列为列名，古从第二行开始循环Withx1.Workbooks(1).Worksheets("sheet1")'需要循环的sheet名称If.Cells(rwIndex,1).Value=""Th

4、enExitForEndIfsetcol=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=trueEndIf'指定列是否可空true为不可空If.Cells(rwIndex,5).Value="否"Thencol.Mandatory=tr

5、ueEndIfcol.Comment=.Cells(rwIndex,6).Value'指定列说明EndWithNextMsgBox"生成数据表结构共计"+CStr(count),vbOK+vbInformation,"表"ExitSubEndsub一、执行VB脚本代码，生成pdm文件