| Вопрос: информация из других книг EX 2 | Добавлено: 13.04.05 00:00 |
Автор вопроса:  Poli
|
|
Это снова я =)Так я грамотно и работающе не сделала. Помогите, пожалуйста. Мне нужно собрать информацию по разным книгам из определенной ячейки и её сложить. Нужна итоговая сумма. Пытаюсь сделать рекурсией.
Sub Schet(ByVal ipart As Integer, m) Dim temp, temp2 As String temp = Worksheets("A").TextBox1.Text & Worksheets("A").ComboBox1.Text temp2 = Mid(temp, InStr(1, temp, "200", vbTextCompare) + 8, 7) Worksheets("bd").Activate For m = 1 To 10 m = m + 1 ipart = ExecuteExcel4Macro("'" & temp & "\[MIS." & Cells(m, 1).Value & "." & temp2 & ".xls]Teller1'!R1C1") Schet ipart, m Next m End Sub Во-первых, выдается ошибка вида #REF на значение ipart уже после первой книги....во-вторых, а вообще так можно? |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  ActiveX Вопросов: 0 Ответов: 73 |
Профиль | | #1 | Добавлено: 14.04.05 01:03 |
|
Хм … я бы даже сказал, что Вам повезло, что Ваш код вызывает ошибку, так как в противном случае Вы бы получили вечный двигатель, perpetuum mobile так сказать. Вдобавок Вы не можете получить итоговую сумму так как в Вашем случае m = 2 (всегда) Но даже если бы цикл работал как надо, то Вы забыли ещё одну важную вещь : summa = summa + ipart
Если хотите, то можете прислать мне рабочий лист, который служит источником данных для извлечения данных из других рабочих книг. vba@nxt.ru |
||
Страница: 1 |