<rt id="bn8ez"></rt>
<label id="bn8ez"></label>

  • <span id="bn8ez"></span>

    <label id="bn8ez"><meter id="bn8ez"></meter></label>

    ivaneeo's blog

    自由的力量,自由的生活。

      BlogJava :: 首頁 :: 聯(lián)系 :: 聚合  :: 管理
      669 Posts :: 0 Stories :: 64 Comments :: 0 Trackbacks
    這個功能只能用powerdesigner 的腳本功能來實現(xiàn),使用起來也簡單

    打開powerdesigner,shift + ctrl + X 打開腳本窗口

    輸入執(zhí)行的腳本,點 run 即可。

    簡單的導(dǎo)入Excel腳本

    '開始
    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:\11.xls"   '指定excel文檔路徑
       x1.Workbooks(1).Worksheets("Sheet1").Activate   '指定要打開的sheet名稱
    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

    set table = mdl.Tables.CreateNew '創(chuàng)建一個表實體
    table.Name = "卡片信息表"    '指定表名,如果在Excel文檔里有,也可以 .Cells(rwIndex, 3).Value 這樣指定
    table.Code = "AM_CARDINFO"  '指定表名
    count = count + 1

    For rwIndex = 2 To 1000   '指定要遍歷的Excel行標(biāo)  由于第1行是表頭,從第2行開始
            With x1.Workbooks(1).Worksheets("Sheet1")
                If .Cells(rwIndex, 1).Value = "" Then
                   Exit For
                End If

                   set col = table.Columns.CreateNew   '創(chuàng)建一列/字段
                   'MsgBox .Cells(rwIndex, 1).Value, vbOK + vbInformation, "列"
                   If .Cells(rwIndex, 3).Value = "" Then
                      col.Name = .Cells(rwIndex, 1).Value   '指定列名
                   Else 
                      col.Name = .Cells(rwIndex, 3).Value
                   End If
                   'MsgBox col.Name, vbOK + vbInformation, "列"
                   col.Code = .Cells(rwIndex, 1).Value   '指定列名
                   
                   col.DataType = .Cells(rwIndex, 2).Value   '指定列數(shù)據(jù)類型
                   
                   col.Comment = .Cells(rwIndex, 5).Value  '指定列說明
                   
                   If .Cells(rwIndex, 4).Value = "否" Then
                       col.Mandatory = true        '指定列是否可空  true  為不可空                  
                   End If
                   
                   If rwIndex = 2 Then
                       col.Primary = true    '指定主鍵
                   End If
            End With
    Next
    MsgBox "生成數(shù)據(jù)表結(jié)構(gòu)共計 " + CStr(count), vbOK + vbInformation, "表"

    Exit Sub
    End sub


    posted on 2010-12-04 10:45 ivaneeo 閱讀(2744) 評論(3)  編輯  收藏 所屬分類: oralce-為什么這么強大

    Feedback

    # re: powerdesigner 導(dǎo)入Excel文檔 做成 實體表 2010-12-25 16:14 liutianzhong
    對excel表的填寫有何要求沒有?應(yīng)如何填寫?我轉(zhuǎn)不成功?  回復(fù)  更多評論
      

    # re: powerdesigner 導(dǎo)入Excel文檔 做成 實體表 2012-07-24 10:38 山嶺
    excel格式怎么沒貼出來?  回復(fù)  更多評論
      

    主站蜘蛛池模板: 久久久久免费看黄a级试看| 日韩一区二区三区免费播放| 免费91麻豆精品国产自产在线观看 | 国产亚洲成av片在线观看| 毛片基地看看成人免费| 亚洲免费日韩无码系列| 日韩在线观看免费完整版视频| 免费国产高清视频| 特级毛片爽www免费版| 国产91精品一区二区麻豆亚洲| 日亚毛片免费乱码不卡一区| 亚洲人成影院在线无码观看| 一个人看的免费观看日本视频www| 亚洲国产精品第一区二区三区| 一级做a爰片久久毛片免费陪| 亚洲日本在线观看视频| 两个人看的www免费视频中文 | 亚洲AV无码欧洲AV无码网站| 日韩电影免费在线观看| 精品无码一区二区三区亚洲桃色 | 精品免费国产一区二区三区 | 四虎永久在线精品免费影视 | 中文在线免费看视频| 亚洲视频2020| 成年在线观看网站免费| 国产成人综合亚洲| 中文字幕在线亚洲精品| 91成人免费观看| 亚洲欧美日韩中文高清www777| 国产91久久久久久久免费| 久久这里只精品99re免费| 亚洲色精品VR一区区三区| 2022中文字字幕久亚洲| 日韩精品人妻系列无码专区免费 | 男人进去女人爽免费视频国产| 亚洲AV综合色区无码二区偷拍| 免费欧洲美女牲交视频| 久久国产精品2020免费m3u8 | 亚洲精品无码午夜福利中文字幕| 日韩精品无码一区二区三区免费 | 99精品免费观看|