VBNet - Форум - информация из других книг EX 2

Вопрос: информация из других книг 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 |