1

子程序名 返回值类型 公开 备注
通用Excel文件导入向导_打开并读入EXCEL文件 逻辑型
参数名 类型 参考 可空 数组 备注
参数_Excel文件 文本型
如果 (通用Excel文件导入向导_通用取EXCEL文件表名 (参数_Excel文件) ＝ 真)
如果 (Excel数据库连接.连接 (“DBQ=” ＋ 参数_Excel文件 ＋ “;Driver={Microsoft Excel Driver (*.xls)};”) ＝ 真)
返回 (Excel记录集.置连接 (Excel数据库连接))
否则
向导_编辑框_文件地址.内容 ＝ “”
返回 (假)
如果结束
否则
信息框 (“当前Excel文件的版本太低，请用Office2000或以上版本的Excel重新保存后再次尝试！”, #错误图标, 集_信息框标题)
返回 (假)
如果结束
子程序名 返回值类型 公开 备注
通用Excel文件导入向导_通用取EXCEL文件表名 逻辑型 核心代码！！！循环读出EXCEL数据表名，成功返回真！
参数名 类型 参考 可空 数组 备注
参数_EXCEL文件 文本型

变量名 类型 静态 数组 备注
部_数据库对象 对象
部_记录集对象 对象
部_表名变量 文本型
部_循环次数 整数型
部_循环计次 整数型
部_文本变量 文本型
部_是否存在 逻辑型
向导_表名组合框.清空 ()
' 若用户重新选择文件的话，就先清空表名组合框
部_数据库对象.创建 (“ADODB.Connection”, )
部_记录集对象.创建 (“ADODB.RecordSet”, )
部_数据库对象.方法 (“open”, “DBQ=” ＋ 参数_EXCEL文件 ＋ “;Driver={Microsoft Excel Driver (*.xls)};”)
部_记录集对象 ＝ 部_数据库对象.对象型方法 (“OpenSchema”, 20)
部_记录集对象.方法 (“MoveFirst”, )
' ---------------------------------------以上代码为初始化ADO对象，并打开EXCEL文件
判断循环首 (部_记录集对象.读逻辑属性 (“EOF”, ) ＝ 假)
部_表名变量 ＝ 部_记录集对象.对象型方法 (“Fields”, ).读对象型属性 (“Item”, “TABLE_NAME”).读文本属性 (“Value”, )
如果真 (部_表名变量 ＝ “”)
部_记录集对象.方法 (“Close”, )
部_数据库对象.方法 (“Close”, )
返回 (假)
如果真结束
' ---------------------------------------以上代码为读出EXCEL表名,并赋值给表名变量
如果真 (部_表名变量 ≠ “tblContacts”) ' EXCEL的隐藏表名，如果等于则跳过
如果真 (寻找文本 (部_表名变量, “'”, , 真) ≠ -1) ' 寻找文本为真，不区分大小写
部_表名变量 ＝ 子文本替换 (部_表名变量, “'”, “”, , , 假) ' 子文替换参数为假，不区分大小写
如果真结束
部_表名变量 ＝ 子文本替换 (部_表名变量, “$”, “”, , , 假)
' -------------