如何将excel 数据库表结构生成powerdesign物理模型

Option Explicit
Dim mdl ' the current model
Set mdl = ActiveModel
If (mdl Is Nothing) Then
  MsgBox "There is no Active Model"
End If 

Dim HaveExcel
Dim RQ
RQ = vbYes 'MsgBox("Is Excel Installed on your machine ?", vbYesNo + vbInformation, "Confirmation")
If RQ = vbYes Then
   HaveExcel = True
' Open & Create Excel Document
 Dim x1 '
  Set x1 = CreateObject("Excel.Application")
  x1.Workbooks.Open "D:/Test.xlsx"
  x1.Workbooks().Worksheets("Sheet1").Activate
Else
   HaveExcel = False
End If 

a x1, mdl 

sub a(x1,mdl)
dim rwIndex
dim tableName
dim colname
dim table
dim col
dim count 

'on error Resume Next
For rwIndex =  To  step
    With x1.Workbooks().Worksheets("Sheet1")
  'MsgBox "生成数据表结构共计1 ="+CStr(.Cells(2,2).Value ), vbOK + vbInformation, "表"
   If .Cells(rwIndex, ).Value = "" Then
       Exit For
   End If
  If .Cells(rwIndex, ).Value = "" Then
    set table = mdl.Tables.CreateNew
        table.Name = .Cells(rwIndex , ).Value
        table.Code = .Cells(rwIndex , ).Value
        count = count +
   Else
    colName = .Cells(rwIndex, ).Value
    set col = table.Columns.CreateNew
   'MsgBox .Cells(rwIndex, 1).Value, vbOK + vbInformation, "列"
    col.Name = .Cells(rwIndex, ).Value
    'MsgBox col.Name, vbOK + vbInformation, "列"
     col.Code = .Cells(rwIndex, ).Value
    col.Comment = .Cells(rwIndex,).Value
    col.DataType = .Cells(rwIndex, ).Value
   End If
  End With
Next 

MsgBox "生成数据表结构共计" + CStr(count), vbOK + vbInformation, "表" 

Exit Sub
End sub

将EXCEL 数据库表结构生成POWERDESIGN

代码说明：

1.） For rwIndex = 1 To 50 step 1                  此处是定义生成的行数，即字段数量50，可以修改此数

2.）   x1.Workbooks.Open "D:/Test.xlsx"      此处是  excel 数据库表结构存入的位置，可以自定义位置和名称

3）Test.xlsx  中 的 “应申报统计”数据库表 结构如下：

应申报统计(表名name)	SB_YSBTJ（表名code)
会计制度（准则）代码	KJZDZZ_DM	CHAR(3)
是否催报及监控未申报	SFCBJJKWSB	CHAR(1)
作废日期	ZFRQ_1	DATE
征收方式代码	ZSFS_DM	CHAR(3)
纳税期限代码	NSQX_DM	CHAR(2)
税款所属期止	SKSSQZ	DATE
税款所属期起	SKSSQQ	DATE
月份	YF	CHAR(2)
年度	ND	VARCHAR2(10)
征收品目代码	ZSPM_DM	CHAR(9)
征收项目代码	ZSXM_DM	VARCHAR2(5)
登记序号	DJXH	NUMBER(20)
纳税申报日期	NSSBRQ	DATE
原申报期限	YSBQX	DATE
申报期限	SBQX	DATE
数据来源标志	SJLYBZ	CHAR(1)
征收代理方式代码	ZSDLFS_DM	CHAR(1)
行业代码	HY_DM	VARCHAR2(4)
修改日期	XGRQ	DATE
修改人代码	XGR_DM	CHAR(11)
录入日期	LRRQ	DATE
申报方式代码	SBFS_DM	CHAR(2)
数据归属地区	SJGSDQ	CHAR(11)
录入人代码	LRR_DM	CHAR(11)
主管税务所（科、分局）代码	ZGSWSKFJ_DM	CHAR(11)
主管税务局代码	ZGSWJ_DM	CHAR(11)
税收管理员代码	SSGLY_DM	CHAR(11)
作废人代码	ZFR_DM	CHAR(11)
作废标志	ZFBZ_1	CHAR(1)
应申报统计UUID	YSBTJUUID	VARCHAR2(32)
数据同步时间	SJTB_SJ	TIMESTAMP
税源编号	SYBH_1	VARCHAR2(40)

将上面的代码保存为vbscript保存至  C:\Program Files (x86)\Sybase\PowerDesigner 15\VB Scripts 中，命名为：generate_table_structure_for_excel.vbs

然后在PD菜单  Tool -> Execute Commands->   Edit/Run Script  选择上面所保存的vb script