Выгрузка Рейсов в Excel

[Tolik]

Private Sub Workbook_Open()
Dim Group As Integer
Set AG = CreateObject("AutoGRAPH.AutoGRAPHAutomation")
With AG
.WaitForInitializing
'Cells(1, 1) = .GroupsNum
XNum = 0
If .GroupsNum > 0 Then
For õ = 1 To .GroupsNum ' öèêë ïî êîëè÷åñòâó ãðóïï àâòî
.GroupIndex = õ 'Ïåðåäàåì èíäåêñ (íîìåð) ãðóïïû â ÀÃ
'Cells(XNum, 1) = "èìÿ ãðóïïû"
'Cells(XNum, 2) = .GroupName AG.GroupCarsNum;
'MsgBox Str(.GroupCarsNum)
XGrup = õ + XNum
If .GroupCarsNum > 0 Then
Stroki = 0
For õõ = 1 To .GroupCarsNum ' öèêë ïî êîë ìàøèí â ãðóïïå
If Trim(.GroupName) <> "Ýâàêóàòîðû" Then
Exit For
End If
.CarIndex = õõ 'Ïåðåäàåì èíäåêñ (íîìåð) ÒÑ âíóòðè ãðóïïû â ÀÃ

.SetGroupIndexByFileName (.GroupFileName)
.SetCarIndexByDevice (.CarDevice)
For Y = 1 To 50000000
Next Y
.WaitForComputing(.GroupFileName, .CarDevice, Str(Date) + " 00:00:00", Str(Date) + " 23:59:59", "GSM", 1) = 1
Делаю такой код на Microsoft Visual Basik Excel 2003. Выпадает ошибка на последний строчки. Когда .WaitForComputing не приравниваешь к чему нибудь код не хочет компилироваться? А когда приравниваешь то ошибка 451. Автограф 3.4.7 Сборка 1869

[SK]

А что выдает у Вас Str(Date) ?

[Tolik]

27.12.2011

Добавлено через 57 секунд

А что выдает у Вас Str(Date) ?

27.12.2011

[SK]

напишите значения всех переменных для WaitForComputing

[Tolik]

.GroupFileName - ООО Юрий.ini
.CarDevice - 15119
Str(Date) + " 00:00:00" - 27.12.2011 00:00:00
Str(Date) + " 23:59:59" - 27.12.2011 23:59:59

Добавлено через 3 минуты
На 1С Не надо .WaitForComputing(.GroupFileName, .CarDevice, Str(Date) + " 00:00:00", Str(Date) + " 23:59:59", "GSM", 1) - приравнивать к 1
А Microsoft Visual Basik если не приравниваешь к чему-нибудь выдает ошибку

[Tolik]

Вот ошибка

[SK]

Да всё ясно...
Str(.CarDevice)

Пробуйте...

Я, кстати, не понял, зачем Вы делаете:

.SetGroupIndexByFileName (.GroupFileName)
.SetCarIndexByDevice (.CarDevice)

если у Вас уже есть присвоения:

.GroupIndex = õ
.CarIndex = õõ

этого вполне достаточно...

иначе, по сути Вы по индексу õ или õõ находите GroupFileName или CarDevice и потом сразу же обратно по ним ищете индекс... который получится тем же самым, что логично.

[SK]

    Dim Group As Integer
    Set AG = CreateObject("AutoGRAPH.AutoGRAPHAutomation")
    With AG
    .WaitForInitializing
    'Cells(1, 1) = .GroupsNum
    'XNum = 0
        If .GroupsNum > 0 Then
            For o = 1 To .GroupsNum
                .GroupIndex = o
                'Cells(XNum, 1) = "eiy a?oiiu"
                'Cells(XNum, 2) = .GroupName AG.GroupCarsNum;
                'MsgBox Str(.GroupCarsNum)
                'XGrup = o + XNum
                If .GroupCarsNum > 0 Then
                    'Stroki = 0
                    For zz = 1 To .GroupCarsNum
                        .CarIndex = zz
                        '''.SetGroupIndexByFileName (.GroupFileName)
                        '''.SetCarIndexByDevice (.CarDevice)
                        'For Y = 1 To 50000000
                        'Next Y
                        MsgBox (AG.GroupFileName + "   " + Str(.CarDevice))
                        ddd = AG.WaitForComputing(.GroupFileName, Str(.CarDevice), Str(Date) + " 00:00:00", Str(Date) + " 23:59:59", "GSM", 1)
                    Next zz
                End If
            Next o
        End If
    End With

Или, если почистить код:

    Dim Group As Integer
    Set AG = CreateObject("AutoGRAPH.AutoGRAPHAutomation")
    With AG
    .WaitForInitializing
        If .GroupsNum > 0 Then
            For o = 1 To .GroupsNum
                .GroupIndex = o
                If .GroupCarsNum > 0 Then
                    For zz = 1 To .GroupCarsNum
                        .CarIndex = zz
                        MsgBox (AG.GroupFileName + "   " + Str(AG.CarDevice))
                        ddd = AG.WaitForComputing(.GroupFileName, Str(.CarDevice), Str(Date) + " 00:00:00", Str(Date) + " 23:59:59", "GSM", 1)
                    Next zz
                End If
            Next o
        End If
    End With

[Tolik]

Все работает. Спасибо.