欢迎来到天天文库
浏览记录
ID:38815942
大小:213.50 KB
页数:5页
时间:2019-06-19
《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文件
此文档下载收益归作者所有