Показать сообщение отдельно
Старый 09.03.2013, 11:47    | »»» |  #15
TOOP
Начинающий
 
Аватар для TOOP
 
Красноярск
Регистрация: 08.12.2012
Сообщений: 32
TOOP is on a distinguished road
Отправить сообщение для TOOP с помощью ICQ
По умолчанию

Возникла такая же необходимость как в этой ветке. Нужен подсчет количества прибытий в каждую геозону.
Взял этот код.
Сообщение от Smolinc Посмотреть сообщение
Код:
Private Sub Button_Click()

Set AG = CreateObject("AutoGRAPH.AutoGRAPHAutomation")

AG.StartComputing "Участок технологического транспорта.ini", "75769", Cells(1, 2), Cells(2, 2), "GSM", 1
AG.TripEntriesListTypeName = "checkpoints"
AG.TripEntriesListKindName = "Points"
Cells(3, 2) = AG.TripEntriesNum

End Sub



Заменил StartComputing на WaitForComputing.
Указал временной интервал в “Cells(1, 2)”, “Cells(2, 2)”, формата 01.02.2014 19:30:00.
Выдает ошибку в этой строке "Cells(3, 2) = AG.TripEntriesNum".
Пробовал делать цикл как написано выше. Программа ошибок не выдает. Но и результата тоже нет.
TOOP вне форума   Ответить с цитированием