Вопрос по excel, vba – Диапазон VBA от String

12

Это немного глупо, но я застрял на некоторое время в этом простом утверждении:

    Dim range1 as Range
    Dim mysheet as String
    Dim myrange as String

    mysheet = "Sheet1"
    range = "A1:A10"

range1 = Worksheets(mysheet).Range(myrange)

Я тестирую все решения, которые я нашел в Интернете, например,этот, этот а такжеэтот, но ничего.

Все время он выдает мне ошибки: 1004 "Ошибка, определенная приложением" или "объектная переменная или не установлена".

Я пробовал следующее:

range1 = ThisWorkbook.Worksheets(mysheet).Range(myrange)

range1 = ActiveWorkbook.Worksheets(mysheet).Range(myrange)

range1 = Sheets(mysheet).Range(myrange) (and the combinations above)

range1 = Worksheets(mysheet).Range(Cells(1,1), Cells(1,10)) (and the combinations with This/Active workbook)

а также

with This/ActiveWorkbook
range1 = .Worksheets(mysheet).Range(myrange)
end with

Никто не работал.

Это действительно глупая вещь, но я застрял на некоторое время: s

Может кто-нибудь мне помочь?

Действительно спасибо заранее.

С наилучшими пожеланиями,

Ваш Ответ

1   ответ
27

Set range1 = Worksheets(mysheet).Range(myrange)
Действительно спасибо ... Я знал, что это было действительно просто, но я был слепым. Christian Vielma
+1 Хороший :-)

Похожие вопросы