<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ù)  更多評論
      

    主站蜘蛛池模板: 亚洲熟妇无码AV不卡在线播放| 亚洲美女视频一区二区三区| 三年片在线观看免费西瓜视频| 精品亚洲永久免费精品| av无码久久久久不卡免费网站| 亚洲国产精品无码久久SM| 最近免费中文字幕中文高清| 亚洲精品无码午夜福利中文字幕| 全黄大全大色全免费大片| 国产亚洲A∨片在线观看| 中文字幕免费不卡二区| 亚洲av福利无码无一区二区| 久久精品一本到99热免费| 久久亚洲精品人成综合网| 114一级毛片免费| 亚洲欧美第一成人网站7777 | 亚洲一区AV无码少妇电影| 最近免费中文字幕大全视频| 亚洲熟妇丰满多毛XXXX| 一级白嫩美女毛片免费| 亚洲中文字幕无码一区| 日韩免费人妻AV无码专区蜜桃| 亚洲第一页在线播放| 成年人性生活免费视频| 黄色网页免费观看| 国产偷v国产偷v亚洲高清| 国产精品免费观看| 色窝窝亚洲AV网在线观看| 亚洲中文字幕久久精品无码喷水 | 2020天堂在线亚洲精品专区| 国产在线a不卡免费视频| 国产福利免费视频 | 国产成人精品免费视频软件| 国产精品玖玖美女张开腿让男人桶爽免费看 | 亚洲欧洲中文日韩久久AV乱码| 97在线视频免费公开视频| 亚洲国语在线视频手机在线| 精品免费国产一区二区三区| va天堂va亚洲va影视中文字幕| 又粗又硬又黄又爽的免费视频| 性无码免费一区二区三区在线|