易语言 excel（易语言怎么读取excel表格）

本文目录

• 易语言怎么读取excel表格
• 易语言如何查询excel数据库
• 易语言怎么新建Excel文件
• 易语言excel表格怎样导入到超级列表框
• 易语言删除excel整行数据
• 易语言excel导入sql
• 易语言如何获取一个excel工作簿里面有多少张工作表呢

易语言怎么读取excel表格

方法/步骤
利用易语言编程环境创建一个“Windows窗口程序”。点击菜单“工具”-》“支持库配置”项。
在打开的窗口中，找到并勾选“通用对象支持库 2.0版”，并点击“确定”以添加“超级列表框”组件。
接下来在“启动窗口”中绘制如图所示的界面，其中包括一个“外部数据库”和一个“超级列表框”（从扩展面板中可以找到）组件。
然后利用Excel创建一个名为“jiance.xls”的Excel文件。其内容如图所示：
注：将该文件与易语言程序本身放置在同一目录下。
确保选中“启动窗口”，然后为其添加“创建完毕”事件。
接着输入如图所示的易语言代码：
.版本 2
.支持库 iext
.如果真 (外部数据库1.打开 (“ODBC;DBQ=” ＋ 取当前目录 () ＋ “\jiance.xls;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;”, , ) ＝ 假)
信息框 (“数据库连接失败！”, #错误图标, )
返回 ()
.如果真结束
查询语句 ＝ “select * from ”
记录集 ＝ 外部数据库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.关闭记录集 ()
7
最后点击“运行”按钮，就可以看到易语言成功引用Excel表格中的数据啦。

易语言如何查询excel数据库

.版本 2
.支持库 eExcel2000
Excel工作簿1.置程序 (Excel程序1) ’ 设置工作簿于excel程序领导之下
Excel工作簿1.打开 (取当前目录 () ＋ “\” ＋ 年级数 ＋ “.xls”) ’ 本来可以加个文件名的,如果没有文件,则另存为吧.
Excel工作簿1.表格序号 ＝ 1 ’ 设置第一张表为工作表.
Excel程序1.显示 ＝ 真
’ 以下是把数据库中的查询结果放入excel程序里
tempnum ＝ 1 ’ 第一条记录
tempnumtext ＝ 到文本 (tempnum)
外部数据库1.到首记录 (记录集句柄1)
.判断循环首 (外部数据库1.尾记录后 (记录集句柄1) ＝ 假) ’ 是不是已经到了尾记录了.如果不是,继续.
.变量循环首 (1, 33, 1, loopnum) ’ 共有33个字段,每行显示33段,在excel表中表示列.tempnum表示为行
Excel工作簿1.首单元格 ＝ 表列数组 ＋ tempnumtext
Excel工作簿1.尾单元格 ＝ 表列数组 ＋ tempnumtext
Excel工作簿1.内容格式 ＝ “@” ’ 这代表是文本型的数据.本行可读可写,你可以先设置好格式,然后读一下,显示是什么,再设置
Excel工作簿1.内容 ＝ 外部数据库1.读 (记录集句柄1, loopnum)
.变量循环尾 ()
外部数据库1.到后一记录 (记录集句柄1)
tempnum ＝ tempnum ＋ 1
tempnumtext ＝ 到文本 (tempnum)
.判断循环尾 ()
’ Excel工作簿1.保存 (取当前目录 () ＋ “\” ＋ 年级数 ＋ “.xls”)
’ Excel工作簿1.关闭 ()
’ Excel程序1.退出 ()

易语言怎么新建Excel文件

下面是易语言实现新建Excel文件的示例代码：
```
’获取程序所在目录
Dim progPath As String
progPath = Sys_GetSelfPath()
’拼接Excel文件的完整路径
Dim excelPath As String
excelPath = Str_Concat(progPath, "记事本.xlsx")
’判断Excel文件是否存在
If (File_Exists(excelPath) = 0) Then
’创建Excel文件
Dim objExcel As Excel.Application ’声明Excel对象
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = False ’不显示Excel
’添加工作簿
Dim objWorkbook As Excel.Workbook
Set objWorkbook = objExcel.Workbooks.Add
objWorkbook.SaveAs excelPath ’保存Excel文件
objWorkbook.Close
objExcel.Quit ’退出Excel
End If
```
上述代码先使用`Sys_GetSelfPath()`函数获取程序所在目录，然后通过`Str_Concat()`函数将程序目录和文件名拼接为Excel文件的完整路径。接着，使用`File_Exists()`函数判断Excel文件是否存在，如果不存在则创建Excel文件。在创建Excel文件时，我们使用了COM对象的方式来操作Excel。首先声明了Excel对象和工作簿对象，然后使用`CreateObject()`函数创建Excel对象，添加工作簿，并使用`SaveAs()`方法保存Excel文件。最后，关闭工作簿、退出Excel对象即可。

易语言excel表格怎样导入到超级列表框

准备好需要的excel表格数据，这里为了演示，随意添加一些数据！打开易语言，新建windows窗口程序，接着就可以添加必要的组件！
添加必要的组件，这里用到框、按钮、通用对话框、超级列表框、以及excel程序、excel工作簿！
简单处理一下界面，将组件的标题、超级列表框设置为报表列表框、显示格线，对应设置一下报表列与excel表格，大致界面就完成了！
接下来进入代码部分，_按钮打开_被单击事件下，先添加通用对话框使用代码！过滤文件、指定打开的目录！
.版本 2
通用对话框1.类型 ＝ 0通用对话框1.初始目录 ＝ 取运行目录 ()通用对话框1.过滤器 ＝ “excel文件（*.xlsx）|*.xlsx”.如果真 (通用对话框1.打开 ()) 框1.内容 ＝ 通用对话框1.文件名
添加变量，创建excel程序，读出excel表格的行数与列数！
.版本 2.支持库 eExcel2000.支持库 spec
Excel程序1.创建 () Excel程序1.显示 ＝ 假 Excel工作簿1.置程序 (Excel程序1)
Excel工作簿1.打开 (通用对话框1.文件名) Excel工作簿1.激活工作簿 () Excel工作簿1.激活表格 ()
Excel工作簿1.表格序号 ＝ 0 工作簿对象 ＝ Excel工作簿1.取表格对象 () 范围 ＝ 工作簿对象.读对象型属性
(“UsedRange”, ) 行对象 ＝ 范围.读对象型属性 (“Rows”, ) 行 ＝ 行对象.读数值属性 (“Count”,
) 列对像 ＝ 范围.读对象型属性 (“Columns”, ) 列 ＝ 列对像.读数值属性 (“Count”, ) 调试输出
(行) 调试输出 (列)
接下来就可以用计次循环首分别读入每一行的数据了！，这里为好理解，用了个笨方法，每循环一次代表读取每一行的数据！然后就把取得的数据置入超级列表框就行了！
.版本 2.支持库 eExcel2000.支持库 iext
.计次循环首 (行, n1) Excel工作簿1.首单元格 ＝ “A” ＋ 到文本 (n1)
Excel工作簿1.尾单元格 ＝ “A” ＋ 到文本 (n1) 单元格对象 ＝ Excel工作簿1.取单元格对象
() A列 ＝ 单元格对象.读文本属性 (“Value”, )
Excel工作簿1.首单元格 ＝
“B” ＋ 到文本 (n1) Excel工作簿1.尾单元格 ＝ “B” ＋ 到文本 (n1) 单元格对象 ＝
Excel工作簿1.取单元格对象 () B列 ＝ 单元格对象.读文本属性 (“Value”, )
Excel工作簿1.首单元格 ＝ “C” ＋ 到文本 (n1) Excel工作簿1.尾单元格 ＝ “C” ＋ 到文本
(n1) 单元格对象 ＝ Excel工作簿1.取单元格对象 () C列 ＝ 单元格对象.读文本属性
(“Value”, )
Excel工作簿1.首单元格 ＝ “D” ＋ 到文本 (n1)
Excel工作簿1.尾单元格 ＝ “D” ＋ 到文本 (n1) 单元格对象 ＝ Excel工作簿1.取单元格对象
() D列 ＝ 单元格对象.读文本属性 (“Value”, )
Excel工作簿1.首单元格 ＝
“E” ＋ 到文本 (n1) Excel工作簿1.尾单元格 ＝ “E” ＋ 到文本 (n1) 单元格对象 ＝
Excel工作簿1.取单元格对象 () E列 ＝ 单元格对象.读文本属性 (“Value”, )
Excel工作簿1.首单元格 ＝ “F” ＋ 到文本 (n1) Excel工作簿1.尾单元格 ＝ “F” ＋ 到文本
(n1) 单元格对象 ＝ Excel工作簿1.取单元格对象 () F列 ＝ 单元格对象.读文本属性
(“Value”, )
索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, A列) 超级列表框1.置标题 (索引, 1, B列) 超级列表框1.置标题
(索引, 2, C列) 超级列表框1.置标题 (索引, 3, D列) 超级列表框1.置标题 (索引, 4, E列)
.计次循环尾 ()
读入完毕后，当然要将excel关闭并释放了！运行效果就是这样子的！这里把变量表也上传上来，方便观看！
.版本 2.支持库 eExcel2000
Excel工作簿1.关闭 () Excel工作簿1.释放 () Excel程序1.退出 () Excel程序1.释放 ()

