EXCEL生成SQL建表存储过程的VBA脚本

HO~HO~EXCEL生成SQL建表存储过程的VBA脚本^_^赞一下
2007-12-11 10:39
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 全局变量定义
Const MAX_COLUMN_NUM = 50
Dim stOutputPath As String
Dim stOutputFile As String
Dim stDBName As String
Dim stUserName As String
Dim stUserPasswd As String
   
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Set InitProcess初始化过程
Public Sub InitProcess()
    '初始化输出文件夹
    stOutputPath = Application.ThisWorkbook.Path + "\OUTSQL\"
    '初始化数据库名
    stDBName = Worksheets("首页").Cells(1, 2).Value
    If stDBName = "" Then
        MsgBox "数据库名不能为空"
        Exit Sub
    End If
   
    '初始化输出文件名
    stOutputFile = stOutputPath & stDBName & "Create.sql"
   
   
    '创建输出文件夹and文件
    On Error Resume Next
    If Dir(stOutputPath) = "" Then
        MkDir stOutputPath
    End If
       
    Dim FileObj, MyFile
    Set FileObj = CreateObject("Scripting.FileSystemObject")
    If FileObj.FileExists(stOutputFile) Then
       Kill stOutputFile
    End If
    Set MyFile = FileObj.CreateTextFile(stOutputFile, True)
   
    '初始化用户名，用户密码
    stUserName = Worksheets("首页").Cells(2, 2).Value
    stUserPasswd = Worksheets("首页").Cells(3, 2).Value
   
End Sub
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 创建数据库函数
Public Sub CreateDbSQL(ByVal OutSq