excel导入资料导出通讯录VCF模块

.子程序 打开表_, 逻辑型, 公开
.参数 表名, 文本型, , 只能提供表名,参数2不受影响
.参数 打开类型, 整数型, 可空, 1.sql语句 2.数据表名
.局部变量 sql, 文本型

sql ＝ “select * from [” ＋ 表名 ＋ “]”
.如果 (打开类型 ＝ 1)
集_记录集.打开 (sql, #SQL语句, )
.否则
集_记录集.打开 (“[” ＋ 表名 ＋ “]”, #数据表名, )
集_记录集.到下一条 ()