运行时错误91 excel vba，未设置对象

Question

以下代码有什么问题？，每次运行时，我都会收到“运行时错误91，对象变量或未设置黑色变量”

Private Sub Document_Open()

Dim workBook As workBook
Application.ScreenUpdating = True
Set workBook = Workbooks.Open("Z:\Credit_Check_DB.xls", True, True)
txtCompany1.Value = workBook.Worksheets("Sheet2").Range("A1").Formula
txtCompany2.Value = workBook.Worksheets("Sheet2").Range("A1").Formula
txtCityState1.Value = workBook.Worksheets("Sheet2").Range("C1").Formula
txtCityState2.Value = workBook.Worksheets("Sheet2").Range("C1").Formula
txtDate1.Value = workBook.Worksheets("Sheet2").Range("F1").Value
txtAddress1.Value = workBook.Worksheets("Sheet2").Range("B1").Formula
txtZip1.Value = workBook.Worksheets("Sheet2").Range("D1").Formula
txtPO.Value = "Purchase Order#:    " & workBook.Worksheets("Sheet2").Range("I1").Formula
txtRec.Value = workBook.Worksheets("Sheet2").Range("K1").Formula
workBook.Close False
Set workBook = Nothing
Application.ScreenUpdating = True
Close_Excel
End Sub

---

Private Sub Close_Excel() 'closes excel application.

Dim Excel As Excel.Application
Dim ExcelOpened As Boolean

ExcelOpened = False
On Error Resume Next
Set Excel = GetObject(, "Excel.Application")
If Excel Is Nothing Then
    Set Excel = New Excel.Application
    ExcelOpened = True
End If
On Error GoTo 0

With Excel
    If ExcelOpened Then
        .Visible = True
        .Workbooks.Add
    End If
    .ActiveWorkbook.Close False  ***<-***!!!!!Debugger points to here!!!!!******
    .Quit
End With

End Sub

知道我的代码有什么问题吗？ 我基本上是将信息从Excel转换成单词。

Answer 1

也许Excel没有指向任何Excel应用程序（出了点问题，但是您跳过了该错误），所以ActiveWorkbook指向没有任何内容。 您应该在GetObject之后立即将On Error GoTo 0设置为On Error GoTo 0 。