powerdesigner 从excel导入表

来源：互联网发布：网络销售什么产品好编辑：程序博客网时间：2024/06/14 21:56

excel格式：

表名汉语 table_code
列名 column_name NVARCHAR2(10)

excute scripts 代码，tools->execute commands ->edit/run scripts

Option ExplicitDim mdl ' the current modelSet mdl = ActiveModelIf (mdl Is Nothing) Then   MsgBox "There is no Active Model"End IfDim HaveExcelDim RQRQ = 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:/7.xls"   x1.Workbooks(1).Worksheets("Sheet1").ActivateElse   HaveExcel = FalseEnd Ifa x1, mdlsub a(x1, mdl)dim rwIndexdim tableNamedim colnamedim tabledim coldim count'on error Resume NextFor rwIndex = 1 To 35 step 1        With x1.Workbooks(1).Worksheets("Sheet1")            'MsgBox "生成数据表结构共计1 ="+CStr(.Cells(2,2).Value ), vbOK + vbInformation, "表"            If .Cells(rwIndex, 1).Value = "" Then                           Exit For            End If            If .Cells(rwIndex, 3).Value = "" Then               set table = mdl.Tables.CreateNew               table.Name = .Cells(rwIndex , 1).Value               table.Code = .Cells(rwIndex , 2).Value               count = count + 1            Else               colName = .Cells(rwIndex, 1).Value               set col = table.Columns.CreateNew               'MsgBox .Cells(rwIndex, 1).Value, vbOK + vbInformation, "列"               col.Name = .Cells(rwIndex, 1).Value               'MsgBox col.Name, vbOK + vbInformation, "列"               col.Code = .Cells(rwIndex, 2).Value                                   col.Comment = .Cells(rwIndex,1).Value               col.DataType =  .Cells(rwIndex, 3).Value                                         End If        End WithNextMsgBox "生成数据表结构共计 " + CStr(count), vbOK + vbInformation, "表"Exit SubEnd sub

0 0