欢迎来到天天文库
浏览记录
ID:37916672
大小:166.50 KB
页数:5页
时间:2019-06-02
《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:可以将脚本保存,下次再导入重复利用。
此文档下载收益归作者所有