powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Проблема с ActiveX в VB
10 сообщений из 10, страница 1 из 1
Проблема с ActiveX в VB
    #34560744
obnin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Доброго времени суток!
Проблема в следующем.
Пытаюсь вставить в Excel компонент ActiveX(BARCODE.OCX, используется обычно в 1С для отображения штрихкодав), но так как с VB толком не знаком, то ничего не получается.
В ссылки я его добавил.

Пишу
Dim mybar As BARCODELib.Barcode
Set mybar = CreateObject("BARCODELib.Barcode")
он ругается
ActiveX component can't create object

Что делаю не так?

И еще, если кладу на Excel этот мой объект, то как к нему потом обратиться?

Огромное спасибо!
...
Рейтинг: 0 / 0
Проблема с ActiveX в VB
    #34561387
lena_####
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
obnin

попробуйте так:
Код: plaintext
1.
Dim mybar As BARCODELib.Barcode
Set mybar = New BARCODELib.Barcode
...
Рейтинг: 0 / 0
Проблема с ActiveX в VB
    #34562043
obnin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо, вроде прокатило, только потом опять ступор....
Пытаюсь запихать объект в лист
Код: plaintext
1.
ActiveSheet.OLEObjects.Add(ClassType:=New BARCODELib.Barcode, Link:=False _
     , DisplayAsIcon:=False, Width:=MyWidth, Height:=MyHeight, Top:=MyTop, Left:=MyLeft).Select

пишет Cannot insert object

:(
...
Рейтинг: 0 / 0
Проблема с ActiveX в VB
    #34562070
lena_####
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вместо
Код: plaintext
ClassType:=New BARCODELib.Barcode
попробуйте
Код: plaintext
ClassType:="BARCODELib.Barcode"
...
Рейтинг: 0 / 0
Проблема с ActiveX в VB
    #34562102
obnin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
пишет Cannot insert object
:(
...
Рейтинг: 0 / 0
Проблема с ActiveX в VB
    #34562112
obnin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
и если пишу "BARCODELib.Barcode.1" (видел в примере)
то тоже не работает...
...
Рейтинг: 0 / 0
Проблема с ActiveX в VB
    #34562134
lena_####
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Я, в общем, представления не имею, что это за объект такой "BARCODELib.Barcode".
Попробуйте открыть диалог "Вставка объекта" (Вставка > Объект...) и поищите его там. Если он там есть, то можно запустить макрорекодер, вставить объект вручную и посмотреть на сгенеренный код.
...
Рейтинг: 0 / 0
Проблема с ActiveX в VB
    #34562173
lena_####
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А вообще, полезайте в реестр и ищите там "BARCODELib.Barcode" в HKEY_CLASSES_ROOT. И посмотрите значение “CurVer”. Если не получится так, то посмотрите “CLSID” этого компонента и подставьте это значение в ClassType:=
Что-то типа:
ClassType:="{0e8d0700-75df-11d3-8b4a-0008c7450c4a}"
...
Рейтинг: 0 / 0
Проблема с ActiveX в VB
    #34562374
obnin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Все оказалось намного интерестнее, чем могло было бы быть :)
В реестре, вместо "BARCODELib.Barcode" находится ветка "BARCODE.BarcodeCtrl.1"
я это название подстваил в ActiveSheet.OLEObjects.Add и все заработало :)

Лена, огромное Вам спасибо!!! ;)
...
Рейтинг: 0 / 0
Проблема с ActiveX в VB
    #34562390
lena_####
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Мы все тут рады за Вас :)
Правда, рады.
С нетерпением ждем следующих граблей, на которые Вам доведется наступить.
...
Рейтинг: 0 / 0
10 сообщений из 10, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Проблема с ActiveX в VB
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]