<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
    這個(gè)功能只能用powerdesigner 的腳本功能來實(shí)現(xiàn),使用起來也簡(jiǎn)單

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

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

    簡(jiǎn)單的導(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)建一個(gè)表實(shí)體
    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)共計(jì) " + CStr(count), vbOK + vbInformation, "表"

    Exit Sub
    End sub


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

    Feedback

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

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

    主站蜘蛛池模板: 日本高清免费不卡视频| 亚洲毛片av日韩av无码| 理论秋霞在线看免费| 色久悠悠婷婷综合在线亚洲| 国产成人精品一区二区三区免费| 亚洲日韩乱码久久久久久| 日韩中文字幕免费| 国产情侣久久久久aⅴ免费 | 亚洲激情中文字幕| 处破痛哭A√18成年片免费| 4hu四虎免费影院www| 亚洲一级黄色大片| 无码日韩人妻AV一区免费l| 久久亚洲国产伦理| 国产资源免费观看| 美女的胸又黄又www网站免费| 亚洲国产精品无码中文字| 成年女人毛片免费播放视频m| 亚洲综合无码一区二区痴汉| 亚洲一区日韩高清中文字幕亚洲| 91九色老熟女免费资源站| eeuss在线兵区免费观看| 亚洲另类古典武侠| 九月丁香婷婷亚洲综合色| 国产精品无码素人福利免费| 最近免费中文在线视频| 久99久无码精品视频免费播放| 国产精品亚洲一区二区三区在线| 成人免费无码大片a毛片| 久久久久免费看黄a级试看| 色吊丝性永久免费看码| 亚洲综合精品成人| 亚洲日韩乱码中文无码蜜桃臀| 亚洲真人无码永久在线| 精品久久洲久久久久护士免费| 精品无码无人网站免费视频| 香蕉免费看一区二区三区| 色屁屁在线观看视频免费| 亚洲狠狠婷婷综合久久蜜芽| 亚洲欧洲日产韩国在线| 亚洲国产精品久久66|