1、基础样例表和数据
Excel数据表，样例中有两个sheet。样表及数据如下：
sheet1=>
?
| 主题域 |
表注释 |
表英文名称 |
表中文名称 |
列名 |
列中文名称 |
列注释 |
数据类型 |
主键 |
是否为空 |
默认值 |
| 协议 |
|
order_info |
订单信息表 |
STATIS_DATE |
统计时间 |
|
varchar2(100) |
|
|
|
| |
|
order_info |
订单信息表 |
ORDR_GUID |
订单GUID |
|
varchar2(101) |
Y |
|
|
| |
|
order_info |
订单信息表 |
CO_CD |
公司代码 |
|
varchar2(102) |
|
|
|
| |
|
order_info |
订单信息表 |
CO_NAME |
公司名称 |
|
varchar2(103) |
|
|
|
| |
|
order_info |
订单信息表 |
SERV_ORDR_NO |
服务订单号 |
|
varchar2(104) |
|
|
|
| |
|
order_info |
订单信息表 |
OMS_ORDR_NO |
OMS行订单号 |
|
varchar2(105) |
|
|
|
| |
|
order_info |
订单信息表 |
ORDR_TYPE |
订单类型 |
|
varchar2(106) |
|
|
|
| |
|
order_info |
订单信息表 |
SERV_ORG |
服务组织 |
|
varchar2(107) |
|
|
|
| |
|
order_info |
订单信息表 |
QA_FLG |
质保标识 |
|
varchar2(108) |
|
|
|
| 协议 |
|
personnel |
人员信息表 |
STATIS_DATE |
统计时间 |
|
VARCHAR(14) |
|
|
|
| |
|
personnel |
人员信息表 |
CLIENT |
客户端 |
|
VARCHAR(9) |
Y |
|
|
| |
|
personnel |
人员信息表 |
PARTNER |
业务合作伙伴标识 |
|
VARCHAR(30) |
|
|
|
| |
|
personnel |
人员信息表 |
BEGDA |
开始日期 |
|
VARCHAR(14)) |
|
|
|
| |
|
personnel |
人员信息表 |
ENDDA |
结束日期 |
|
VARCHAR(14)) |
|
|
|
| |
|
personnel |
人员信息表 |
BUKRS |
公司代码 |
|
VARCHAR(12) |
|
|
|
?
sheet2=>
?
| 主题域 |
表注释 |
表英文名称 |
表中文名称 |
列名 |
列中文名称 |
列注释 |
数据类型 |
主键 |
是否为空 |
默认值 |
| 交易 |
|
deal_hurry |
交易流水表 |
STATIS_DATE |
统计时间 |
|
date |
|
|
|
| |
deal_hurry |
交易流水表 |
ORDR_GUID |
订单GUID |
|
varchar2(101) |
Y |
|
|
| |
deal_hurry |
交易流水表 |
CO_CD |
公司代码 |
|
int |
|
Y |
1000 |
| |
deal_hurry |
交易流水表 |
CO_NAME |
公司名称 |
|
varchar2(103) |
|
|
|
| |
deal_hurry |
交易流水表 |
SERV_ORDR_NO |
服务订单号 |
|
varchar2(104) |
|
|
|
| |
deal_hurry |
交易流水表 |
OMS_ORDR_NO |
OMS行订单号 |
|
number(22,3) |
|
|
|
| |
deal_hurry |
交易流水表 |
ORDR_TYPE |
订单类型 |
|
varchar2(106) |
|
|
|
| |
deal_hurry |
交易流水表 |
SERV_ORG |
服务组织 |
|
varchar2(107) |
|
|
|
| |
deal_hurry |
交易流水表 |
QA_FLG |
质保标识 |
|
varchar2(108) |
|
|
|
| 交易 |
|
person |
人员表 |
STATIS_DATE |
统计时间 |
|
date |
|
|
|
| |
person |
人员表 |
CLIENT |
客户端 |
|
VARCHAR(9) |
Y |
|
|
| |
person |
人员表 |
PARTNER |
业务合作伙伴标识 |
|
VARCHAR(30) |
|
|
|
| |
person |
人员表 |
BEGDA |
开始日期 |
|
date |
|
Y |
|
| |
person |
人员表 |
ENDDA |
结束日期 |
|
date |
|
Y |
|
| |
person |
人员表 |
BUKRS |
公司代码 |
|
int |
|
|
|
?
截图=>
?
2、Excel导入到PDM的脚本
Import_PDM_From_Excel.vbs
'******************************************************************************
'* Purpose: 从Excel中读取信息创建PDM模型
'* Title:
'* Category: 创建
'* Author: nisj
'* Created: 2015年7月31日
'* Modified:
'* Use: 打开PDM，创建新的PDM，运行本脚本（Ctrl+Shift+X）
'* Excel 格式要求
'* MODEL Sheet
'* |A |B |C |D |E |F |G |H |I |J |K |
'* 主题域 |表注释 |表英文名称 |表中文名称 |列名 |列中文名称 |列注释 |数据类型 |主键 |是否为空 |默认值 |
'* Version: 1.0
'* Comment:
'******************************************************************************
Option Explicit
' Model sheet中的列信息
CONST CELL_A="A" '主题域(Pachage)
CONST CELL_B="B" '表注释
CONST CELL_C="C" '表英文名称
CONST CELL_D="D" '表中文名称
CONST CELL_E="E" '列名
CONST CELL_F="F" '列中文名称
CONST CELL_G="G" '列注释
CONST CELL_H="H" '数据类型
CONST CELL_I="I" '是否主键
CONST CELL_J="J" '是否可空
CONST CELL_K="K" '默认值
CONST str_iskey="Y"
'表的所属者
CONST str_username="srv"
CONST isclear_columns = true '是否先删除表的所有列，如果是false则不会删除excel中没有的列，如果是true，则会重新创建相应表的所有列
' get the current active model
DIM mdl ' 定义当前的模型
SET mdl = ActiveModel '通过全局参数获得当前的模型
IF (mdl IS NOTHING) THEN
MsgBox "没有选择模型，请选择一个模型并打开"
ELSEIF NOT mdl.IsKindOf(PdPDM.cls_Model) THEN
MsgBox "当前选择的不是一个物理模型（PDM）."
ELSE
'选择需要导入的Excel文件
' 打开Excel
DIM xlApp '定义Excel对象
SET xlApp = CreateObject("Excel.Application")
xlApp.DisplayAlerts = FALSE
DIM xlBook '定义Excel Sheet
SET xlBook = xlApp.WorkBooks.Ope