如何用易语言 *** 控Excel里面数据

利用易语言编程环境创建一个“Windows窗口程序”。点击菜单“工具”->“支持库配置”项。

在打开的窗口中，找到并勾选“通用对象支持库

2.0版”，并点击“确定”以添加“超级列表框”组件。

接下来在“启动窗口”中绘制如图所示的界面，其中包括一个“外部数据库”和一个“超级列表框”（从扩展面板中可以找到）组件。

然后利用Excel创建一个名为“jiance.xls”的Excel文件。其内容如图所示：

注：将该文件与易语言程序本身放置在同一目录下。

5、确保选中“启动窗口”，然后为其添加“创建完毕”事件。接着输入如图所示的易语言代码：

.版本

2

.支持库

iext

.如果真

(外部数据库1.打开

(“ODBCDBQ=”

＋

取当前目录

()

＋

“\jiance.xlsDriver={Microsoft

Excel

Driver

(*.xls)}DriverId=790FIL=excel

8.0MaxBufferSize=2048MaxScanRows=8PageTimeout=5ReadOnly=0SafeTransactions=0Threads=3UID=adminUserCommitSync=Yes”,

,

)

＝

假)

信息框

(“数据库连接失败！”,

#错误图标,

)

返回

()

.如果真结束

查询语句

＝

“select

*

from

[Sheet1$]”

记录集

＝

外部数据库1.查询

(查询语句)

.如果真

(记录集

＝

0)

信息框

(“查询失败!”,

#错误图标,

)

返回

()

.如果真结束

外部数据库1.到首记录

(记录集)

局部_计次

＝

1

超级列表框1.插入列

(,

“序号”,

80,

,

,

)

超级列表框1.插入列

(,

“姓名”,

80,

,

,

)

超级列表框1.插入列

(,

“性别”,

80,

,

,

)

超级列表框1.插入列

(,

“年龄”,

80,

,

,

)

.判断循环首

(外部数据库1.尾记录后

(记录集)

＝

假)

局部_临时A

＝

外部数据库1.读

(记录集,

1)

局部_临时B

＝

外部数据库1.读

(记录集,

2)

局部_临时C

＝

到文本

(外部数据库1.读

(记录集,

3))

索引

＝

超级列表框1.插入表项

(,

,

,

,

,

)

超级列表框1.置标题

(索引,

0,

到文本

(局部_计次))

超级列表框1.置标题

(索引,

1,

局部_临时A)

超级列表框1.置标题

(索引,

2,

局部_临时B)

超级列表框1.置标题

(索引,

3,

局部_临时C)

外部数据库1.到后一记录

(记录集)

局部_计次

＝

局部_计次

＋

1

.判断循环尾

()

外部数据库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、你会发现会出现调试文本，是“ODBCDBQ=C:\USERS\ADMINISTRATOR\DESKTOP\户籍地关联.xlsxDefaultDir=C:\USERS\ADMINISTRATOR\DESKTOPDriver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}DriverId=1046FIL=excel 12.0FILEDSN=C:\Users\Administrator\Desktop\123.dsnMaxBufferSize=2048MaxScanRows=8PageTimeout=5ReadOnly=1SafeTransactions=0Threads=3UID=adminUserCommitSync=Yes”

这就是以数据库方式连接excel的方法，这个文本就是连接使用的信息，我已经将上述文本写成了子程序，直接写入参数excel文件路径即可连接，写入方式需要用sql语言（外部数据库1.执行(sql插入语句)）：

.版本 2

.子程序 连接Excel, 逻辑型

.参数 excel路径, 文本型

.判断开始 (外部数据库_Excel.打开 (“ODBCDBQ=” ＋ excel路径 ＋ “DefaultDir=” ＋ 取文本左边 (excel路径, 倒找文本 (excel路径, “\”, , 假)) ＋ “Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}DriverId=1046FIL=excel 12.0MaxBufferSize=2048MaxScanRows=8PageTimeout=5ReadOnly=0SafeTransactions=0Threads=3UID=adminUserCommitSync=Yes”, , ) ＝ 假)

返回 (假)

.默认

返回 (真)

---