PowerDesigner导入Excel表结构

《PowerDesigner导入Excel表结构》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、如何将Excel表结构导入到Powerdesigner中（适用于Powerdesigner各种版本）1.编写测试excel文件2.打开pd脚本编辑器PD菜单栏中，依次点击“Tools->ExcuteCommands->Edit/RunScript..”3.编写脚本OptionExplicitDimmdl'thecurrentmodelSetmdl=ActiveModelIf(mdlIsNothing)ThenMsgBox"ThereisnoActiveModel"EndIfDimHaveExcelDimRQRQ=vbYe

2、s'MsgBox("IsExcelInstalledonyourmachine?",vbYesNo+vbInformation,"Confirmation")IfRQ=vbYesThenHaveExcel=True'Open&CreateExcelDocumentDimx1'Setx1=CreateObject("Excel.Application")x1.Workbooks.Open"D:/荷露叮咚.xlsx"x1.Workbooks(1).Worksheets("Sheet1").ActivateElseHaveEx

3、cel=FalseEndIfax1,mdlsuba(x1,mdl)dimrwIndexdimtableNamedimcolnamedimtabledimcoldimcount'onerrorResumeNextForrwIndex=1To4step1Withx1.Workbooks(1).Worksheets("Sheet1")'MsgBox"生成数据表结构共计1="+CStr(.Cells(2,2).Value),vbOK+vbInformation,"表"If.Cells(rwIndex,1).Value=""The

4、nExitForEndIfIf.Cells(rwIndex,3).Value=""Thensettable=mdl.Tables.CreateNewtable.Name=.Cells(rwIndex,1).Valuetable.Code=.Cells(rwIndex,2).Valuecount=count+1ElsecolName=.Cells(rwIndex,1).Valuesetcol=table.Columns.CreateNew'MsgBox.Cells(rwIndex,1).Value,vbOK+vbInfor

5、mation,"列"col.Name=.Cells(rwIndex,1).Value'MsgBoxcol.Name,vbOK+vbInformation,"列"col.Code=.Cells(rwIndex,2).Valuecol.Comment=.Cells(rwIndex,1).Valuecol.DataType=.Cells(rwIndex,3).ValueEndIfEndWithNextMsgBox"生成数据表结构共计"+CStr(count),vbOK+vbInformation,"表"ExitSubEndsu

6、b1.测试第一步：把excel模板文件(例如荷露叮咚.xlsx)拷贝到D盘根目录下（这里的路径需与脚本中标红的地方匹配。）第二步：运行脚本第三步：检查导入效果PS：可以将脚本保存，下次再导入重复利用。