读Excel行列数

sueer80

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮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支持库列表	支持库注释
eExcel2000	EXCEL2000支持库

.版本 2<br /> .支持库 eExcel2000<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 读入的字节集, 字节集<br /> <br /> 通用对话框1.类型 ＝ 0<br /> .如果真 (通用对话框1.打开 ())<br />     编辑框1.内容 ＝ 通用对话框1.文件名<br /> .如果真结束<br /> <br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 excel文件路劲, 文本型<br /> .局部变量 工作簿对象, 对象<br /> .局部变量 数据范围, 对象<br /> .局部变量 行对象, 对象<br /> .局部变量 列对象, 对象<br /> .局部变量 行数, 整数型<br /> .局部变量 列数, 整数型<br /> <br /> .如果真 (Excel程序1.创建 () ＝ 假)<br />     信息框 (“你的计算机上没有安装EXCEL程序”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> 按钮2.禁止 ＝ 真<br /> Excel程序1.显示 ＝ 假<br /> excel文件路劲 ＝ 编辑框1.内容<br /> Excel程序1.创建 ()<br /> Excel工作簿1.置程序 (Excel程序1)<br /> ' Excel工作簿1.激活工作簿 ()<br /> Excel工作簿1.打开 (excel文件路劲)<br /> Excel工作簿1.表格序号 ＝ 1<br /> 工作簿对象 ＝ Excel工作簿1.取表格对象 ()<br /> 数据范围 ＝ 工作簿对象.读对象型属性 (“UsedRange”, )<br /> 行对象 ＝ 数据范围.读对象型属性 (“Rows”, )<br /> 行数 ＝ 行对象.读数值属性 (“Count”, )<br /> 列对象 ＝ 数据范围.读对象型属性 (“Columns”, )<br /> 列数 ＝ 列对象.读数值属性 (“Count”, )<br /> ' 调试输出 (“行数：” ＋ 到文本 (行数))<br /> ' 调试输出 (“列数：” ＋ 到文本 (列数))<br /> 编辑框2.内容 ＝ 到文本 (行数)<br /> 编辑框3.内容 ＝ 到文本 (列数)<br /> Excel工作簿1.关闭 ()<br /> Excel工作簿1.释放 ()<br /> Excel程序1.释放 ()<br /> Excel程序1.退出 ()<br /> 按钮2.禁止 ＝ 假

wangshiyuan

开源精神必须支持~

tw1

下载来学习一下。

碎石

亿万

开源精神必须支持~

又菜雞又爱玩

学习一下

就是你了

学习一下

pipicool

学习一下

杨明煜

感谢分享................

crossdiy

学习一下