Evaluate Excel В Lotus

[Anatoly]

В макросах EXCEL
Result =Sheets(2).Evaluate("SUM(F10:F14)")
отрабатывает нормально и возвращает сумму блока

В скрипте Lotus
Result =xlApp.WorkSheets(2).Evaluate("SUM(F10:F14)")
ошибку типа данных.

Вообще, кто-нибудь делал логический контроль данных в EXCEL?

 

[doka]

а у Result тип variant? Другие команды с WorkSheets отрабатывают? xlApp это что, как получаешь?

 

[Anatoly]

а у Result тип variant? Другие команды с WorkSheets отрабатывают?

У результ тип Integer. Как только объявляю Variant, сразу требует поставить перед приcвоением SET.
xlApp.WorkSheets(2).Evaluate("SUM(F10:F14)") возвращает OBJECT
А должен, по идее, число. И что с этим делать непонятно...

 

[nvyush]

Anatoly
Попробуйте посмотреть в отладчике, какие поля есть у этого объекта

 

[doka]

Скорей всего неправильно обращаешься. Для примера самое простое
Result = xlApp.WorkSheets(2).cells(1,1).Value при Result as variant что записывает в Result?

 

[Anatoly]

Anatoly
Попробуйте посмотреть в отладчике, какие поля есть у этого объекта

Смотрел: тип OBJECT и все.
Кстати через xlApp.WorkSheets(2).Evaluate("F9").Value удается получить значение отдельной ячеек.
С блоками почему не получается.

 

[doka]

Через Evaluate не пробовал, не могу сказать, но как вариант попробуй обращаться к блокам так:
xl.Range("F10:F14" ).Select
xl.Selection.ВычислениеСуммы

при Set xl= CreateObject("Excel.Application")

или xl.Range("F10:F14" ).ВычислениеСуммы

примерно так. Точнее могу сказать позже)

 

[Anatoly]

Скорей всего неправильно обращаешься. Для примера самое простое
Result = xlApp.WorkSheets(2).cells(1,1).Value при Result as variant что записывает в Result?

C Cells().value проблемм никогда не было.

Dim Result As Variant
Result = xlApp.WorkSheets(2).Evaluate("F9").Value
в Result -> значение ячейки F9

Но надо еще возвращать и суммы блоков ячеек
Result = xlApp.WorkSheets(2).Evaluate("SUM(F10:F14)").Value
"Object variable not set"

 

[NickProstoNick]

Не совсем понятно... нужен аналог функции VBA?

 

[doka]

вот к тому что выше написал это посмотри

Ссылка скрыта от гостей

 

[Anatoly]

Не совсем понятно... нужен аналог функции VBA?

Нужно организовать логический контроль данных в файлах перед тем как импортировать их в задачу.
Эта ячейка не больше той, это равна сумме тех и т.д.
То есть нужно как-то получать в скрипте суммы блоков и перечней ячеек

 

[NickProstoNick]

наверное проще написать свою функцию подсчета сумм.
Ну или какой-нибудь документ-правило в котором описать какая ячейка должна быть больше или меньше, суммы блоков и т.д.
Если это статичные блоки конечно

 

[Anatoly]

наверное проще написать свою функцию подсчета сумм.
Ну или какой-нибудь документ-правило в котором описать какая ячейка должна быть больше или меньше, суммы блоков и т.д.
Если это статичные блоки конечно

Так есть.
Сделал документы по отчетам, к ним респонсы с описанием правил.
Например поля одного из простых условий:
LSide ="F9"
RSide ="SUM(F10:F14)"
Condition ="="
И вот с получением результатов и их сравнения - затык...

 

[hosm]

а чем не подходит вариант через WorksheetFunction?
вот пример:

Set excelApp = GetObject ("", "Excel.Application")
Set excelDoc = excelApp.Workbooks.Add
Set myRange = excelDoc.Sheets(1).Range("A1:F10")
answer = excelApp.Application.WorksheetFunction.Sum(myRange)

 

[Anatoly]

а чем не подходит вариант через WorksheetFunction?
вот пример:

Set excelApp = GetObject ("", "Excel.Application")
Set excelDoc = excelApp.Workbooks.Add
Set myRange = excelDoc.Sheets(1).Range("A1:F10")
answer = excelApp.Application.WorksheetFunction.Sum(myRange)

Спасибо, не знал о таком.
Набор функций WorksheetFunction достаточно обширен.
Но придется что-то наворачивать в документе описания условия проверки: в полях остаются только диапазоны и уходят функции их обработки. Придется расширять доки по описанию условий.

 

[nvyush]

Но придется что-то наворачивать в документе описания условия проверки: в полях остаются только диапазоны и уходят функции их обработки. Придется расширять доки по описанию условий.

Не айс, конечно, но можно объявить answer, excelApp, глобальными и использовать Execute, например:

Execute({answer = excelApp.Application.WorksheetFunction.Sum(excelDoc.Sheets(1).Range("A1:F10"))})
If answer = 0 Then '...

Строку для Execute формировать из значений полей тестовых документов.