Вызов функций анализа данных в Excel

[Ostroglaz]

Прывет всем!
Код на VBS:

Код: Выделить всё

Set excel = CreateObject("Excel.Application")
excel.Visible = True
excel.Workbooks.Add()
i = 0
for each cell in excel.ActiveSheet.Range("A1:A10")
    cell.Value = i
   i=i+1
Next
excel.Application.Run "ATPVBAEN.XLAM!Descr", excel.ActiveSheet.Range("$A$1:$A$9"), excel.ActiveSheet.Range("$C$1"),"K", False, True


Это описательная статистика - из пакета анализа данных для ВБА... но последняя строчка постоянно вызывает ошибку... Как поправить, кто-нить знает?

[Antonariy]

Нам предлагается угадывать текст ошибки?

[Денис]

Давайте практиковаться в телепатии???
Я думаю, что ошибка была примерно такая:

Error in line N
"Argument not optional"

[Ostroglaz]

нет, всё более тривиально...

неизвестная ошибка выполнения в строке 9 символ 1
код: 880A03EC

следовательно, ошибка в вызове функции Descr
хотя, есть мнение, что это "фича" экселя 2007-ого... в макросах она (ф-ия) тоже выполняется через раз

[Antonariy]

Файл ATPVBAEN.XLAM существует?

[Ostroglaz]

Файл ATPVBAEN.XLAM существует?

Конечно! и даже зареган, как XLL... иначе бы не получилось выполнить эту функцию в макросах вообще