Страницы: 1
RSS
подключение .OCX библиотек через VBA
 
Добрый день просьба поделиться информацией.  
В экселе создал всплывающее окно в котором есть 2 обьекта MS Calendar Control 11.  
Идет выборка диапазона между 2 датами.    
 
На компьютерах пользователей я подключил данные библиотеке и зарегистрировал их в ОС.  
Но при пересылке данного файла по эл. почте и последующем его открытии на компьютере где эти библиотеки были зарегистрированы выскакивает сообщение об ошибке что данные объекты  не найдены и всплывающее окно появляется без элементов выбора даты...  
 
Может кто сталкивался с такой проблемой подскажите как ее можно решить? Можно ли регистрировать эту библиотеку через VBA в момент открытия файла например?
 
если не ошибаюсь, подобный вопрос уже обсуждался на форуме
Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук


https://github.com/nervgh
 
Используйте альтернативные решения (если рассылаете файл пользователям) - как в этом примере:  
http://excelvba.ru/programmes/Fill_Invoice  
 
Тогда проблем не будет.
 
{quote}{post}'программное подключение библиотеки  
'Вариант2  
'Source: http://msoffice.nm.ru/faq/macros/module.htm#faq179  
Option Compare Text  
Private Sub VBProject_References()  
Dim iPath$, iFileName$, iCount%  
iPath$ = Environ("WinDir")  
'iFileName$ = iPath$ & "\System32\Scrrun.dll" 'Microsoft Scripting Runtime  
'iFileName$ = iPath$ & "\System32\FM20.dll" 'Microsoft Forms 2.0 Object Library  
With Application  
iFileName$ = .Path & .PathSeparator & "MSWORD.OLB" 'Microsort Word 11.0 Object Library  
End With  
If Dir(iFileName$) <> "" Then  
With ThisWorkbook.VBProject.References  
For iCount% = 1 To .Count  
If .Item(iCount%).FullPath = iFileName$ Then  
MsgBox "Эта библиотека уже подключена", , ""  
Exit Sub  
End If  
Next  
.AddFromFile Filename:=iFileName$  
End With  
Else  
MsgBox "Отсутствует нужный файл", , ""  
Exit Sub  
End If  
MsgBox "Библиотека подключена!", 64, ""  
End Sub{/post}{/quote}  
 
Как я понимаю надо идти этим путем, только куда его лучше прописать? на событие открытия документа?  
 
Файл пересылается между мной и удаленным сотрудником,регистрацию библиотек делал на этих местах вручную и на месте все работает но при пересылке сбиваются
 
я недавно выкладывал календарь на основе стандартных элементов  
 
поищите с ключом "всплывающий календарь"
Живи и дай жить..
 
Я посматрел и мне этот вариант немного не подходит...  
Просьба кто разбирался с вопросом регистрации можно обьяснить подробней...  
 
Уточняю начальную информацию:  
Во первых подключена библиотека - MSCOMCT2.OCX  
 
И из нее используется элемент Date & Time Picker (DTPicker)  
При помощи него выбирается начальная и конечная дата.  
 
Файл используется на 2-3 компьютерах на которых я эти библиотека зарегистрировал...  
 
В файле я прописал регистрацию библиотеки автоматически при открытии файла, но ошибка не устранилась... при запуске данные элементы пропадают и только после этого выдается сообщение что библиотека зарегистрирована...    
 
В VBA все элементы подкручены и установлены... очень хотелось бы оставить оставить именно данную реализацию выбора дат, т.к. она наиболее проста в использовании... Юзеры которые файл заполняют там очень слабы в плане использования компьютеров. Фактически это село...  
 
Просьба обсудить возможные ошибки и способы их решения...  
 
Прилагаю файл  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>
 
так если всего "немного" не подходит - почему немного не изменить?  
 
зато ничего прописывать в принципе не надо
Живи и дай жить..
 
Уважаемый слэн, эти немного упираются в размеры и двойное использование ...  
Это немного изменить у меня не помещается в голове ))  
 
Я не могу понять логику этих прописываний... если  данная библиотека является зарегистрированной на компьютере... это показывает этот же файл запущенный с моего компьютера...  
 
И тут же я открываю этот же файл присланый мне по электронной почте со второго компьютера... тот что прислан по почте выскакивает данная проблема... (((  
 
В чем магия я понять не могу
 
да я-то как раз вам предлагаю не заморачиваться с прописыванием.  
 
я тоже попробовал и бросил.. написал свой календарь и радуюсь - делов-то на час
Живи и дай жить..
 
Может быть я не тот файл находил? можно приложить ваш ?
 
<url>http://www.planetaexcel.ru/docs/forum_upload/post_240498.xls</url&gt;
Живи и дай жить..
 
<href>http://excelvba.ru/programmes/Fill_Invoice</href&gt;
Живи и дай жить..
 
Слэн большое спасибо в итоге воспользовался вашим календарем, интеграция прошла легко )) Все библиотеки были убраны из проекта...  
 
По результатам сдачи руководству, тех задание было значительно расширено ))  
 
Людям всегда мало ((  
 
Небыло ничего, было нормально.  
Дал инструмент контроля, ответ ну блин это не удобно хотим большей детализации
Страницы: 1
Читают тему
Наверх