VBA缺少Worksheet.Range作为值并不断设置对象变量未设置（错误91）

Question

Public Sub InputData(var)
Dim WB As Workbook
Dim FilePath As String
FilePath = "C:\Users\Jordan.Jennings\Desktop\Programs{}\Test.xlsx"
WB = Workbooks.Open(FilePath)
ibox = 1
E = 8.5
N = 10
W = 7.5
S = 9.75
Do Until ibox = var
    Set I = ActivePage.DrawRectangle(E, N, W, S)
    I.Text = WB.Worksheets("Sheet1").Range("A1").Value
    N = N - 0.25
    S = S - 0.25
    ibox = ibox + 1
Loop
End Sub

好吧，我已经尝试了很多东西 - 我想要做的是从excel文件中绘制一堆带有文本的visio框，当我做工作表（“Sheet1”）时。范围.Range不会出现一个选项，我抛出错误91请帮助我在这里不知所措

Answer 1

WB是Workbook对象参考。

WB = Workbooks.Open(FilePath)

您不能像这样分配对象引用。

Set WB = Workbooks.Open(FilePath)

那应该解决它。