индекс строки массива вне диапазона

Question

Я создаю макрос, который будет выбирать листы из большой книги, перемещать и сохранять эти листы в качестве новой книги, а затем переходить на следующий набор.

Я создал псевдо-массив с начальным и конечным значениями (обозначенными номерами индексов листа).

Я столкнулся с ошибкой «Подзаголовок вне диапазона» после завершения раздела, который сохраняет файл, но перед циклом, который вытащил следующий набор рабочих листов.

Ниже приведен мой код. Любая помощь с этой ошибкой будет оценена по достоинству.

Dim Start As Integer 
Dim Finish As Integer 
Dim SR As Integer 
Dim SC As Integer 
Dim ER As Integer 
Dim EC As Integer 
SR = 2 
SC = 5 
ER = 2 
EC = 6 
Start = Sheets("REF").Cells(SR, SC).Value 
Finish = Sheets("REF").Cells(ER, EC).Value 
Dim sheetArray() As Double 
Dim i As Integer 
Dim c As Integer 
i = 0 
c = Start 
lastrow = Cells(100, SC).End(xlUp).Row 

Do Until SR = lastrow 

    Do Until c > Finish 
     ReDim Preserve sheetarray (0 to i) 
     i = i + 1 
     c = c + 1 
    Loop 

    Sheets(sheetarray).Copy 
    ActiveWorkbook.SaveAs Filename:= _ XXXXXXXXXXXXXXXXXX 

    C = Start 
    i = 0 
    SR = SR + 1 
    ER = ER + 1 
Loop 

EDIT: 16:35 Центральный США

В настоящее время соответствующий блок кода соответствует тому, что находится выше, через линию lastrow = Cells(100, SC).End(xlUp).Row

не делать до SR = lastrow

ReDim sheetArray(i) 

Do Until c > Finish 
    ReDim Preserve sheetArray(i) 
    sheetArray(i) = c 
    i = i + 1 
    c = c + 1 

Loop 



Sheets(sheetArray).Copy 
ActiveWorkbook.SaveAs Filename:= _ 
    XXXXXXXXXXXXX 

c = Start 
i = 0 
SR = SR + 1 
ER = ER + 1 

Loop

Answer 1

Вам понадобятся три вещи :

1. ReDim массив перед загрузкой каждого индекса листа, потому что, как вы есть сейчас это будет просто держать здание на каждом цикле и, таким образом, вы получите ошибку, начиная со второй петли Subscript out of range - потому что массив имеет в основном , в качестве примера, 1 3 5 от первого, а затем 1 3 5 3 7, с 1 3 5 сначала с 3 7 со второго.
2. Чтобы установить значение массива каждый раз. Вы устанавливаете только элементы массива
3. Квалифицируйте книгу, чтобы скопировать листы, потому что каждый раз, когда вы копируете листы, она устанавливает активную книгу в недавно скопированную книгу.

Создайте свой Do Loop блок, как это:

Do Until SR = lastrow 

    ReDim sheetArray(0) 'or you can put i here since you set it to zero at the bottom 

    Do Until c > Finish 

     ReDim Preserve sheetArray(i) 
     sheetArray(i) = c 

     i = i + 1 
     c = c + 1 

    Loop 

    Workbooks("myWkb").Sheets(sheetArray).Copy 'where myWkb is the workbook name you need ... you can also use ThisWorkbook (meaning the workbook where the code is running) but this is not best practice 
    ActiveWorkbook.SaveAs Filename:="XXXXXXXXXXXXXXXXXX" 

    c = Start 
    i = 0 
    SR = SR + 1 
    ER = ER + 1 

Loop 

Answer 2

Как я мог видеть это, проблема в том, что вы просто регулировать размер вашего sheetArray, но вы ничего не положить внутрь. Таким образом, значения внутри массива - это все нули. Затем вы просите Excel скопировать листы (0), который находится вне диапазона, потому что номера листов начинаются с 1.

Вы можете это исправить, написав в массиве индексы листов вы хотите скопировать:

Do Until c > Finish 
    ReDim Preserve sheetarray (0 to i) 
    sheetarray(i) = c ' <~~~~ or something else, according to your goal 
    i = i + 1 
    c = c + 1 
Loop 

ps: Лучше сделать sheetArray массив Integer (не Double), поскольку его элементы являются индексами листов ... Однако даже с удвоениями он должен работать, если содержимое массива установлено правильно.