excel模块，页面设置、置排序，调整普通字段到行列

.子程序 置单元格排序, , 公开, 还需要继续修改
.参数 工作表序号, 整数型
.参数 单元格区域, 文本型, , 选择要排序的区域，如"A1:A10"
.参数 格式, 整数型, 可空, 默认为0，A:B的格式，1为A1：B10的格式
.参数 排序方式, 整数型, 可空, 0为升序，1为降序，默认为0
.局部变量 局_1, 对象
.局部变量 局_2, 整数型
.局部变量 局_3, 文本型
.局部变量 局_4, 文本型
.局部变量 局_5, 整数型
.局部变量 局_6, 整数型
.局部变量 局_7, 文本型

局_1 ＝ EXCEL.读对象型属性 (“Worksheets”, ).读对象型属性 (“Item”, 工作表序号).读对象型属性 (“Sort”, )
局_1.读对象型属性 (“SortFields”, ).对象型方法 (“Clear”, )
.如果 (格式 ＝ 0)
局_2 ＝ 寻找文本 (单元格区域, “:”, , 真)
局_3 ＝ 取文本左边 (单元格区域, 局_2 － 1)
局_4 ＝ 取文本中间 (单元格区域, 局_2 ＋ 1, 10)
.如果真 (局_3 ＝ 局_4)
局_1.读对象型属性 (“SortFields”, ).对象型方法 (“Add”, EXCEL.读对象型属性 (“Range”, 单元格区域), , 排序方式 ＋ 1)
局_1.对象型方法 (“SetRange”, EXCEL.读对象型属性 (“Range”, 单元格区域))
局_1.对象型方法 (“Header”, 0)
局_1.对象型方法 (“Orientation”, 1)
局_1.对象型方法 (“SortMethod”, 1)
局_1.对象型方法 (“Apply”, )
.如果真结束
局_5 ＝ 取代码 (“E”, 1) － 取代码 (“A”, 1) ＋ 1
局_5 ＝ 取代码 (到大写 (局_4), 1 － 取代码 (到大写 (局_3), 1) ＋ 1)
.计次循环首 (局_5, 局_6)
局_7 ＝ 字符 (取代码 (到大写 (局_3), 1) ＋ 局_6 － 1)
局_1.读对象型属性 (“SortFields”, ).对象型方法 (“Add”, EXCEL.读对象型属性 (“Range”, 局_7 ＋ “:” ＋ 局_7), , 排序方式 ＋ 1)
.计次循环尾 ()
易语言excel模块，页面设置、置排序，调整普通字段到行列例子。