VBA缺少工作表范围作为值，并连续获取未设置的对象变量(错误91)

Question

Public Sub InputData(var)
Dim WB As Workbook
Dim FilePath As String
FilePath = "C:UsersJordan.JenningsDesktopPrograms{}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

好的，我已经尝试了很多事情 - 我正在尝试做的是在 visio 中绘制一堆框，其中包含来自 excel 文档的文本以及当我做工作表("Sheet1"(时。范围 .范围不是一个选项，我抛出错误 91 请帮忙，我在这里不知所措

Answer 1

WB是一个Workbook对象引用。

WB = Workbooks.Open(FilePath)

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

Set WB = Workbooks.Open(FilePath)

这应该可以解决它。