Вместительность Array

[sasha_prof]

Сколько может в себе местить Array???

Мне нужно с одной книги запомнить все ИНН, открыть другую книгу и найти всю инфо по этим ИНН... Просто с Array быстрее чем после каждого ИНН активировать книги.

Может есть какието соображения???

[The_Prist]

Есть соображение, что активировать книги не надо. Обращайтесь к ним напрямую без активации:

Set rFndRng = Workbooks("Книга1.xls").Sheets("Лист1").Range("A:A").Find(Cells(li,1),,xlValues,xlWhole)

Cells(li,1) - участвует в цикле перебора ячеек активной книги, для поиска и в неактивной "Книга1.xls".

[sasha_prof]

Сообщение от The_Prist

Есть соображение, что активировать книги не надо. Обращайтесь к ним напрямую без активации:

Set rFndRng = Workbooks("Книга1.xls").Sheets("Лист1").Range("A:A").Find(Cells(li,1),,xlValues,xlWhole)

Cells(li,1) - участвует в цикле перебора ячеек активной книги, для поиска и в неактивной "Книга1.xls".

А на сколько это будет эфективней???

Не понимаю вот эту часть

,,xlValues,xlWhole)

[sasha_prof]

Есть Книга1 и Книга2.

Нужно с Книга2 в Книга1 подтянуть инфо по совпадающему номеру.

Книга1 и Книга2 тестовые, такак как боевые местят до 20мб обьема.

Как это лучше автоматизировать???

[SAS888]

Я бы создал массив из значений столбцов "A" и "B" книги "Книга2.xls", затем организовал цикл поиска по 1-му столбцу книги "Книга1.xls" для каждого элемента 1-й размерности массива. В случае совпадения - вставка в столбец "B" найденной строки элемента второй размерности.

[sasha_prof]

Сообщение от SAS888

Я бы создал массив из значений столбцов "A" и "B" книги "Книга2.xls", затем организовал цикл поиска по 1-му столбцу книги "Книга1.xls" для каждого элемента 1-й размерности массива. В случае совпадения - вставка в столбец "B" найденной строки элемента второй размерности.

Массив же не безграничен???

"Книга2.xls" может местить более 10тыс строк которые нужно запомнить.
А в Array это не поместится((((

[SAS888]

А в Array это не поместится

Вы уверены? Попробуйте. Думаю, что у Вас все получится.

[sasha_prof]

Сообщение от SAS888

Вы уверены? Попробуйте. Думаю, что у Вас все получится.

Вот таким образом влазит около 500

sss = Array(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)

Может есть возможность обьявить от и до????

[sasha_prof]

Помогите плиз.
Не могу вот так присвоить:

ostzapov = Worksheets("База").Cells(Rows.Count , 45).End(xlUp).Row
Dim ZeroArray(2 To ostzapov)

[EducatedFool]

А в Array это не поместится(((

Странно, но мой эксель понимает сколь угодно большие массивы...

Sub test()
    arr = Cells.Value
    MsgBox "Размеры массива: " & UBound(arr, 1) & " на " & UBound(arr, 2)
End Sub

Не могу вот так присвоить:

А если так попробовать:

Sub test()
    With Worksheets("База")
        ZeroArray = .Range(.[a2], .Cells(.Rows.Count, 45).End(xlUp))
    End With
    MsgBox "Размеры массива: " & UBound(ZeroArray, 1) & " на " & UBound(ZeroArray, 2)
End Sub