Имя: Пароль:
1C
1С v8
как получать данные из 1С в excel или word?
,
0 qeos
 
28.06.12
16:35
сабж

знаю что есть вот это http://v8.1c.ru/1c_office/integration.htm

но у меня оно както не работает, а информации как это настраивается - нет
http://my.jetscreenshot.com/5394/20120628-slrl-26kb.jpg
http://my.jetscreenshot.com/5394/20120628-wzgf-30kb.jpg
1 qeos
 
29.06.12
09:19
с утра подыму тему, неужели никто кроме меня такой фигней не страдал?
2 Irek-kazan
 
29.06.12
09:21
а вывести список не катит уже?
3 izekia
 
29.06.12
09:28
(0) а у тебя базы зарегистрирован ына компе?
4 qeos
 
29.06.12
09:28
(2) как вывести? у компонента нет никаких настроек, хз откуда он список получает.
(3) ну в при запуске в списке полно баз
5 izekia
 
29.06.12
09:39
(4) хз как она написана, я когда подобное писал там же, брал список там где и 1С
винда какая? не хп случайно?
6 qeos
 
29.06.12
09:45
(5) 7-ка
7 izekia
 
29.06.12
09:47
а доки никакой по ней?
8 qeos
 
29.06.12
09:48
неа, мож на ИТС чегонить.. ща посмотрю.
9 izekia
 
29.06.12
09:50
версия 1С какая?
10 stonewolf
 
29.06.12
09:56
(0) эксель=новый COMОбъект("Excel.Application"); и т.д.
11 izekia
 
29.06.12
09:57
(10) картинки смотрел? по ссылке ходил?
12 stonewolf
 
29.06.12
10:11
(11) Смотрел, ходил. Никаких сложностей в формировании документов через COM не видать. Нафига ещё и надстройки?
13 izekia
 
29.06.12
10:30
(12) речь именно о них, ну и собственно удобство работы конечного пользователя
14 stonewolf
 
29.06.12
10:58
(13) Хм, а я так понял, что автор их упомянул, просто как один из вариантов, который знает.
15 qeos
 
29.06.12
11:50
(10) наоборот, из excel к 1с
16 qeos
 
29.06.12
11:51
(9) 8.2.310
17 izekia
 
29.06.12
12:09
что-то нет вариантов больше
18 Vladal
 
29.06.12
12:31
В книге "Профессиональная разработка ....", 14 глава, раздел Automation, листинг 14.105

Sub OLE()
   Dim trade As Object
   Dim Элемент As Object

   Set trade = CreateObject("V8.Application")
   trade.Connect ("File=""c:\InfoBases\Trade"";Usr=""Director"";")
   
   Rem создаем документ
   Set Документ = trade.Документы.Приходная.СоздатьДокумент()
       
   Rem получаем данные из листа
   Set Контрагент = trade.Справочники.Контрагенты.НайтиПоНаименованию(Application.Cells(1, 2).Value)
   НомерДокумента = Application.Cells(2, 2).Value
   Дата = Application.Cells(3, 2).Value
   
   Rem записываем полученные данные в документ
   Документ.Контрагент = Контрагент
   Документ.Дата = Дата
   Документ.Номер = НомерДокумента
   
   Номер = 6   'Первая строка табличной части
   НомерСтроки = Application.Cells(Номер, 1).Value
   
   Rem в последней строке табличной части будет символ #
   While НомерСтроки <> "#"
   
       Rem получаем данные из листа
       Set Номенклатура = trade.Справочники.Номенклатура.НайтиПоНаименованию(Application.Cells(Номер, 2).Value)
       Количество = Application.Cells(Номер, 5).Value
       Цена = Application.Cells(Номер, 6).Value
       Сумма = Application.Cells(Номер, 7).Value
       
       Rem записываем полученные данные в строку табличной части
       Set Строка = Документ.Товары.Добавить()
       Строка.Номенклатура = Номенклатура
       Строка.Количество = Количество
       Строка.Цена = Цена
       Строка.Сумма = Сумма
       Номер = Номер + 1
       НомерСтроки = Application.Cells(Номер, 1).Value
   Wend
   Документ.Записать
   
   Документ.ПолучитьФорму.ОткрытьМодально
End Sub
19 izekia
 
29.06.12
13:20
аааааа ненавижу вба
20 qeos
 
29.06.12
13:22
во (18) похоже этот вариант лучше