V83 comconnector excel vba

18 / 20 / 2

Регистрация: 04.03.2017

Сообщений: 199

Доброго времени суток. Кто знает, скажите пожалуйста, как через excel происходит подключение к 1С, то есть как посредством запросов, VBA и прочего, минуя выгрузку CSV таблиц из 1C сразу обращаться к дужным данным в 1C? В excel есть вкладка данные (рисунок 1), в ней есть графа «Из базы данных SQL Server» (рисунок 2), которая открывает окно ввода сервера и инструкций (рисунок 3). Как я понимаю нужно туда подставить какие-то значения, но какие? У меня есть пользовательский логин и пароль для 1C, на вкладке 1С «О программе» есть тоже кое-какая информация (рисунок 4), и я так понимаю её тоже нужно куда-то вставить. Кто знает, помогите пожалуйста подключиться к 1С, два дня перерывал весь интернет, ничего не нашёл (или не понял). Очень нужно.

7 / 7 / 3

Регистрация: 09.01.2018

Сообщений: 210

А где в России берут все ПО? На торрентах.
Не уверен, что имя машины Важно. А вот Самого сервера я не вижу.

Добавлено через 16 минут
Открываем меню программ на виртуалке, находим MS SQL Server 2008 (или 2005, или 2012). Там есть Диспетчер конфигурации — в нем четко видны все инстансы, запущенные на компе. Кстати, не исключено, что там же есть Microsoft SQL Management Studio, так что и ставить не нужно.

7 / 7 / 3

Регистрация: 09.01.2018

Сообщений: 210

Последний скрин не видел… В нем вижу, что Initial Catalog=Base8;

Добавлено через 33 минуты
Это я про скрин с параметрами 1С.

Добавлено через 5 минут
И еще… Хотел спросить. А за каким лешим Вы вообще решили напрячь этого монстра (Excel)? Думаете дешево и сердито получится? Отнюдь. Во-первых, этот монстр отожрет ресурсов у сиквела вдвое-втрое больше, чем программа на чем угодно под ADO. Во-вторых, этот монстр за собой «не подчищает» на сиквеле — его соединения торчат часами. Это не страшно, если их единицы-десятки, но если Вы поставите Excel основным инструментом решения всех задач — будет проблема.

477 / 134 / 49

Регистрация: 07.05.2016

Сообщений: 521

18 / 20 / 2

Регистрация: 04.03.2017

Сообщений: 199

vpivo, QwertyZ, ну просто хочу из экселя сразу формировать отчёты, статистику, и планирование закупок (на основе статистике). а там, в 1C, хренова туча информации, и всё нужно обрабатывать, всё с исключениями, потому что 1С у нас написана не очень..

Добавлено через 1 минуту
QwertyZ, vpivo, кроме екселя ничего подходящего под данные задачи в компании нет, да и вообще прога удобная

477 / 134 / 49

Регистрация: 07.05.2016

Сообщений: 521

ГарриНаФеррари,

т.е. вы думаете, что будет проще извлекать какие-то данные из SQL таблиц, чем формировать отчеты в 1С ?
что-то очень сомнительно

7 / 7 / 3

Регистрация: 09.01.2018

Сообщений: 210

18 / 20 / 2

Регистрация: 04.03.2017

Сообщений: 199

Если всё так плохо с 1С и excel, то почему при приёме на работу почти всегда требуют знание sql и excel, я так понимаю что именно для того, чтобы с помощью excel извлекать данные из 1C..?

Добавлено через 1 час 0 минут
Да и ещё плюс ко всему, это наверное самое основное, мне чтобы создать сводную таблицу в excel, нужно обработать примерно 2 400 000 строк (каждая строка содержит 27 столбцов). Excel просто не тянет такой объём, OLAP-куб обрабатывается ооооочень долго, это просто жесть какая-то….У меня один файлик такой весит 400мб, excel дохнет

383 / 162 / 56

Регистрация: 26.02.2010

Сообщений: 1,241

вообщем первый раз такое слышу

Не по теме:

Вот вы сами объяснили, почему в компаниях, которые не хотят загнуться в скором времени, переходят от учета в excel на 1С.
У вас есть мощный инструмент — отчеты в 1С. Если подходящего в вашей базе нет, закажите разработку и выгружайте потом его результат в эксель, раз начальство не воспринимает 1С)

megacold

24 / 19 / 6

Регистрация: 10.11.2016

Сообщений: 51

Если не знаете, как подключиться то будете 2 года пытаться собрать инфу из sql.
Пробуйте формировать списки, отчеты и сохранять в Excel/
Есть еще вариант через COM

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32

Module Module1
Sub Main()
  Dim cc As Object 'It will be a COM connector
  Dim con As Object
  Dim o,o2 As Object
  Dim e As Object
  Dim str As String
  Try
    cc = CreateObject("V82.COMConnector")
    con = cc .Connect ("File=c :/lcv8/mdcom;Usr=rnaBHbiii")
    o = con NewObject("Array", 5)
    o.Set(0 "Item 0")
    o.Set(1 "Item 1")
    o.Set(2 "Item 2")
    o.Set(3 "Item 3")
    o.Set(4 "Item 4")
    o.Set(5 "Item 5")
    Dim c As Integer = o.Count()
    For Each e In o
      Console.WriteLine(e.ToString())
    Next
    o2 = con.AllowedLength.Variable
    str = con.ValueStr(o2)
    Dim s As String = str
  Catch ex As Exception
    Console.WriteLine(ex)
  End Try
  con = Nothing
  cc = Nothing
  System.GC.Collect()
