Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/13: Рейтинг темы: голосов - 13, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 21.05.2009
Сообщений: 101

Можно ли формы загружать из отдельного файла (.frm)?

22.06.2009, 17:14. Показов 2554. Ответов 9
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Можно ли формы загружать из отдельного файла (.frm)? Дело в том я хочу сократить размер .xls, чтобы быстрее грузился.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
22.06.2009, 17:14
Ответы с готовыми решениями:

Какие общие правила для написания отдельного класса/файла с условием/заданием и отдельного класса с методом решен?
Например: условие задания: public class Main { public static void main(String args) { int source = {1, 2, 3, 4, 5, 6, 7, 8,...

Каким образом лучше загружать данные из текстового файла? Можно ли обойтись при этом только js, не используя php?
Всем привет, столкнулся с определенной проблемой, у меня есть текстовый файл, в котором находятся слова в алфавитном порядке, состоящие из...

Обновление контрола формы из отдельного потока не класса формы
Привет. Нужно подпнуть, что-то я не догоняю... Запускаю по клику отдельный поток для вычислений, в этом потоке есть обращение к другому...

9
1 / 1 / 1
Регистрация: 29.12.2008
Сообщений: 108
22.06.2009, 21:01
Вообще можно организовать циклы загрузки-выгрузки форм, но это будет все таки медленней, да и размер файла не сильно уменьшат. А вот ручная выгрузка-загрузка единоразово может неплохо повлиять на размер (у меня было до 200 кб при файле в 1,5 м). Вообще нужно для уменьшения размера файла заняться самими рабочими листами. Удалить ненужное форматирование и т.д.

Сергей
0
0 / 0 / 0
Регистрация: 21.05.2009
Сообщений: 101
23.06.2009, 10:28  [ТС]
Сергей, извини, но я немного не понял ответ: что такое ручная загрузка-выгрузка формы.
И зачем вообще нужны .frm, кто-то знает?
0
1 / 1 / 1
Регистрация: 29.12.2008
Сообщений: 108
23.06.2009, 14:20
*.frm - это файлы форм, а *.bas - файлы модулей, *.cls - файлы модулей класса в VBA (да и в VB тоже). Если кликнешь правой кнопкой по форме, то сможешь выбрать опцию 'Export'. Твоя форма сохраниться в вышеуказанном формате на винте. Затем ты ей делаешь Remove, а потом Import. Глядишь размер файла и уменьшится (бывает и глюки пропадают, кроме конечно, подаренных от Microsoft).

Сергей
0
0 / 0 / 0
Регистрация: 21.05.2009
Сообщений: 101
23.06.2009, 15:02  [ТС]
А как это сделать программно?
0
0 / 0 / 0
Регистрация: 21.05.2009
Сообщений: 101
25.06.2009, 18:39  [ТС]
Ну хоть скажите, что нельзя этого сделать.
0
1 / 1 / 1
Регистрация: 29.12.2008
Сообщений: 108
25.06.2009, 22:26
Be cool, man. Дойду до дома,-напишу

Сергей
0
1 / 1 / 1
Регистрация: 29.12.2008
Сообщений: 108
26.06.2009, 16:07
Это код на выгрузку всех компонентов VBA в определенную директорию
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub ExportAllVBA()
Dim VBComp As VBIDE.VBComponent
Dim Sfx As String
 
For Each VBComp In ActiveWorkbook.VBProject.VBComponents
    Select Case VBComp.Type
        Case vbext_ct_ClassModule, vbext_ct_Document
           Sfx = '.cls'
        Case vbext_ct_MSForm
           Sfx = '.frm'
        Case vbext_ct_StdModule
           Sfx = '.bas'
        Case Else
           Sfx = ''
    End Select
    If Sfx <> '' Then
       VBComp.Export _
          Filename:='c: emp ' & VBComp.Name & Sfx 'поменяй директорию
    End If
Next VBComp
 
Это код для удаления элементов (удаляет сам себя в том числе, а также все коды, находящиеся в листах и ЭтаКнига)
 
Sub NoWayOutSuicide()
' Перед запуском зайди в VBA-Tools-References  и выбери Microsoft
'Visual Basic for applications Extensibility 5.3(или твой вариант)
Dim VBComp As VBComponent
For Each VBComp In ThisWorkbook.VBProject.VBComponents
    Debug.Print VBComp.Name, VBComp.Type
    If VBComp.Type = 100 Then
        VBComp.CodeModule.DeleteLines 1, VBComp.CodeModule.CountOfLines
    Else
        ThisWorkbook.VBProject.VBComponents.Remove VBComp
    End If
Next
End Sub
Для импорта впишешь ThisWorkbook.VBProject.VBComponents.Impo rt (с указанием чего). Думаю сам справишься.

Сергей
0
0 / 0 / 0
Регистрация: 21.05.2009
Сообщений: 101
28.06.2009, 10:32  [ТС]
Откуда ты все это знаешь?
Просто супер.Большое спасибо.
0
1 / 1 / 1
Регистрация: 29.12.2008
Сообщений: 108
28.06.2009, 16:23
OK

Сергей
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
28.06.2009, 16:23
Помогаю со студенческими работами здесь

Забыл сделать бэкап базы,но остались файлы *.frm, можно ли восстановить?
Забыл сделать бэкап базы,но остались файлы *.frm, можно ли восстановить? Не доглядел и форматнул винчестер, думал, что есть бэкап базы,...

Нужно при загрузке формы загружать рандомный беграунд формы
Нужно при загрузке формы загружать рандомный беграунд формы. Все беграунды сохранены в отдельной папке. Пытался сделать сам не очень...

Скриншот формы из отдельного потока
Подскажите, нужно получить Form1 из другого потока, как изменять texbox'ы и т.д из потоков я знаю, а как получить Form1? Добавлено...

eMbedded VB 3.0. Как загружать и выгружать формы?
Тем кто программирует на eMbedded VB 3.0. У меня не работают функции Load, Unload для форм.Что делать? Как загружать и выгружать...

Echo False для отдельного элемента формы
Здравствуйте! Существует ли аналог Echo False (отключение обновления экрана) для отдельного элемента формы?


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

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
Новые блоги и статьи
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда
anaschu 31.03.2026
В прикрепленном документе раздумья о том, как можно поменять модель в будущем
10 пpимет, которые всегда сбываются
Maks 31.03.2026
1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .
Перемещение выделенных строк ТЧ из одного документа в другой
Maks 31.03.2026
Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave
DevAlt 30.03.2026
Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
Автоматическое создание документа при проведении другого документа
Maks 29.03.2026
Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .
Настройка движения справочника по регистру сведений
Maks 29.03.2026
Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника
Maks 27.03.2026
Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
Сумматор с применением элементов трёх состояний.
Hrethgir 26.03.2026
Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru