这是我在论坛搜集拼凑的代码,除了 弹出那个提示窗,其它都挺好用,速度也很快。
我只是需要在不打开EXCEL(或者不要有上面那个提示窗),引用数据至高级表格。 不知道怎么修改
Excel程序1. 创建 ()Excel程序1.显示 = 假 Excel工作簿1. 置程序 (Excel程序1 )Excel工作簿1. 打开 (编辑框1.内容 )外部数据库1. 打开 (“ODBC;DBQ=” + 编辑框1.内容 + “;Driver={Microsoft Excel Driver (*.xls)};DriverId=1046;FIL = EXCEL8.0 ”, , )记录集句柄 = 外部数据库1. cha询 (“select * from [sheet1]”)如果 (记录集句柄 ≠ 0 )外部数据库1. 到首记录 (记录集句柄 )m = 1 判断循环首 (外部数据库1. 尾记录后 (记录集句柄 ) = 假)高级表格1. 插入行 (, )高级表格1. 置数据 (m, 0, #表格常量 .文本型, 到文本 (外部数据库1. 读 (记录集句柄, 1 )) ) 高级表格1. 置数据 (m, 1, #表格常量 .文本型, 到文本 (外部数据库1. 读 (记录集句柄, 2 )) ) m = m + 1 外部数据库1. 到后一记录 (记录集句柄 )判断循环尾 ()外部数据库1. 关闭记录集 (记录集句柄 )外部数据库1. 关闭 ()Excel工作簿1. 关闭 ()Excel工作簿1. 释放 ()Excel程序1. 退出 ()Excel程序1. 释放 ()
|