<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)論
      

    主站蜘蛛池模板: 在线观看日本亚洲一区| 亚洲2022国产成人精品无码区 | 一区二区免费国产在线观看| 免费看片A级毛片免费看| 亚洲国产精品18久久久久久 | 亚洲日本在线免费观看| 亚洲精品免费在线视频| 成人女人A级毛片免费软件| 亚洲国产成a人v在线观看| 免费一本色道久久一区| 国产亚洲欧美在线观看| 内射无码专区久久亚洲| 一区二区免费电影| 国产v亚洲v天堂无码网站| 麻花传媒剧在线mv免费观看| 亚洲妇女水蜜桃av网网站| 最近最新的免费中文字幕| 亚洲a∨国产av综合av下载| 亚洲国产精品不卡毛片a在线| 岛国精品一区免费视频在线观看| 亚洲AV日韩AV鸥美在线观看| 222www免费视频| 亚洲AV无码一区二区三区电影| 国产精品色午夜免费视频| 久久WWW免费人成—看片| 亚洲国产女人aaa毛片在线 | 亚洲人成依人成综合网| 在线a级毛片免费视频| 美女露隐私全部免费直播| 亚洲国产婷婷六月丁香| 日本zzzzwww大片免费| 国产成人高清亚洲一区91| 亚洲精品国精品久久99热一| 麻豆最新国产剧情AV原创免费| 在线观看亚洲精品专区| 亚洲国产一成人久久精品| 成人免费无码大片a毛片| 国产麻豆一精品一AV一免费| 亚洲精品美女网站| 亚洲精品无码成人AAA片| 国产精品久久久久久久久久免费|