易语言怎么导入XLS

Question

补充

Answer 1

数据导入xls：可以利用组件“外部数据库”，做一个按钮，在点击按钮子程序中输入下面的代码（提示：以下方法看似复杂，只需要整一遍，写成子程序，以后所有程序均可直接调用）:
外部数据库1.打开()
调试输出(外部数据库.取连接文本())
1、运行程序，点击按钮；2、选择数据源，在DNS名称位置选择“新建”；3、创建的新的数据源，选择Microsoft Excel Driver(*.xls,*.xlsx,*.xlsb)，点击下一步；4、点击浏览—桌面，文件名写123，点击保存，点击下一步，点击完成；5、在ODBC Microsoft Excel安装窗口点击“选择工作簿”，找到你想打开的excel表，点击确定；6、在ODBC Microsoft Excel安装窗口点击确定；7、在选择数据源窗口点击确定，剩下全部点击确定；8、你会发现会出现调试文本，是“ODBC;DBQ=C:\USERS\ADMINISTRATOR\DESKTOP\户籍地关联.xlsx;DefaultDir=C:\USERS\ADMINISTRATOR\DESKTOP;Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DriverId=1046;FIL=excel 12.0;FILEDSN=C:\Users\Administrator\Desktop\123.dsn;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;ReadOnly=1;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;”
这就是以数据库方式连接excel的方法，这个文本就是连接使用的信息，我已经将上述文本写成了子程序，直接写入参数excel文件路径即可连接，写入方式需要用sql语言（外部数据库1.执行(sql插入语句)）：
.版本 2
.子程序 连接Excel, 逻辑型
.参数 excel路径, 文本型
.判断开始 (外部数据库_Excel.打开 (“ODBC;DBQ=” ＋ excel路径 ＋ “;DefaultDir=” ＋ 取文本左边 (excel路径, 倒找文本 (excel路径, “\”, , 假)) ＋ “;Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DriverId=1046;FIL=excel 12.0;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;ReadOnly=0;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;”, , ) ＝ 假)
返回 (假)
.默认
返回 (真)

Answer 2

var Sql : String; begin ADOQuery1.Close; //ADOQuery1?接SqlServer的Connection ADOQuery1.SQL.Clear; //清空Sql Sql:= 'Insert Into Tbl1(id,name,sex,ph,aDAT) SELECT id,name,sex,ph,aDAT FROM OPENROWSET( ' 'MICROSOFT.JET.OLEDB.4.0 ' ', ' 'Excel 5.0;HDR=YES;DATABASE=d:\d.xls ' ',sheet1$) ' ;//sheet1$要求的Excel表格 ADOQuery1.SQL.Add(Sql);//?行Sql ADOQuery1.ExecSQL; end;

Answer 3

网上找现成的插件追问

给个链接1