[NOKAvtograf]

Измененный код из вышеприведенного примера Excel Private Sub UpdateButton_Click():

---

For j = 1 To CarsNum
AG.CarIndex = j

'Cells(CRow, 4) = "Отображаемое название"
'Cells(CRow, 5).NumberFormat = "@"
'Cells(CRow, 5) = AG.CarAlias
'CRow = CRow + 1

AG.TripEntriesListTypeName = "checkpoints"
AG.TripEntriesListKindName = "points"

AG.TripIndex = 1
EntriesNum = AG.TripEntriesNum

For EntryIndex = 1 To EntriesNum

AG.EntryIndex = EntryIndex

Cells(CRow, 5) = AG.EntryStartName

Next EntryIndex
Next j


В результате получаем контрольные точки, если в Автографе выбрана машина как ниже на скриншоте(Вложение), но для каждой машины надо в автографе выделять мышкой машину, как произвести перебор машин в группе автоматически?