oracle宏生成建表语句

以下是一个简单的 Oracle 宏，可以根据 Excel 表格中的列名和数据类型生成 Oracle 建表语句：

Sub GenerateOracleCreateTableSQL()
    Dim tableName As String
    Dim columnNames As String
    Dim columnTypes As String
    Dim rowCount As Integer
    Dim i As Integer
    
    '获取表格名称
    tableName = ActiveSheet.Name
    
    '获取列名和数据类型
    columnNames = ""
    columnTypes = ""
    For i = 1 To ActiveSheet.UsedRange.Columns.Count
        columnNames = columnNames & ActiveSheet.Cells(1, i).Value & " " & GetOracleDataType(ActiveSheet.Cells(2, i).Value) & ","
    Next i
    columnNames = Left(columnNames, Len(columnNames) - 1)
    
    '生成建表语句
    Dim sql As String
    sql = "CREATE TABLE " & tableName & " (" & vbCrLf & columnNames & vbCrLf & ");"
    
    '输出建表语句
    MsgBox sql
End Sub

Function GetOracleDataType(dataType As String) As String
    Select Case dataType
        Case "文本"
            GetOracleDataType = "VARCHAR2(255)"
        Case "整数"
            GetOracleDataType = "NUMBER(10)"
        Case "日期"
            GetOracleDataType = "DATE"
        Case Else
            GetOracleDataType = "VARCHAR2(255)"
    End Select
End Function

使用方法：

1. 将 Excel 表格中的列名和数据类型填写好，第一行为列名，第二行为数据类型；
2. 按下 Alt + F11 进入 VBA 界面，将以上代码复制进去；
3. 切回 Excel 界面，按下 Alt + F8，选择 GenerateOracleCreateTableSQL 宏运行；
4. 弹出对话框中即为生成的 Oracle 建表语句。

注意事项：

- 本代码仅为示例代码，可能无法满足所有情况，需要根据实际需求进行修改；
- 本代码生成的建表语句中，所有列的长度均为 255，需要根据实际需求进行修改。