|
как получать данные из 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) похоже этот вариант лучше
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |