Формулы диапазона в Эксель через VBA

[SCRIBE]

Привет всем.

Начальные условия:
1.Есть средний диапазон данных (5 тыс. строк).
2.Нужно подтянуть к этим данным информацию из другой книги.

Примечание:
В скрипте это все запускается через отдельный инстанс Экселя.
Все ускорения произведены, Visible, Alerts, Updating, Events etc.
Первая книга имеет формат .xls, другая .csv (ну т.е. при открытии она ж все равно автоматом создается)

Попытки решить:
1. В лоб, в цикле подтянуть. Как оказалось, это не шибко быстро, хотя, ВООБЩЕ не быстро.  
2. Ручная попытка показала что формулы Эксель (а именно ВПР), работает в разы быстрее, и было решено это дело автоматизировать путем создания оных через скрипт.

То, что хотелось бы видеть рабочим (попытка переделать советы stackoverflow):

Код: (Visual Basic)

Set xlApp = CreateObject("Excel.Application")
Set wbFact = xlApp.Workbooks.Open(fFact)
Set wsFact = wbFact.Worksheets(1)
Set wbClients = xlApp.Workbooks.Open(fClients)
Set wsClients = wbClients.Worksheets(1)
factMaxRow = wsFact.UsedRange.Rows.Count + wsFact.UsedRange.Row - 1
clientsMaxRow = wsClients.UsedRange.Rows.Count + wsClients.UsedRange.Row - 1
Set clRngA = wsClients.Range(wsClients.Cells(2, 1), wsClients.Cells(clientsMaxRow, 12))
Set clRngB = wsClients.Range(wsClients.Cells(2, 2), wsClients.Cells(clientsMaxRow, 12))
Set clRngC = wsClients.Range(wsClients.Cells(2, 3), wsClients.Cells(clientsMaxRow, 12))
factCol = 7
Set factRange = wsFact.Range(wsFact.Cells(2, factCol), wsFact.Cells(factMaxRow, factCol))
factRange.Formula = "=IF(IFERROR(VLOOKUP(RC1;" & wbClients.Name & "!" & clRngA.Address & ";" & CStr(factCol) & ";FALSE))=TRUE;IF(IFERROR(VLOOKUP(RC1;" & wbClients.Name & "!" & clRngB.Address & ";" & CStr(factCol - 1) & ";FALSE))=TRUE;VLOOKUP(RC1;" & wbClients.Name & "!" & clRngC.Address & ";" & CStr(factCol - 2) & ";FALSE);VLOOKUP(RC1;" & wbClients.Name & "!" & clRngB.Address & ";" & CStr(factCol - 1) & ";FALSE));VLOOKUP(RC1;" & wbClients.Name & "!" & clRngA.Address & ";" & CStr(factCol) & ";FALSE))"

Смысл формулы - во чтобы то ни стало подтянуть данные (есть просто 3 идентифицирующие колонки в таблице)

В общем, ошибка "1004". Формулы попроще работают, эта фигня не хочет, прошу указать на ошибку. Как я не пробовал только указывать и ячейки, и диапазоны...

Спасибо.

[HandKot]

..::SCRIBE::.., 
1) для начала попробуйте использовать не factRange.Formula, а factRange.FormulaRC
2) потом, тут нашёл аддон http://analystcave.com/excel-tools/excel-sql-add-in-free/, посмотрите, может сможете использовать
 3) и для обновления я бы попытался использовать запросы, но пока проверить не могу

ЗЫЖ видать из-за прокси форум чудит и я не могу нормально ответить

[SCRIBE]

Для factRange.FormulaRC ошибка "438":"Object doesn't support this method"
Ну собственно реально такого метода нет, есть FormulaR1C1 и FormulaR1C1Local, но при нем все та же ошибка.

[SCRIBE]

Как я вижу, ошибка в clRngA.Address, или RC1, т.е. надо выбрать что-то одного, или Formula или FormulaR1C1, в формуле просто вперемешку.

Как и предполагалось, решение:
1. Ячейки текущей книги и формулы задавать стандартным способом (не RC)
2. Диапазон второй кники оставить как есть.
3. Использовать метод FormulaLocal (у кого не русская версия, я не виноват  )
4. Использовать русские название формул.

Почему я так решил? Потому что если задать английскими, результат ВПР(VLOOKUP) то ли конвертируется в русскую кодовою страницу, то ли еще что, на выходе кракозябры, с FormulaLocal такого нет.

В конце, тестовая формула:
factRange.FormulaLocal = "=ВПР($A$1;" & wbClients.Name & "!" & clRngA.Address & ";7;ЛОЖЬ)"