Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.55/11: Рейтинг темы: голосов - 11, средняя оценка - 4.55
279 / 156 / 52
Регистрация: 30.06.2011
Сообщений: 1,712

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

19.02.2018, 12:11. Показов 2197. Ответов 9
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Приветствую всех. Есть форма с элементами и кодом, сохранённая в файлах (*.frm, *.frx). Возможно ли программно, например при открытии книги Excel, загрузить эту форму и вывести ее на экран?
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
19.02.2018, 12:11
Ответы с готовыми решениями:

Загрузка файла с формы
есть форма <input type="file" name="file" id="file"> есть обработчик $uploaddir = '/file/'; $uploadfile = $uploaddir ....

Формы и загрузка файла
Помогите проблема в следующим. Нужно загрузить файл на сервер и записать комментарии в бд. Вобщем нужно проверить данные введённые...

Загрузка файла и формы
Добрый день. Только начал изучать ASP.Net и столкнулся с проблемой: На страничке надо загрузить файл и после указать текстом дату, за...

9
Заблокирован
19.02.2018, 15:15
Лучший ответ Сообщение было отмечено d7d1cd как решение

Решение

В модуль ЭтаКнига
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
Миниатюры
Загрузка формы из файла  
Вложения
Тип файла: zip LoadFrm.zip (10.6 Кб, 3 просмотров)
0
19.02.2018, 15:23

Не по теме:

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

0
279 / 156 / 52
Регистрация: 30.06.2011
Сообщений: 1,712
19.02.2018, 16:24  [ТС]
Остап Бонд, ну ладно Вам вспоминать )). Спасибо!

Добавлено через 21 минуту
А подскажите еще как удалить эту форму? ...VBComponents.Remove UserForm1 не работает...
0
2 / 2 / 0
Регистрация: 18.01.2018
Сообщений: 58
19.02.2018, 16:33
Цитата Сообщение от d7d1cd Посмотреть сообщение
VBComponents.Remove UserForm1
.VBComponents.Delete UserForm1
0
 Аватар для pashulka
4138 / 2242 / 940
Регистрация: 01.12.2010
Сообщений: 4,624
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
1
279 / 156 / 52
Регистрация: 30.06.2011
Сообщений: 1,712
19.02.2018, 19:16  [ТС]
pashulka, объясните, почему если вызвать форму как у Вас в примере, то потом при удалении формы я в отладчике вижу как она пропадает в списке. Если же вызывать форму как в примереОстап Бонд, то форма не исчезает.
0
 Аватар для pashulka
4138 / 2242 / 940
Регистрация: 01.12.2010
Сообщений: 4,624
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
1
279 / 156 / 52
Регистрация: 30.06.2011
Сообщений: 1,712
19.02.2018, 19:57  [ТС]
pashulka, спасибо. А как Вашим способом загрузить модуль и выполнить из него функцию?
0
 Аватар для pashulka
4138 / 2242 / 940
Регистрация: 01.12.2010
Сообщений: 4,624
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

По памяти - альтернативный вариант
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
19.02.2018, 20:33
Помогаю со студенческими работами здесь

Загрузка файла без формы?
Интересует вопрос!? Можно ли загрузить файл на сервер с помощью PHP? То есть кликнул на ссылку допустим (загрузить файл) появилось...

Загрузка файла с формы на сервер
Всем привет!!! Читаю похожие темы , не могу блин сообразить. У меня в приложении создаётся профиль и на форме есть поле input file для фото...

Загрузка файла без подвисания формы
Ребят, посоветуйте что сделать, при загрузке файла форма зависает, когда файл скачивается - отвисает. Кучу примеров перепробовал, даже с...

Загрузка файла из формы через 2 скрипта
Простите если коряво выражаюсь. Подскажите как сделать отправку файла на сервер через 2 скрипта? Т.е. есть файл html c формой и полем...

Обновление формы и загрузка с ini файла
Всем привет! Пишу приложение-тест, необходимо загружать картинки и тестовые ответы(с ini файла). При первичном запуске все загружается...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
Новые блоги и статьи
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 . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru