Пример из "Пример для MS Excel.xls":
Private Sub ExportTrackButton_Click()
Set AG = CreateObject("AutoGRAPH.AutoGRAPHAutomation")
AG.TripIndex = Cells(7, 2)
AG.ExportTrackToFile AG.WorkDirectory + "\" + Cells(32, 2), 1, "", "", 0, 0, -1, 0, 0, 0
End Sub
ООО «ТехноКом», г. Челябинск
Макаров Константин Евгеньевич - Главный Программист ООО «ТехноКом» (диспетчерское ПО «АвтоГРАФ»)
|