Проблема с выгрузкой треков в .kml?

[lostfriend88]

Передо мной стоит задача выгрузки каждого трека в kml-файл.

Делаю следующее:

Set AG = CreateObject("AutoGRAPH.AutoGRAPHAutomation")
AG.WaitForInitializing
Dim num
num = 0
GroupsNum = AG.GroupsNum
For i = 1 To GroupsNum
    AG.GroupIndex = i
    CarsNum = AG.GroupCarsNum
    For j = 1 To CarsNum
        AG.CarIndex = j
        Dim date1
        Dim date2
 date1 = #11/01/2012 00:00:00#
 date2 = Now() 
        AG.ComputingTimeout = 100
   AG.WaitForComputing AG.GroupFileName, AG.CarDevice, date1, date2, "GSM", 1
        TripsNum = AG.TripsNum           
        For k = 1 To TripsNum
            AG.TripIndex = k
     Dim name
     name = num & ".kml"
            AG.ExportTrackToFile name, 1, "", "", 1, 0, -1, 0, 1, 1
     num = num + 1
        Next  
    Next 
Next

Однако ничего не происходит.
Быть может, не те параметры в ExportTrackToFile?

[storm]

Однако ничего не происходит.

для начала посмотрите - при вызове функции WaitForComputing программа АвтоГРАФ должна перелючаться на выбранное транспортное средство и период должен выставиться с 11 января по текущую дату и рассчитаться рейсы
происходит ли расчет рейсов у вас?

[storm]

посмотрел у себя, вобщем АвтоГРАФ принимает дату и время в формате
dd.mm.yyyy hh:nn:ss и по-моему только в таком виде, так что задайте такой формат и проверьте еще раз

[lostfriend88]

поменяла даты на такие:

date1 = "01.11.2012 00:00:00"
 date2 = "08.11.2012 00:00:00"

файлы не создаются. ведь я правильно понимаю, они должны создаваться в корневой папке автографа?

между ТС переключается все, на рейсы тоже бьется. всю нужную информацию удается вытянуть точно таким же макаром. а вот kml не создаются.

подозреваю, дело в чем-то другом.

[storm]

попробуйте задать полный путь к файлу, типа того
name = "C:\" & num & ".kml"

[programmer]

Пример из "Пример для 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

[lostfriend88]

storm, спасибо большое, Ваш вариант сработал. указала полный путь до папки, файлы создались. вчера полдня промучилась - не знала, что дело в такой ерунде.


programmer, когда воспользовалась Вашим вариантом с AG.WorkDirectory - комп самовольно ушел в перезагрузку.

[SK]

programmer, когда воспользовалась Вашим вариантом с AG.WorkDirectory - комп самовольно ушел в перезагрузку.

WorkDirectory была за пределами матрицы...