ITPub博客

首页 > Linux操作系统 > Linux操作系统 > VBA从Excel中生成Oracle create table

VBA从Excel中生成Oracle create table

Linux操作系统 作者:yrsniper 时间:2014-01-24 00:45:16 0 删除 编辑
有时会碰到Oracle设计文档用Excel,需要根据Excel生成create table语句。当表多,列多,设计变更时,这个VBA小函数就能节省很多时间。在google, baidu搜了一圈,没有找到类似的。写出来方便自己也方便他人。

假设:
Sheet名字为表名
第一行作为Excel表格表头
第一列为列名
第二列null 约束
第三列数据类型

目前还不支持分区语法

Private Sub Worksheet_Activate()
    
    Dim ddl As String
    Dim i As Integer
    
    
    ddl = "Create table " + Sheet1.Name + " ("
    
    'MsgBox (Sheet1.Range("A" & 2).Value)
    
    
    For i = 2 To 27
    
        ddl = ddl + Sheet1.Range("A" & i).Value + " "         'Column name
        ddl = ddl + Sheet1.Range("C" & i).Value + " "              'Data type
        If Sheet1.Range("B" & i).Value = "N" Then
            ddl = ddl + "not null"
        End If
        ddl = ddl + ","
    Next i
    
    ddl = Left(ddl, Len(ddl) - 1) + ");"
    'Write the DDL to Sheet11
    Sheet11.Range("A2").Value = Sheet1.Name
    Sheet11.Range("B2").Value = ddl
    
    
End Sub


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/9514665/viewspace-1074764/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2014-01-24

  • 博文量
    11
  • 访问量
    14113