Ошибка вне диапазона

Question

Я пытаюсь активировать многочисленные вкладки, например, у меня есть вкладка с именем «95004700». Я ссылаюсь на эти коды в списке, затем пытаюсь активировать соответствующую вкладку (я установил их = в переменную STRcode). По какой-то причине я постоянно получаю ошибку вне диапазона на «листах» (STRcode). Активировать «Может кто-нибудь объяснить мне, почему? Я чувствую, что это может иметь какое-то отношение к форматированию ячейки, на которую я ссылаюсь, или методу, с которым я установил переменную.

Sub Budget_Actual() 

Dim DBLdatarow As Double 
Dim STRcode As Long 
Dim STRname As String 
Dim cell As Range 


    DBLdatarow = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row - 1 

    'loop #1 
    Do While DBLdatarow > 5 

     STRcode = Range("D" & DBLdatarow).Value 
     STRname = Range("B" & DBLdatarow).Value 

     Workbooks.Open Filename:="File Path" 

       Worksheets(STRcode).Activate 

       Columns("B:B").Select 

       Set cell = Selection.Find(What:=STRname, After:=ActiveCell, LookIn:=xlFormulas, _ 
       LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
       MatchCase:=False, SearchFormat:=False) 


    DBLdatarow = DBLdatarow + 1 
    Loop 
    'loop #1 

End Sub 

Answer 1

Просто передать строку:

Worksheets(cstr$(STRcode)).Activate 

Как проходит целое число попыток открыть 95004700th лист (основанный на том факте, что Worksheets(1) является еще одним способом решения первого листа и Worksheets("1") адреса листе под названием"1").

Answer 2

Листы (STRcode) .Activate активирует номер рабочего листа STRcode. Хотя вы, вероятно, хотите активировать Worksheet с именем STRcode.

Excel не может обрабатывать 95004700 листов.

Вам нужно изменить STRcode из Integer в String.