Question

易语言 实现 获取我所选择的Excel程序打开的表格 的行数 列数

Answer 1

.版本 2
.支持库 eDB
.支持库 eGrid

.子程序 _按钮1_被单击
.局部变量 连接文本, 文本型
.局部变量 文件地址, 文本型
.局部变量 SQL语句, 文本型
.局部变量 循环次数, 整数型
.局部变量 循环计次, 整数型
.局部变量 文本变量, 文本型, , "26"
.局部变量 表项索引, 整数型
.局部变量 i, 整数型
.局部变量 k, 整数型

文件地址 ＝ 取运行目录 () ＋ “\1.xls”
.如果 (数据库连接.连接 (“Driver={Microsoft Excel Driver (*.xls)};DriverId=790;Dbq=” ＋ 文件地址 ＋ “;DefaultDir=” ＋ 文件地址 ＋ “;”) ＝ 真)
输出调试文本 (“链接成功！”)
.如果真 (记录集.置连接 (数据库连接) ＝ 假)
返回 ()
.如果真结束
SQL语句 ＝ “select * from [Sheet1$]”
记录集.打开 (SQL语句, #SQL语句)
循环次数 ＝ 记录集.记录数量
.计次循环首 (循环次数, 循环计次)
.计次循环首 (26, i)
记录集.读文本 (i － 1, 文本变量 [i])
.计次循环尾 ()
.计次循环首 (26, k)
高级表格1.置数据 (循环计次, k, 1, 文本变量 [k])
.计次循环尾 ()

循环计次 ＝ 循环计次 ＋ 1
记录集.到下一条 ()
.计次循环尾 ()
输出调试文本 (“读入并显示成功！”)
.否则
输出调试文本 (数据库连接.最后错误)
.如果结束

.子程序 __启动窗口_创建完毕
.局部变量 i, 整数型

.计次循环首 (26, i)
高级表格1.插入列 (字符 (i ＋ 64), i)
.计次循环尾 ()
.计次循环首 (1000, i)
高级表格1.插入行 (到文本 (i), i)
.计次循环尾 ()
其他的窗口大小 和行高 列高自行修改吧

Answer 2

…