EXCEL模块二次开源直接调试窗口1测试

为了能自动找到合适位置，需要计算总行高和总列宽，于是又加了2个求总行高和求总列宽的方法。

其他就是原模块里面置数字到列名的方法限制太大，采用了新的计算方法置数字转列名可以，还有几个方法就是根据所在单元格判断是第几行第几列。

.子程序 置工作表改名, , 公开
.参数 名字, 文本型
.局部变量 excel表格集对象, 对象
.局部变量 当前工作表, 文本型

excel表格集对象 ＝ EXCEL.读对象型属性 (“Sheets”, ) ' ? Excel支持库的取表格集对象，获取Excel提供的Worksheets对象。
' excel表格集对象.查看 ()
' excel对象.读对象型属性 (“ActiveSheet”, ).查看 ()
EXCEL.读对象型属性 (“ActiveSheet”, ).写属性 (“Name”, 名字) ' 工作表改名
' 当前工作表 ＝ excel对象.读对象型属性 (“ActiveSheet”, ).读文本属性 (“Name”, ) ' 取工作表名

.子程序 置页面设置_页面, , 公开, 页面设置选项卡
.参数 打印方向, 整数型, 可空, 1竖向，2横向
.参数 缩放比例, 整数型, 可空, 100%正常尺寸
.参数 调整为几页宽, 整数型, 可空
.参数 调整为几页高, 整数型, 可空, 如果想调整为空或0，输入0是无效的，直接输入一个很大的数字
.参数 纸张大小, 整数型, 可空, 为 9 时纸张类型为"A4纸"；为 8 时纸张类型为"A3纸"，可以使用常量中的，#ym_纸张_A4
.参数 起始页码, 整数型, 可空
.参数 工作表索引, 整数型, 可空
.局部变量 PageSetup, 对象

.如果真 (是否为空 (工作表索引))
工作表索引 ＝ 取当前活动工作表索引 ()
.如果真结束
选中工作表 (工作表索引)
PageSetup ＝ EXCEL.读对象型属性 (“ActiveSheet”, ).读对象型属性 (“PageSetup”, )
' EXCEL.读对象型属性 (“ActiveSheet”, ).读对象型属性 (“PageSetup”, ).查看 ()