Загрузка формы из файла

@d7d1cd · Регистрация: 30.06.2011

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

Приветствую всех. Есть форма с элементами и кодом, сохранённая в файлах (*.frm, *.frx). Возможно ли программно, например при открытии книги Excel, загрузить эту форму и вывести ее на экран?

Остап Бонд · 19.02.2018, 15:15

В модуль ЭтаКнига

Visual Basic
1
2
3
4
5
6
7
8
9
10
'Tools->References + Microsoft Visual Basic for Applications Extensibility 5.3
'v Доверять доступ к объектной модели проектов VBA
Private Sub Workbook_Open()
ThisWorkbook.VBProject.VBComponents.Import ThisWorkbook.Path & "\UserForm1.frm"
FormShow
End Sub
 
Sub FormShow()
UserForm1.Show
End Sub

Остап Бонд · 19.02.2018, 15:23

Не по теме:

Хотя было бы перед кем бисер сыпать - Замена символов в строке 8-)

@d7d1cd · 19.02.2018, 16:24 **[ТС]**

Остап Бонд, ну ладно Вам вспоминать )). Спасибо!

Добавлено через 21 минуту
А подскажите еще как удалить эту форму? ...VBComponents.Remove UserForm1 не работает...

@_Doro_Wierer_ · 19.02.2018, 16:33

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

VBComponents.Remove UserForm1

.VBComponents.Delete UserForm1

@pashulka · 19.02.2018, 17:24

Можно ещё и так :

Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub Workbook_Open()
    VBProject.VBComponents.Import Path & "\UserForm1.frm"
    UserForms.Add("UserForm1").Show
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    VBProject.VBComponents.Remove VBProject.VBComponents("UserForm1")
    Saved = True 'or Save
End Sub

@d7d1cd · 19.02.2018, 19:16 **[ТС]**

pashulka, объясните, почему если вызвать форму как у Вас в примере, то потом при удалении формы я в отладчике вижу как она пропадает в списке. Если же вызывать форму как в примереОстап Бонд, то форма не исчезает.

@pashulka · 19.02.2018, 19:50

В обоих примерах видно, что форма удаляется, только у меня визуально это происходит сразу при выполнении .Remove, а у предыдущего оратора, после End Sub

А вообще, более важно то, что при импорте файла UserForm1.frm можно получить форму с именем отличным от UserForm1, поэтому имеет смысл "взять на вооружение" такой синтаксис

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private frm As Object
 
Private Sub Workbook_Open()
    Set frm = VBProject.VBComponents.Import(Path & "\UserForm1.frm")
    UserForms.Add(frm.Name).Show
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    VBProject.VBComponents.Remove frm
    Saved = True 'or Save
End Sub

@d7d1cd · 19.02.2018, 19:57 **[ТС]**

pashulka, спасибо. А как Вашим способом загрузить модуль и выполнить из него функцию?

@pashulka · 19.02.2018, 20:33

Способы импорта у нас одинаковы

Visual Basic
1
2
3
ThisWorkbook.VBProject.VBComponents.Import ThisWorkbook.Path & "\Module1.bas"
result = Application.Run("NameFunction") 'Run("Module1.MyFunction")
MsgBox result

По памяти - альтернативный вариант

Новые блоги и статьи Все статьи Все блоги /
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/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@d7d1cd 279 / 156 / 52 Регистрация: 30.06.2011 Сообщений: 1,712

	Загрузка формы из файла 19.02.2018, 12:11. Показов 2197. Ответов 9 Метки нет (Все метки) Приветствую всех. Есть форма с элементами и кодом, сохранённая в файлах (.frm, .frx). Возможно ли программно, например при открытии книги Excel, загрузить эту форму и вывести ее на экран? 0

Остап Бонд
	19.02.2018, 15:23
	Не по теме: Хотя было бы перед кем бисер сыпать - Замена символов в строке 8-) 0

@d7d1cd 279 / 156 / 52 Регистрация: 30.06.2011 Сообщений: 1,712
	19.02.2018, 16:24 [ТС]
	Остап Бонд, ну ладно Вам вспоминать )). Спасибо! Добавлено через 21 минуту А подскажите еще как удалить эту форму? ...VBComponents.Remove UserForm1 не работает... 0

@d7d1cd 279 / 156 / 52 Регистрация: 30.06.2011 Сообщений: 1,712
	19.02.2018, 19:16 [ТС]
	pashulka, объясните, почему если вызвать форму как у Вас в примере, то потом при удалении формы я в отладчике вижу как она пропадает в списке. Если же вызывать форму как в примереОстап Бонд, то форма не исчезает. 0

@d7d1cd 279 / 156 / 52 Регистрация: 30.06.2011 Сообщений: 1,712
	19.02.2018, 19:57 [ТС]
	pashulka, спасибо. А как Вашим способом загрузить модуль и выполнить из него функцию? 0

Загрузка формы из файла

Решение