powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / А как закачать и сохранить програмно сохранённые модули *.cls?
7 сообщений из 7, страница 1 из 1
А как закачать и сохранить програмно сохранённые модули *.cls?
    #32317837
DefaultUser
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Привет :)
...
Рейтинг: 0 / 0
А как закачать и сохранить програмно сохранённые модули *.cls?
    #32317889
Фотография AlexJuice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Привет ;)
Если я правильно понял, слово "программно" относится к "закачать и сохранить", то так:

1. Подключить VBIDE (Visual Basic for Applications Extensibility)
2. Выполнить такй код (для каждого файла или в цикле)

Код: plaintext
1.
2.
3.
4.
Dim cmp As VBComponent
Set cmp = Application.VBE.ActiveVBProject.VBComponents.Add(vbext_ct_ClassModule)
cmp.Properties( "Name" ) =  "Class1" 
cmp.CodeModule.AddFromFile  "c:\Class1.cls" 
DoCmd.Save acModule, cmp.Name
...
Рейтинг: 0 / 0
А как закачать и сохранить програмно сохранённые модули *.cls?
    #32317927
DefaultUser
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Вот это мне и нужно было, спасибо.

Неужели сам Access использует эту ссылку? Да впрочем это и неважно.

И ещё одно неважно: А сохранить? Хотя покопаюсь - найду, только хотелось бы получить готовенькое, т.к. применяю то всего 1 раз.
...
Рейтинг: 0 / 0
А как закачать и сохранить програмно сохранённые модули *.cls?
    #32317933
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
> А сохранить? Хотя покопаюсь - найду

А разве последней строки ответа AlexJuice недостаточно?
...
Рейтинг: 0 / 0
А как закачать и сохранить програмно сохранённые модули *.cls?
    #32318000
Фотография Serge Gavrilov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
>Неужели сам Access использует эту ссылку? Да впрочем это и неважно.
в общем-то ссылку можно и не устанавливать, но с сылкой удобнее ...
Dim cmp As Object
Set cmp = Application.VBE.ActiveVBProject.VBComponents.Add(2)
cmp.Properties("Name") = "Class1"
cmp.CodeModule.AddFromFile "c:\Class1.cls"
DoCmd.Save acModule, cmp.Name
...
Рейтинг: 0 / 0
А как закачать и сохранить програмно сохранённые модули *.cls?
    #32318490
DefaultUser
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо всем, работает.

А насчет сохранить, то я имел ввиду экспортировать модуль, т.е. 2 вещи: выполнить экспорт и импорт программно. Извините за некорректные вопросы. Вот только покопаться я не смог. Не могу найти ссылку, хотя через Object работает.
...
Рейтинг: 0 / 0
А как закачать и сохранить програмно сохранённые модули *.cls?
    #32318749
Фотография AlexJuice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
DefaultUser писал:Не могу найти ссылку
Visual Basic for Applications Extensibility, как я и сказал. Только вот M$ везде поперед ссылки свое имя всобачивает ;)
Итого: Microsoft Visual Basic for Applications Extensibility
Можно и без нее, конечно, но с ней много всего интересного узнаешь ;)

А экспортировать тоже просто:
Код: plaintext
1.
2.
Dim cmp As VBComponent
Set cmp = Application.VBE.ActiveVBProject.VBComponents( "MyModule" )
cmp.Export cmp.Name &  ".cls" 
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / А как закачать и сохранить програмно сохранённые модули *.cls?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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