将Word表格数据导入ACCESS或SQL数据库

这是几年前写的根据Word表格自动生成SQL数据库脚本的VBScript代码，最近修改了下（原来只支持单个Word表格）使其支持一个Word文档中的多个表格，生成的SQL文件名以Word文件名+.SQL，并和Word文档存放在同一目录下（如果需要更改文件名或目录请修改sSQLFileName 变量），另外表格需要使用规定的格式（见附件），如果更换表格格式当然也同时修改代码了。

Sub CreateSQLFile()
'
' CreateSQLFile Macro
' 宏在 2005-4-15 由 czl 创建
'
        '数组声明
        '有缺省值有字段数组
        Dim DefaultFieldArr(35, 1) As String
        '主键字段数组
        Dim PKFieldArr(10) As String
        '缺省数组长度
        Dim DefaultArrLen As Integer
        '主键数组长度
        Dim PKArrLen As Integer
        '上一行
        Dim sPreLine As String
        '是否有文本图像字段
        Dim bHasTextImageField As Boolean
        '循环变量
        Dim i As Integer
        '最大字段描述行
        Dim iMaxLine As Integer
        '文档表总数
        Dim iTableCount As Integer
        
        '脚本文件保存路径
        'sSQLFileSavePath = "E:\Hugesoft\表设计\Scripts\"
        '脚本文件名
        sSQLFileName = ActiveDocument.FullName + ".SQL"
        '创建文件
        Set fs = CreateObject("Scripting.FileSystemObject")
        Set a = fs.CreateTextFile(sSQLFileName, True)
        
        iTableCount = ActiveDocument.Tables.Count
        For iIndex = 1 To iTableCount
        
                '取得表名
                Set oTable = ActiveDocument.Tables(iIndex)
                Set aCell = oTable.Rows(4).Cells(2)
                Set myRange = ActiveDocument.Range(Start:=aCell.Range.Start, _
                        End:=aCell.Range.End - 1)
                sTableName = myRange.Text
                
                '取表格的总行数
                iRowCount = oTable.Rows.Count
                
                DefaultArrLen = 0
                PKArrLen = 0
                sPreLine = ""
                bHasTextImageField = False