Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Excel. Надо программно создаю новую книгу и в ней форму / 3 сообщений из 3, страница 1 из 1
08.04.2008, 02:37
    #35241307
Наина
Наина
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel. Надо программно создаю новую книгу и в ней форму
В Excel надо программно создать новую книгу, в ней создать форму, вставитьна нее некоторое кол-во контролов и потом форму "показать"...
кусок кода:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Workbooks.Add
    With ActiveWorkbook.VBProject.VBComponents.Add( 3 )
         .Properties("Width") =  200 
         .Properties("Height") =  100 
         .Properties("Name") = "Teые"
         .Properties("Caption") = "Test"
         With .Designer.Controls.Add("Forms.Label.1")
              .SpecialEffect =  3 
              .Caption = "Форма"
              .TextAlign =  2 
              .Top =  30 
              .Left =  60 
         End With
    VBA.UserForms.Add(.Name).Show
    End With
работает до строки с Show , дальше выдает ошибку "Object required", если вместо ActiveWorkbook поставить ThisWorkbook ошибок нет.
Вопрос: в чем туплю?
только, плиз, к Хелпу не отсылайте.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.04.2008, 08:50
    #35241441
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel. Надо программно создаю новую книгу и в ней форму
Вот эту фразу переведите на "наш"
ActiveWorkbook.VBProject.VBComponents.Add(3)
Через год вы сможете вспомнить о чем шла речь в этой строчке ?
По thisworkbook. Вы в курсе чем этот объект отличается от ActiveWorkbook ?
Так писать нельзя "VBA.UserForms.Add(.Name).Show". Для сопровождения это просто ужос.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.04.2008, 13:13
    #35242299
Наина
Наина
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel. Надо программно создаю новую книгу и в ней форму
авторВот эту фразу переведите на "наш"
ActiveWorkbook.VBProject.VBComponents.Add(3)
оно же
ActiveWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm)
автор
Так писать нельзя "VBA.UserForms.Add(.Name).Show". Для сопровождения это просто ужос.
Почему нельзя?
Разницу между объектами более-менее знаю. Но, возможно, что не помню всех тонкостей
Так все-таки можно решить мою проблему. Или она в варианте активбук не решаема?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Excel. Надо программно создаю новую книгу и в ней форму / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 443ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2162430]:
 0ms
get settings:
 8ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 124ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 31ms
get tp. blocked users:
 1ms
others: 248ms
total:  443ms
x
x
Закрыть


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