易语言操作EXCEL的模块

深邃如海

谢谢楼主了，非常感谢！
请问楼主，我也曾经想学习excel对象操作，但是英文命令看不懂。
请问楼主是如何学习的这些英文命令的用法的？
再次感谢楼主！

yworld

如何选择sheet呀？

作茧自缚1

看下，谢谢分享

willcent

试试能不能用上

00hjf44

找了半天 找到了 还是要谢谢一下楼主

ttt0410

这是网名 发表于 2017-2-22 00:22
取行数列数的源码有点问题，下个版本修复下。

自己翻前面内容，有举例，这个不是直接赋值的

ttt0410

jneyxwry 发表于 2017-3-23 14:44
为什么必须要打开本地的excel才可以操作？ 不能在内存里进行操作完，然后另存为吗？

你可以改进下

ttt0410

jneyxwry 发表于 2017-3-23 14:55
请问如何设置列宽？

我给了代码的吧？

ttt0410

石门e客 发表于 2017-3-28 22:30
感谢分享，有一个问题一直困扰我，希望大神解救：Excel表格数据设置为自定义hh：mm：ss，读入后变成了0.235 ...

没太懂，举例？

ttt0410

Yakusoku 发表于 2017-4-4 22:36
感谢楼主的模块，让我减少了许多工作量，请问下该如何筛按条件选表格数据呢？我工作地的表格随便一张都是上 ...

自己加
.版本 2

.子程序 置筛选, , 公开
.参数 单元格区域, 文本型
.参数 工作表序号, 整数型, 可空, 不填就是当前表
.参数 第几列被筛选, 整数型, 可空, 默认为1，为单元格区域中第几列被筛选，如A:B中筛选B列，就填2
.参数 筛选的文本, 文本型, 可空, 空为取消筛选
.参数 与文本2是和还是或, 整数型, 可空, 1是和，2是或
.参数 筛选的文本2, 文本型, 可空
.局部变量 Range, 对象

' EXCEL.读对象型属性 (“Worksheets”, ).读对象型属性 (“Item”, 工作表序号).读对象型属性 (“Range”, 单元格区域).查看 ()
.如果真 (是否为空 (工作表序号))
    工作表序号 ＝ 取当前活动工作表索引 ()
.如果真结束

Range ＝ EXCEL.读对象型属性 (“Worksheets”, ).读对象型属性 (“Item”, 工作表序号).读对象型属性 (“Range”, 单元格区域)

.如果真 (第几列被筛选 ＝ 0)
    第几列被筛选 ＝ 1
.如果真结束

.如果 (是否为空 (筛选的文本))
    Range.对象型方法 (“AutoFilter”, )
.否则
    .如果 (是否为空 (筛选的文本2))
        Range.对象型方法 (“AutoFilter”, 第几列被筛选, 筛选的文本)
    .否则
        Range.对象型方法 (“AutoFilter”, 第几列被筛选, 筛选的文本, 与文本2是和还是或, 筛选的文本2)
    .如果结束

.如果结束


.子程序 置筛选高级筛选, , 公开
.参数 单元格区域, 文本型
.参数 被粘贴到的区域, 文本型, 可空, 如果是新位置，那么新位置在哪
.参数 工作表序号, 整数型, 可空, 不填就是当前表
.参数 高级筛选结果是放在原位置还是新位置, 整数型, 可空, 原位置是1，新位置是2，默认新位置
.参数 高级筛选条件区域, 文本型, 可空, 请注意高级筛选条件区域的用法，如行为序号 1 2 1 2 1    筛选出1，那么条件区域为 序号 1。如果想要筛选出不重复的选项，这里可以填空
.参数 筛选结果是否重复, 文本型, 可空, 即同样的结果只显示一次还是所有的都显示，需要重复就填重复，不填或者其他都是不重复
.局部变量 Range, 对象

' EXCEL.读对象型属性 (“Worksheets”, ).读对象型属性 (“Item”, 1).读对象型属性 (“Range”, “A1:A10”).查看 ()
.如果真 (是否为空 (工作表序号))
    工作表序号 ＝ 取当前活动工作表索引 ()
.如果真结束

.如果真 (是否为空 (高级筛选结果是放在原位置还是新位置))
    高级筛选结果是放在原位置还是新位置 ＝ 2

.如果真结束
' EXCEL.读属性 (“Range”, 开始查找单元格, )
.如果 (是否为空 (筛选结果是否重复) ＝ 真)
    筛选结果是否重复 ＝ “True”
.否则
    .如果 (筛选结果是否重复 ＝ “重复”)
        筛选结果是否重复 ＝ “False”
    .否则
        筛选结果是否重复 ＝ “True”
    .如果结束

.如果结束

Range ＝ EXCEL.读对象型属性 (“Worksheets”, ).读对象型属性 (“Item”, 工作表序号).读对象型属性 (“Range”, 单元格区域)
.判断开始 (是否为空 (高级筛选条件区域) ＝ 真)
    Range.通用方法 (“AdvancedFilter”, 高级筛选结果是放在原位置还是新位置, , EXCEL.读属性 (“Range”, 被粘贴到的区域, ), 筛选结果是否重复)
.默认
    Range.通用方法 (“AdvancedFilter”, 高级筛选结果是放在原位置还是新位置, EXCEL.读属性 (“Range”, 高级筛选条件区域, ), EXCEL.读属性 (“Range”, 被粘贴到的区域, ), 筛选结果是否重复)