将数据库中的表导入到powerdesigner中并转为excel文档

《将数据库中的表导入到powerdesigner中并转为excel文档》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、将数据库中的表导入到PowerDesigner中并转为excel文档1、打开PowerDesigner12，在菜单中按照如下方式进行操作file->ReverseEngineer->DataBase点击后，弹出NewPhysicalDataModel的对话框2、在General选项卡中Modelname:模板名字，自己命名。DMBMS：根据需要选择，我选择的是ORACLEVersion10g点确定后弹出DatabaseReverseEngineeringOption对话框3Selection选项卡中，选中Usingadatasource选项注意如果是第一次导入数据，需要你先

2、自己配制ODBC数据源，方法如下：1）点击下面右侧的数据库连接按钮，弹出ConnecttoaDataSource的对话框2）选中ODBCmachinedatasource选项，点击Modify按钮右边的Configure按钮弹出ConfigureDataConnections3）在ODBCMachineDataSources选项卡下面的工具栏中点击第二个数据库配置按钮(AddDataSource(Ctrl+N))弹出创建新数据源窗口，选择文件数据源，选择相应的数据源驱动程序（我选Oracle），点下一步（Modify），给数据源起个名字，选择服务器，下一步，输入相应的密码配

3、置完毕后点击确定4，选择刚刚配置的数据源，输入相应的用户名和密码即可。、选择需要导入的表powerDesigner生成excel版本的数据库文件在PowerDesigner中，shift+ctrl+X，打开脚本运行，脚本如下：'******************************************************************************'*File:pdm2excel.txt'*Title:pdmexporttoexcel'*Purpose:ToexportthetablesandcolumnstoExcel'*Model:Ph

4、ysicalDataModel'*Objects:Table,Column,View'*Author:ziyan'*Created:2012-05-03'*Version:1.0'******************************************************************************OptionExplicitDimrowsNumrowsNum=0'-----------------------------------------------------------------------------'Mainfuncti

5、on'-----------------------------------------------------------------------------'GetthecurrentactivemodelDimModelSetModel=ActiveModelIf(ModelIsNothing)Or(NotModel.IsKindOf(PdPDM.cls_Model))ThenMsgBox"ThecurrentmodelisnotanPDMmodel."Else'Getthetablescollection'创建EXCELAPPdimbeginrowDIMEXCEL,

6、SHEETsetEXCEL=CREATEOBJECT("Excel.Application")EXCEL.workbooks.add(-4167)'添加工作表EXCEL.workbooks(1).sheets(1).name="test"setsheet=EXCEL.workbooks(1).sheets("test")ShowPropertiesModel,SHEETEXCEL.visible=true'设置列宽和自动换行sheet.Columns(1).ColumnWidth=20sheet.Columns(2).ColumnWidth=40sheet.Columns(

7、4).ColumnWidth=20sheet.Columns(5).ColumnWidth=20sheet.Columns(6).ColumnWidth=15sheet.Columns(7).ColumnWidth=10sheet.Columns(8).ColumnWidth=10sheet.Columns(9).ColumnWidth=10sheet.Columns(1).WrapText=truesheet.Columns(2).WrapText=truesheet.Columns(4).WrapText=tr