易语言删除excel整行数据

1、选中任意一单元格，按Ctrl+G或F5键调出定位窗口，依次选择【定位条件】-【空值】-【确定】，这样空白单元格都被选中了；
2、在选中的单元格上鼠标点击右键，在弹出的菜单中选择【删除】，调出删除对话框，对话框中各选项保持默认即可，最后点击【确定】返回工作区，这样空行就全部删除了

易语言excel导入sql

您是要问易语言excel怎么导入sql吗？易语言excel导入sql的方法如下：
1、可通过多种方法从易语言Excel导入数据。需要安装SQLServerManagementStudio(SSMS)才能使用其中一些工具。
2、首先导出到文本（SQLServer和SQL数据库）；
3、直接从易语言Excel（仅本地SQLServer）进行就可以直接导入了。通过查询百度得知。MicrosoftExcel是Microsoft为使用Windows和AppleMacintosh操作系统的电脑编写的一款电子表格软件。

易语言如何获取一个excel工作簿里面有多少张工作表呢

.版本 2
.支持库 eExcel2000
.支持库 spec
.程序集 窗口程序集_启动窗口
.子程序 _按钮1_被单击
Excel程序1.创建 ()
Excel工作簿1.置程序 (Excel程序1)
Excel工作簿1.激活工作簿 ()
Excel工作簿1.打开 (“D:\工作簿1.xls”)
调试输出 (Excel工作簿1.表格数量)
Excel工作簿1.关闭 ()
Excel工作簿1.释放 ()