读Excel行列数，判断你的电脑中是否安装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.内容 ＝ 到文本 (列数)