获取错误"对象变量或未设置块变量"

Question

我已经创建了一个Excel的加载项,其确定的名称ActiveSheet和 ActiveWorkbook.我使用的代码如下.当我运行加载项时,它会在消息框"变量设置"后显示上述错误.但是当我在宏中运行它时工作正常.我不明白加载项发生了什么.任何人都可以帮我这个吗？

Sub sheetvalues()
    Dim bk As Workbook, sht1 As Worksheet, sht2 As Worksheet, sht3 As Worksheet
    Dim book As String, sht As String, i As Integer, j As Integer
    Dim att(1 To 4) As String, att_col(1 To 4) As Integer

    MsgBox ("variables set")

    book = ActiveWorkbook.Name
    sht = ActiveSheet.Name
    MsgBox ("names set")

    Set bk = Workbooks.Add
    With bk
        .Title = "MissingValues"
        .SaveAs Filename:="MissingValues.xls"
    End With

    Set sht1 = bk.Sheets.Add
    sht1.Name = "EndOne"
    Set sht2 = bk.Sheets.Add
    sht2.Name = "EndTwo"
    Set sht3 = bk.Sheets.Add
    sht3.Name = "EndThree"

    MsgBox (book & "  " & sht)
    MsgBox ("completed")
End Sub

Answer 1

导致此问题的常见问题是忘记使用"Set"为变量赋值.