Excel常用命令对象调用 升级版。。。

又菜雞又爱玩

我来试试

花间一壶酒

4888862 发表于 2023-6-15 15:06
老大  运行后 如果自己双击打开表格 是不显示的  必须关闭软件才会在wps显示 ...

创建程序对象WPS就启动了   如果你想手动启动的话  很简单  把创建对象 改成 获取对象就行了   

4888862

老大  运行后 如果自己双击打开表格 是不显示的  必须关闭软件才会在wps显示

花间一壶酒

4888862 发表于 2023-6-2 18:26
老大  读取只能挨个单元格读取吗   怎么直接一行 一行的读取呀    选择 第一行 会把列 全部读取出来  几次 ...

可以直接区域读  只是区域读返回的是变体型  得自己分割

4888862

老大  读取只能挨个单元格读取吗   怎么直接一行 一行的读取呀    选择 第一行 会把列 全部读取出来  几次循环 挨个读    有点麻烦

花间一壶酒

4888862 发表于 2023-6-1 20:33
希望增加个单元格文本对齐方式

  

子程序名	返回值类型	公开	备 注
单元格_置对齐方式
参数名	类 型	参考	可空	数组	备 注
工作表索引	整数型
区域	文本型
对齐方式	整数型				‘1=居中  2=靠左  3=靠右  4=两端对齐  5=分散对齐

变量名	类 型	静态	数组	备 注
对齐	整数型

判断 (对齐方式 ＝ 1)
对齐 ＝ -4108
判断 (对齐方式 ＝ 2)
对齐 ＝ -4131
判断 (对齐方式 ＝ 3)
对齐 ＝ -4152
判断 (对齐方式 ＝ 4)
对齐 ＝ -4130
判断 (对齐方式 ＝ 5)
对齐 ＝ -4117


全_表格集.读对象型属性 (“Item”, 工作表索引).读对象型属性 (“Cells”, ).读对象型属性 (“RANGE”, 区域).写属性 (“HorizontalAlignment”, 对齐)

子程序名	返回值类型	公开	备 注
单元格_取对齐方式	文本型
参数名	类 型	参考	可空	数组	备 注
工作表索引	整数型
区域	文本型

变量名	类 型	静态	数组	备 注
对齐	整数型

对齐 ＝ 全_表格集.读对象型属性 (“Item”, 工作表索引).读对象型属性 (“Cells”, ).读对象型属性 (“RANGE”, 区域).读数值属性 (“HorizontalAlignment”, )
判断 (对齐 ＝ -4108)
返回 (“水平居中”)
判断 (对齐 ＝ -4131)
返回 (“靠左对齐”)
判断 (对齐 ＝ -4152)
返回 (“靠右对齐”)
判断 (对齐 ＝ -4130)
返回 (“两端对齐”)
判断 (对齐 ＝ -4117)
返回 (“分散对齐”)
返回 (“未设置对齐”)

.版本 2<br /> <br /> .子程序 单元格_置对齐方式<br /> .参数 工作表索引, 整数型<br /> .参数 区域, 文本型<br /> .参数 对齐方式, 整数型, , ‘1=居中  2=靠左  3=靠右  4=两端对齐  5=分散对齐<br /> .局部变量 对齐, 整数型<br /> <br /> .判断开始 (对齐方式 ＝ 1)<br />     对齐 ＝ -4108<br /> .判断 (对齐方式 ＝ 2)<br />     对齐 ＝ -4131<br /> .判断 (对齐方式 ＝ 3)<br />     对齐 ＝ -4152<br /> .判断 (对齐方式 ＝ 4)<br />     对齐 ＝ -4130<br /> .判断 (对齐方式 ＝ 5)<br />     对齐 ＝ -4117<br /> .默认<br /> <br /> .判断结束<br /> 全_表格集.读对象型属性 (“Item”, 工作表索引).读对象型属性 (“Cells”, ).读对象型属性 (“RANGE”, 区域).写属性 (“HorizontalAlignment”, 对齐)<br /> <br /> .子程序 单元格_取对齐方式, 文本型<br /> .参数 工作表索引, 整数型<br /> .参数 区域, 文本型<br /> .局部变量 对齐, 整数型<br /> <br /> 对齐 ＝ 全_表格集.读对象型属性 (“Item”, 工作表索引).读对象型属性 (“Cells”, ).读对象型属性 (“RANGE”, 区域).读数值属性 (“HorizontalAlignment”, )<br /> .判断开始 (对齐 ＝ -4108)<br />     返回 (“水平居中”)<br /> .判断 (对齐 ＝ -4131)<br />     返回 (“靠左对齐”)<br /> .判断 (对齐 ＝ -4152)<br />     返回 (“靠右对齐”)<br /> .判断 (对齐 ＝ -4130)<br />     返回 (“两端对齐”)<br /> .判断 (对齐 ＝ -4117)<br />     返回 (“分散对齐”)<br /> .默认<br />     返回 (“未设置对齐”)<br /> .判断结束

4888862

希望增加个单元格文本对齐方式

By未命名

赤璃琴殇 发表于 2023-5-26 00:01
.版本 2

.子程序 Excel_另存为

哈感谢大佬，看不懂这个对象，也不解，菜鸟来的，见谅

花间一壶酒

By未命名 发表于 2023-5-25 15:19
大佬，是不是不支持另存为呢

  

子程序名	返回值类型	公开	备 注
Excel_另存为
参数名	类 型	参考	可空	数组	备 注
路径	文本型

全_工作簿.方法 (“SaveAs”, 路径)

.版本 2<br /> <br /> .子程序 Excel_另存为<br /> .参数 路径, 文本型<br /> <br /> 全_工作簿.方法 (“SaveAs”, 路径)

另存为无非是换个方法  填个路径参数

By未命名

大佬，是不是不支持另存为呢