Вход | Регистрация

1С:Предприятие ::

Метки: 

Обработка результата выборки в Excel

Я
   dkdelta
 
08.06.18 - 17:59
Уважаемы Знатоки!
Помогите дилетанту разобраться с ошибкой, которая возникает при попытке записать на лист экселя результат выборки данных, полученных из 1С8.3. Код макроса:

Public v8 As Object
Dim v8con As New V83.COMConnector

Public Sub v8connect()
    Set v8 = v8con.Connect("Srvr=srv;Ref=WMS;Usr =""USR"";Pwd=""PWD""")
End Sub

Sub YARD()
    If v8 Is Nothing Then v8connect
    Set Запрос = v8.NewObject("Запрос")
    Запрос.Текст = "ВЫБРАТЬ усРасписаниеРаботыВорот.Ворота КАК ВоротаПлан ИЗ РегистрСведений.усРасписаниеРаботыВорот КАК усРасписаниеРаботыВорот ГДЕ усРасписаниеРаботыВорот.Период между ДАТАВРЕМЯ(2018, 06, 07) И ДАТАВРЕМЯ(2018, 06, 08)"
    Set Result = Запрос.Выполнить
    Set tabl = Result.Выгрузить()

    For i = 1 To tabl.Количество()
        Worksheets("Лист1").Cells(i, 1).Value = tabl.Получить(i).ВоротаПлан
    Next i
End Sub

На строке
Worksheets("Лист1").Cells(i, 1).Value = tabl.Получить(i).ВоротаПлан
выдает ошибку:
Run-Time error '1004': Application-defined or object-defined error

Спасибо.
 
 
   МихаилМ
 
1 - 08.06.18 - 18:14
ВоротаПлан это объект другой системы (1с8) для excel.
оперируйте простыми типами (строка,число)


поменяйте в запросе 
"усРасписаниеРаботыВорот.Ворота" 
на "Представление(усРасписаниеРаботыВорот.Ворота)"
   dkdelta
 
2 - 08.06.18 - 18:27
Михаил, спасибо!
Сработало!
   tesseract
 
3 - 08.06.18 - 23:00
А через табличный документ не проще сохранять?


Список тем форума
Рекламное место пустует Рекламное место пустует
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.
Тема не обновлялась длительное время, и была помечена как архивная. Добавление сообщений невозможно.
Но вы можете создать новую ветку и вам обязательно ответят!
Каждый час на Волшебном форуме бывает более 2000 человек.
Рекламное место пустует