我前几天不是搞了个按钮要将报表输出到excel中么,
其中有行代码是需要打开excel这个程序的,
但是总是遇到问题,
运行到这里(Set xlApp = GetObject(, "Excel.Application") )就不行了,
后来我将代码改成------Set xlApp = CreateObject("Excel.Application")------居然就运行成功了,
这让我很奇怪,到底这个GetObject和这个CreateObject到底有什么区别,
于是我在百度上查------CREATEOBJECT 和getobject的区别
查到如下代码:
分别打开和关闭Word后运行下面代码你就知道它们的区别是什么了:
Sub Macro1()
Dim MyWord As Object
On Error Resume Next
Set MyWord = GetObject(, "word.application")
If Not MyWord Is Nothing Then
' MyWord.Visible = True
MsgBox "word已经打开"
Else
If MsgBox("word没有打开,是否开启?", vbYesNo) = vbYes Then
Set MyWord = CreateObject("Word.Application")
MyWord.Visible = True
End If
End If
End Sub
我的理解是,如果程序打开了,那么直接可以引用程序GetObject,
如果excel程序没有打开的话,就直接打开,这个时候需要用CreateObject函数.