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

Хорошо, я пробовал так много вещей - я пытаюсь нарисовать кучу полей в visio с текстом в них из документа Excel и когда я делаю рабочие листы («Лист1»).Диапазон не подходит как опция, и я выкидываю ошибку. 91 Пожалуйста, помогите, я в растерянности

Answer 1

WB - это Workbook ссылка на объект.

WB = Workbooks.Open(FilePath)

Вы не можете назначить ссылку на объект, подобную этой.

Set WB = Workbooks.Open(FilePath)

Это должно исправить это.