Excel VBA - заполните ActiveX Combobox динамическим диапазоном из другой книги

Question

Я пытаюсь заполнить ActiveX Combobox динамическим диапазоном из другой книги, но я получаю ошибку времени выполнения «1004» Ошибка приложения или объекта в строке кода, присваивающей диапазон:

Dim prfile1 As String
Dim prfile2 As String
Dim filepath As String
Dim checktotal As Integer
Dim checkrng As Range
Dim emunber As String

prfile1 = Worksheets("setup").Range("B10").Value
prfile2 = Worksheets("setup").Range("B7").Value
filepath = Worksheets("setup").Range("e10").Value
emunber = Worksheets("ReprintOld").Range("V3").Value

Workbooks.Open filepath & prfile2
Windows(prfile2).Activate

checktotal = Workbooks(prfile2).Worksheets(emunber).Range("AE1")
checkrng = Workbooks(prfile2).Worksheets(emunber).Range(Range("U5"), Range("U5").End(xlDown))

Answer 1

Вам необходимо квалифицировать все ваши Range объекты.

checktotal = Workbooks(prfile2).Worksheets(emunber).Range("AE1")

With Workbooks(prfile2).Worksheets(emunber)

    Set checkrng = .Range(.Range("U5"), .Range("U5").End(xlDown))

end with