Ошибка при создании ActiveX объекта

@ramzes2012 · Регистрация: 22.12.2011

Студворк — интернет-сервис помощи студентам

это код взят из примера справочной по вба, выдает ошибку что не может создать активикс объект.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Command1_Click 
   dim ole1 as new access.boundobjectframe
  OLE1.Class = "Excel.Sheet" 'Установить имя класса. 
  'Указание типа объекта. 
  OLE1.OLETypeAllowed = acOLELinked 
  'Указание исходного файла. 
  OLE1.SourceDoc = "C: \ Excel \ Oletext.xls" 
  'Укажите данные для создания ссылки на. 
  OLE1.SourceItem = "R1C1: R5C5" 
  'Создание связанных объектов. 
  OLE1.Action = acOLECreateLink 
  "Настройка управления размером. 
  OLE1.SizeMode = acOLESizeZoom 
 End Sub

у меня будет шаблон примерно тот же, но вместо экселевского файла у меня будет графическое изображение из таблицы
я предполагаю, что для изображения из таблицы нужно использовать sourceitem и там писать путь к колонке с графическими файлами
делал через createobject он то проходит, а в классе не идет

@Kubuntovod · 22.11.2013, 10:11

В акцесе не силён, но вот эта строка глаз режет:

Visual Basic
1
OLE1.SourceDoc = "C: \ Excel \ Oletext.xls"

Пробелы не лишние?

Visual Basic
1
OLE1.SourceDoc = "C:\Excel\Oletext.xls"

@ramzes2012 · 23.11.2013, 23:31 **[ТС]**

да это важно, проблема именно в инициализации объекта, компилятор только до туда доходит

@JoraVoenyjHaker · 24.11.2013, 04:17

Вот функция которая уничтожает множество пробелов в строке

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
Function probelOffNet$(ByVal Text$, Optional ch As Byte = 32)
    Dim chrb2$(1)
    chrb2(0) = chr$(ch): chrb2(1) = String(2, ch)
    While probelOffNet <> Text
        probelOffNet = Text
        Text = Replace(Text, chrb2(1), chrb2(0))
    Wend
    probelOffNet = Trim(Text)
End Function

Добавлено через 7 минут
а вот как можно исключить пробелы из файлового пути

FileProbelOffNet

Visual Basic
1
2
3
4
5
6
7
8
9
Function FileProbelOffNet$(ByVal Text$, Optional ch As Byte = 92)
    Dim j$(), s$, f&
    s = chr$(ch)
    j = Split(Text, s)
    For f = 0 To UBound(j)
        j(f) = Trim(j(f))
    Next
    FileProbelOffNet = Join(j, s)
End Function

@Kubuntovod · 24.11.2013, 14:30

Сообщение от ramzes2012

да это важно, проблема именно в инициализации объекта, компилятор только до туда доходит

Если из пути убрать пробелы, то ошибка остаётся?

@ramzes2012 · 24.11.2013, 16:08 **[ТС]**

извините я описался не важны эти пробелы, так как до них отладчик даже не доходит

Добавлено через 15 минут
какие библиотеки отвечают за загрузку оле объектов? может в этом проблема

@Kubuntovod · 24.11.2013, 16:27

Всё, что отвечает за библиотеки, можно увидеть в референсах. В VBA редакторе Tools -> References...

@Kubuntovod · 24.11.2013, 16:58

Сейчас посмотрел специально. По дефолту библа акцесса не подключена. Только когда подключил, тогда стал доступным в автодополнении кода объект Access и иже с ним.

Кликните здесь для просмотра всего текста

@ramzes2012 · 24.11.2013, 17:05 **[ТС]**

библиотека подключена, но объект не создается

@Kubuntovod · 24.11.2013, 19:22

Затрудняюсь помочь, в данном случае. Это акцессозависимое что-то, а я с ним никогда не имел дела.

Новые блоги и статьи Все статьи Все блоги /
Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .

@ramzes2012 0 / 0 / 0 Регистрация: 22.12.2011 Сообщений: 224
	23.11.2013, 23:31 [ТС]
	да это важно, проблема именно в инициализации объекта, компилятор только до туда доходит 0

@ramzes2012 0 / 0 / 0 Регистрация: 22.12.2011 Сообщений: 224
	24.11.2013, 16:08 [ТС]
	извините я описался не важны эти пробелы, так как до них отладчик даже не доходит Добавлено через 15 минут какие библиотеки отвечают за загрузку оле объектов? может в этом проблема 0

@Kubuntovod 3303 / 932 / 200 Регистрация: 14.01.2013 Сообщений: 4,767
	24.11.2013, 16:27
	Всё, что отвечает за библиотеки, можно увидеть в референсах. В VBA редакторе Tools -> References... 0

@Kubuntovod 3303 / 932 / 200 Регистрация: 14.01.2013 Сообщений: 4,767
	24.11.2013, 16:58
	Сейчас посмотрел специально. По дефолту библа акцесса не подключена. Только когда подключил, тогда стал доступным в автодополнении кода объект Access и иже с ним. Кликните здесь для просмотра всего текста 0

@ramzes2012 0 / 0 / 0 Регистрация: 22.12.2011 Сообщений: 224
	24.11.2013, 17:05 [ТС]
	библиотека подключена, но объект не создается 0

@Kubuntovod 3303 / 932 / 200 Регистрация: 14.01.2013 Сообщений: 4,767
	24.11.2013, 19:22
	Затрудняюсь помочь, в данном случае. Это акцессозависимое что-то, а я с ним никогда не имел дела. 0