读取Excel文件内容时，打开其它Excel文件，被读取文件被打开

lili880320

我之前也碰到这种问题，后来的解决办法就是把EXCEL当成数据库，再后台用数据库和记录集然后一次性读取excel的所有内容，然后再调用记录集的内容。

Mushiyi

lili880320 发表于 2022-10-1 14:28
我之前也碰到这种问题，后来的解决办法就是把EXCEL当成数据库，再后台用数据库和记录集然后一次性读取excel ...

有源码例子发一个给我，我试试，谢谢！十分感谢！

lili880320

可以不用打开EXCEL的文件，直接读取里面的内容，不过xls的文件没有问题，如果是XLSX的文件，连接驱动器的代码要换一下，同时用的驱动器不同的用户，可能还是会有点问题，或者可以用其他大神写好的模块连接

Mushiyi

lili880320 发表于 2022-10-6 10:44
可以不用打开EXCEL的文件，直接读取里面的内容，不过xls的文件没有问题，如果是XLSX的文件，连接驱动器的代 ...

十分感谢！读取的问题这样可以解决掉，写入问题有解决的办法吗？十分感谢！

lili880320

当然可以，我找个我之前做过的你可以参考下，这里用的EXUI的组件，也可以用系统自带的原理都一样


.版本 2
.支持库 ExuiKrnln
.支持库 eExcel2000
.支持库 shell

.子程序 _按钮EX17_鼠标左键单击, 整数型, , 客户-导出
.参数 坐标x, 整数型
.参数 坐标y, 整数型
.参数 保留参数1, 整数型
.参数 保留参数2, 整数型
.局部变量 文件地址, 文本型
.局部变量 数据, 文本型
.局部变量 文本, 文本型
.局部变量 y, 整数型
.局部变量 取时间, 文本型
.局部变量 x, 整数型


进度条EX2.可视 ＝ 真
进度条EX2.最大位置 ＝ 超级列表框EX_客户资料.取项目数量 ()

Excel程序1.创建 ()
Excel工作簿1.置程序 (Excel程序1)

Excel工作簿1.表格序号 ＝ 1
Excel工作簿1.激活 ()

数据 ＝ “”
//第一个计次循环是把超列表头导出到excel
.计次循环首 (超级列表框EX_客户资料.取列数量 () － 4, y)

    文本 ＝ 字符 (96 ＋ y)  ' 这里就是设置A1,B1,C1....Z1 ，列数不能超过Z，否则会出错，
    Excel工作簿1.首单元格 ＝ 文本 ＋ 到文本 (1)
    Excel工作簿1.尾单元格 ＝ 文本 ＋ 到文本 (1)
    数据 ＝ 超级列表框EX_客户资料.取列属性 (y ＋ 1, 2) ＋ 字符 (#Tab键)  ' 超列中取表头的命令为：取列属性（列数，2） 其中2为标题的ID
    Excel工作簿1.内容 ＝ 数据
.计次循环尾 ()

处理事件 ()


.计次循环首 (超级列表框EX_客户资料.取项目数量 (), x)

    .计次循环首 (超级列表框EX_客户资料.取列数量 () － 4, y)
        文本 ＝ 字符 (96 ＋ y)
        Excel工作簿1.首单元格 ＝ 文本 ＋ 到文本 (x ＋ 1)  ' 当X=1时候，这里就是A2,B2,C2,D2
        Excel工作簿1.尾单元格 ＝ 文本 ＋ 到文本 (x ＋ 1)
        数据 ＝ 超级列表框EX_客户资料.取项目文本 (x － 1, y ＋ 1) ＋ 字符 (#Tab键)

        Excel工作簿1.内容 ＝ 数据

    .计次循环尾 ()
    数据 ＝ 数据 ＋ #换行符
    进度条EX2.位置 ＝ x
    处理事件 ()
.计次循环尾 ()
' '第二个计次循环是吧超列表内容导出到EXCEL


取时间 ＝ 取时间码 ()
Excel工作簿1.保存 (取特定目录 (3) ＋ 取时间 ＋ “客户资料.xls”)
Excel工作簿1.关闭 ()
Excel工作簿1.释放 ()
Excel程序1.退出 ()
Excel程序1.释放 ()
处理事件 ()
进度条EX2.可视 ＝ 假
执行 (, 取特定目录 (3) ＋ 取时间 ＋ “客户资料.xls”, , , )

Mushiyi

lili880320 发表于 2022-10-10 15:16
当然可以，我找个我之前做过的你可以参考下，这里用的EXUI的组件，也可以用系统自带的原理都一样

特别感谢，我试试，加载进去，谢谢！