精易论坛

标题: 读Excel行列数 [打印本页]

作者: sueer80    时间: 2023-6-15 01:54
标题: 读Excel行列数
  
窗口程序集名保 留  保 留备 注
窗口程序集_启动窗口   
子程序名返回值类型公开备 注
_按钮1_被单击  
变量名类 型静态数组备 注
读入的字节集字节集 
通用对话框1.类型 = 0
如果真 (通用对话框1.打开 ())
编辑框1.内容 = 通用对话框1.文件名

子程序名返回值类型公开备 注
_按钮2_被单击  
变量名类 型静态数组备 注
excel文件路劲文本型 
工作簿对象对象 
数据范围对象 
行对象对象 
列对象对象 
行数整数型 
列数整数型 
如果真 (Excel程序1.创建 ())
信息框 (“你的计算机上没有安装EXCEL程序”, 0, , )
返回 ()
按钮2.禁止 = 真
Excel程序1.显示 = 假
excel文件路劲 = 编辑框1.内容
Excel程序1.创建 ()
Excel工作簿1.置程序 (Excel程序1)
' Excel工作簿1.激活工作簿 ()
Excel工作簿1.打开 (excel文件路劲)
Excel工作簿1.表格序号 = 1
工作簿对象 = Excel工作簿1.取表格对象 ()
数据范围 = 工作簿对象.读对象型属性 (“UsedRange”, )
行对象 = 数据范围.读对象型属性 (“Rows”, )
行数 = 行对象.读数值属性 (“Count”, )
列对象 = 数据范围.读对象型属性 (“Columns”, )
列数 = 列对象.读数值属性 (“Count”, )
' 调试输出 (“行数:” + 到文本 (行数))
' 调试输出 (“列数:” + 到文本 (列数))
编辑框2.内容 = 到文本 (行数)
编辑框3.内容 = 到文本 (列数)
Excel工作簿1.关闭 ()
Excel工作簿1.释放 ()
Excel程序1.释放 ()
Excel程序1.退出 ()
按钮2.禁止 = 假


i支持库列表   支持库注释   
eExcel2000EXCEL2000支持库

读Excel表的行列数.e

6.63 KB, 下载次数: 38, 下载积分: 精币 -2 枚


作者: zhangsh123    时间: 2023-6-15 09:09
学习一下
作者: crossdiy    时间: 2023-6-15 09:19
学习一下
作者: 杨明煜    时间: 2023-6-15 09:40
感谢分享................
作者: pipicool    时间: 2023-6-15 19:01
学习一下
作者: 就是你了    时间: 2023-6-16 08:33
学习一下
作者: 又菜雞又爱玩    时间: 2023-6-17 15:26
学习一下
作者: 亿万    时间: 2023-6-17 21:21
开源精神必须支持~
作者: 碎石    时间: 2023-7-4 15:50

作者: tw1    时间: 2023-7-17 13:07
下载来学习一下。
作者: wangshiyuan    时间: 2024-11-11 11:51
开源精神必须支持~




欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4