精易论坛

标题: 关于office对象，大师帮 [打印本页]

作者: 陈先生的 时间: 2024-1-12 21:18
标题: 关于office对象，大师帮
.版本 2

.判断开始 (程序对象.创建 (“ket.application”, ) ＝假)  ' 打开wps
信息框 (“启动wps失败”, 64, , )
.默认
程序对象.写属性 (“Visible”, 假)  ' 是否可视
程序对象.读对象型属性 (“Workbooks”, ).方法 (“OPEN”, “D:\模号明细表\1.xls”)  ' 打开工作簿
工作表数量＝程序对象.读对象型属性 (“Worksheets”, ).读数值属性 (“Count”, )  ' 取工作表数量
.计次循环首 (工作表数量, i)
      工作表名称＝程序对象.读对象型属性 (“Worksheets”, ).读对象型属性 (“Item”, i).读文本属性 (“name”, )  ' 取工作表名称
      组合框1.加入项目 (工作表名称, )
.计次循环尾 ()

像这个用的WPS依赖的    想改成office的怎么改阿。电脑没有wps就不能用

作者: cmaks 时间: 2024-1-12 21:26
第一行代码；wps是“ket.application”； Excel 是 “Excel.application”

.判断开始 (程序对象.创建 (“Excel.application”, ) ＝假) ' 打开wps

作者: 寻找星空 时间: 2024-1-12 21:31
不要这么做。不通用这个方法

作者: 陈先生的 时间: 2024-1-12 21:42

cmaks 发表于 2024-1-12 21:26
第一行代码；wps是“ket.application”； Excel 是 “Excel.application”

.判断开始 (程序对象.创建 (“E ...

这个试过了，不行

作者: cmaks 时间: 2024-1-12 21:46

作者: cmaks 时间: 2024-1-12 21:47
程序对象.写属性 (“Visible”, 真) ' 是否可视

作者: 陈先生的 时间: 2024-1-12 23:00

寻找星空发表于 2024-1-12 21:31
不要这么做。不通用这个方法

有方法吗？？？大哥

欢迎光临精易论坛 (https://125.confly.eu.org/)