End Sub
End Module

1
2
3
4
5
6
7
8
9
10
11
12
13
14

Set Товар = trade.Справочники.Товары
Группа = Товар.СоздатьГруппу()
Группа.Наименование = "***** Экспорт из Excel ******"
Группа.Записать()
N = 100 'Количество строк в документе
For Count = 1 To N
Элемент = Товар.СоздатьЭлемент()
Элемент.Наименование = Application.Cells(Count, 2).Value
Элемент.Розн_Цена = Application.Cells(Count, 3).Value
Элемент.Мел_Опт_Цена = Application.Cells(Count, 4).Value
Элемент.Опт_Цена = Application.Cells(Count, 5).Value
Элемент.Родитель = Группа.Ссылка
Элемент.Записать()
Next Count

Al75

0 / 0 / 0

Регистрация: 28.08.2020

Сообщений: 1

‘В редакторе Excel подключаем через Reference библиотеку V83.COMconnector. Если ее нет то нужно установить

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

    Dim cntr As Object
    Dim conn As New V83.COMConnector
 
 ' Файловый вариант
         Set cntr = conn.Connect("File=""e:База"";")
   'Серверный вариант
        Set cntr =conn.Connect("Srvr=""ИмяСервера"";Ref=""ИмяБазы"";Usr=""Пользователь"";Pwd=""12345"")
    
     Set Запрос = cntr.NewObject("Запрос")
       //Если есть временные таблицы
    Set МВТ = cntr.NewObject("МенеджерВременныхТаблиц")
    
    Запрос.МенеджерВременныхТаблиц = МВТ
 
 
  Запрос.Текст = "Выбрать * Из Спаравочник.Номенклатура"
 
  Запрос.УстановитьПараметр "КонецПериода", CDate("24.12.2019")
 
  Set Записи = Запрос.Выполнить.ВЫБРАТЬ()
  Set n=1;
 
      While Запрос.Следующий() = True
      Worksheets("заказы").Cells(n, 1).Value = Записи.Артикул.Наименование
      n=n+1
       Wend

Full Member

Рейтинг (т): 6

Всем здравия!
Опыта в 1с нет, тч извиняйте.
Конектюсь через СОМ.

В общем задача вытащить все данные из:
Справочники: Номенклатура, Контрагенты.

Можно ли их вытащить сразу двумерной таблой?
Если нет, то как построчно вывести?

На этом мои познания закончились, т.к. дальше 1С код идет.

Если можно примеры вывода и ввода.

Заранее весьма благодарен.

https://forum.infostart.ru/forum9/topic141309/
См. «// Пример на языке MS Visual Basic». А использовать — как обычный рекордсет, с поправкой на имена его методов и свойств.

Full Member

Рейтинг (т): 6

На последней строке выдаёт ошибку.
С чем это может быть связано?
Может какой реф ему ещё нать?

Добавлено 30.01.18, 14:40
Может админ что перекрыл или в 1с?
Я первый кто конектится так у нас.

Сообщение отредактировано: Marchello — 30.01.18, 14:40

Прикреплённый файл____________________.png (11,85 Кбайт, скачиваний: 704)

Full Member

Рейтинг (т): 28

Версия 1С какая?

Full Member

Рейтинг (т): 6

1С:Предприятие 8.3 (8.3.10.2650)
Бухгалтерия предприятия, редакция 3.0 (3.0.57.17)

Это у тебя реально там база лежит, или ты коннектишся к экзешнику?

Добавлено 31.01.18, 11:47

Добавлено 31.01.18, 11:50

Тебе придется указывать конкретные реквизиты этих справочников

Full Member

Рейтинг (т): 6

Это у тебя реально там база лежит, или ты коннектишся к экзешнику?

Хороший вопрос!
Админа вымучил.
Короче база лежит на серваке, у юзеров клиенты.
Работает через постгри.

То что реквизиты указывать это я понимаю.
Мне примерчик нужен как именно из ёкселя обращаться к таблам и запросы делать.
Дальше уже сам буду разбираться.

Сообщение отредактировано: Marchello — 31.01.18, 12:51

Не важно.
Как в 1с-ке строка подключения, то и сюда пихай.В списке баз внизу строка.

Добавлено 31.01.18, 12:52

выше примерчик

Вот пример для 1С. Сам адаптируешь для экселя.

Добавил в пример запрос

Full Member

Рейтинг (т): 6

Все равно не хочет.
На первом set дольше висит но выдаёт ту же ошибку.
Может где что-то не так пишу?
Визуально базу на серваке не видно.
Может быть из-за этого?
Как проверить что ее хоть видит V83 при конекте?
Не понятно то ли база его отпихивает, то ли не видит вообще его.
У нас стандартная версия, может быть отключена внешняя обработка?

Ты в 1С базу-то открываешь?

Добавлено 31.01.18, 13:56
советую что-бы идти дальше локально поставить копию к себе файловую базу.

Full Member

Рейтинг (т): 6

Благодарю.

Благодарю, то что надо.

Осталось только подключиться.

Добавлено 31.01.18, 14:07

Алгоритм какой использовать?

Открыть локального клиента, а потом конектиться из экселя к серваку без указания паса и логина?
Или както ещё?