使用Getobject打开Excel文件时，提示 类型不匹配 ？（在线等）

为什么写Set xlApp = GetObject("e:\book3.XLS") 提示 类型不匹配 ？
--------------------编程问答-------------------- Private Sub Command1_Click()
    Dim xlApp As Object
    Set xlApp = GetObject("d:\1.XLS")
    
    If Not xlApp Is Nothing Then MsgBox "成功"
End Sub

我测试可以打开啊 --------------------编程问答-------------------- 应该是可以打开的，但是我确实是遇到了这种情况，可能是什么原因呢？ --------------------编程问答-------------------- 为什么不直接引用excel的对象呢！

补充：VB ,  数据库(包含打印，安装，报表)