精易论坛

标题: vbs 中 Getobject 和 CreateObject 在易语言是怎么写 [打印本页]

---

作者: 不可胜言    时间: 2021-7-18 00:28
标题: vbs 中 Getobject 和 CreateObject 在易语言是怎么写
那请问题 关于 set xlApp = GetObject(, "Excel.Application") 在易语言里面是怎么写的
那请问题 关于 set xlApp = GetObject(, "Excel.Application") 在易语言里面是怎么写的




vbs 使用 Getobject 和 CreateObject一, set xlApp = GetObject(, "Excel.Application")二, set xlApp = CreateObject("Excel.Application")

我的理解是,如果程序打开了,那么直接可以引用程序GetObject,

如果excel程序没有打开的话,就直接打开,这个时候需要用CreateObject函数.

1. Sub Macro1()
   
2.     Dim MyExcel
   
3.     On Error Resume Next
   
4.     Set MyExcel = GetObject(, "Excel.Application")
   
5.     If Not MyExcel Is Nothing Then
   
6. '        MyExcel.Visible = True
   
7.         MsgBox "Excel已经打开"
   
8.     Else
   
9.         If MsgBox("Excel没有打开，是否开启？", vbYesNo) = vbYes Then
   
10.             Set MyExcel = CreateObject("Excel.Application")
    
11.             MyExcel.Visible = True
    
12.         End If
    
13.     End If
    
14. End Sub

复制代码

关于 set xlApp = CreateObject("Excel.Application")
易语言是这样的

  

子程序名	返回值类型	公开	备 注
创建Excel

变量名	类 型	静态	数组	备 注
xlApp	对象

xlApp.创建 (“Excel.Application”, )

.版本 2<br /> <br /> .子程序 创建Excel<br /> .局部变量 xlApp, 对象<br /> <br /> xlApp.创建 (“Excel.Application”, )

那请问题 关于 set xlApp = GetObject(, "Excel.Application") 在易语言里面是怎么写的
那请问题 关于 set xlApp = GetObject(, "Excel.Application") 在易语言里面是怎么写的

---

作者: 神女软件定制    时间: 2021-7-18 00:57
对象.获取 ()

---

作者: spec1122    时间: 2023-5-1 23:20
解决了吗?

---

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

Powered by Discuz! X3.4