<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级毛片免费播放下载| 水蜜桃视频在线观看免费| 日日麻批免费40分钟无码| 亚洲国产av一区二区三区| 337P日本欧洲亚洲大胆艺术图 | 久久亚洲国产精品成人AV秋霞| 久久av免费天堂小草播放| 亚洲成a人无码av波多野按摩| 男女超爽视频免费播放| 久久亚洲精品无码播放| 美女在线视频观看影院免费天天看| 亚洲爆乳无码一区二区三区| 在线观看亚洲免费| 亚洲AV女人18毛片水真多| 污污网站18禁在线永久免费观看| 久久综合图区亚洲综合图区| 青青草无码免费一二三区| 亚洲一级毛片视频| 国产免费私拍一区二区三区| 国产伦精品一区二区免费| 亚洲综合无码一区二区| 24小时日本在线www免费的| 亚洲av综合av一区二区三区| 日韩精品无码区免费专区| 亚洲av永久中文无码精品| 亚洲成年看片在线观看| 久久久国产精品无码免费专区| 亚洲精品中文字幕无乱码| 永久久久免费浮力影院| 亚洲人成毛片线播放| 国产国产人免费视频成69大陆 | 亚洲无成人网77777| 日韩在线视频免费看| 和老外3p爽粗大免费视频 | 色欲aⅴ亚洲情无码AV蜜桃| 国产亚洲精品看片在线观看| 精品免费人成视频app| 日韩成人毛片高清视频免费看| 久久国产亚洲精品无码| 免费h成人黄漫画嘿咻破解版| 亚洲精品免费在线观看|