excel导入导出xls格式

目录 ＝ 取文本左边 (name, 倒找文本 (name, “\”, , 假))
写到文件 (name, #xls模板)
连接文本 ＝ “ODBC;DBQ=” ＋ name ＋ “;DefaultDir=” ＋ 目录 ＋ “;Driver={Microsoft Excel Driver (*.xls)};DriverId=790;FIL=excel 8.0;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;ReadOnly=0;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;”
bool ＝ 外部数据库1.打开 (连接文本, 假, )
输出调试文本 (bool)
y ＝ 超级列表框1.取表项数 ()
.计次循环首 (y, i)
姓名 ＝ 超级列表框1.取标题 (i － 1, 1)
性别 ＝ 超级列表框1.取标题 (i － 1, 2)
sql语句 ＝ “INSERT INTO [sheet1$] ([姓名],[性别]) VALUES ('” ＋ 姓名 ＋ “','” ＋ 性别 ＋ “')”
bool ＝ 外部数据库1.执行 (sql语句, )
输出调试文本 (bool)
.计次循环尾 ()