Страница: 1 |
Страница: 1 |
Вопрос: Создание меню
Добавлено: 05.08.04 11:56
Автор вопроса: l_str
Пожалуйста, помогите. Только начинаю программировать в VBA, пытаюсь создать меню, беру пример из книги, это начало
Private Sub CommandButton1_Click()
Dim FinMenu1 As CommandBar
Dim Ssudi As CommandBarControl, Renti As CommandBarControl
Dim Inv As CommandBarControl
Dim Dolg As CommandBarControl
Dim Kratk As CommandBarButton
Dim Dolg1 As CommandBarButton, Dolg2 As CommandBarButton
Set FinMenu1 = CommandBars.Add(Name:="Pom Finansista", _
Position:=msoBarFloating, MenuBar:=False, Temporary:=False)
FinMenu1.Visible = False
With FinMenu1
Set Ssudi = .Controls.Add(Type:=msoControlPopup)
Ssudi.Caption = "SSudi"
и т.д.
При выполнении на 1-ой коменде Set Finmenu1 ...
выдает ошибку
Run Time Error 5
Invalid Procedure call or argument
Что не так?
Заранее благодарна.
Ответы
Всего ответов: 12
Номер ответа: 1
Автор ответа:
tea84
Вопросов: 4
Ответов: 8
Профиль | | #1
Добавлено: 05.08.04 14:56
странно, у меня все прошло без ошибки..
Номер ответа: 2
Автор ответа:
l_str
Вопросов: 1
Ответов: 4
Профиль | | #2
Добавлено: 05.08.04 15:25
Может у меня чего-то не доустановлено? Чего-то не хватает?
Я работаю в EXCELe 2000 и там у меня не проходит, хоть умри.
Номер ответа: 3
Автор ответа:
l_str
Вопросов: 1
Ответов: 4
Профиль | | #3
Добавлено: 05.08.04 15:25
Может у меня чего-то не доустановлено? Чего-то не хватает?
Я работаю в EXCELe 2000 и у меня не проходит, хоть умри.
Номер ответа: 4
Автор ответа:
Бывалый
ICQ: 243613085
Вопросов: 2
Ответов: 6
Профиль | | #4
Добавлено: 06.08.04 12:00
Поставь себе Office 2003 и забудь про все проблемы. Странно, почему он ещё у тебя не стоит?
Номер ответа: 5
Автор ответа:
Бывалый
ICQ: 243613085
Вопросов: 2
Ответов: 6
Профиль | | #5
Добавлено: 06.08.04 12:03
К стати в самом конце своей процедуры напиши
End With
End Sub
и должно всё пойти!
Номер ответа: 6
Автор ответа:
l_str
Вопросов: 1
Ответов: 4
Профиль | | #6
Добавлено: 06.08.04 12:27
Спасибо большое за ответ. У меня естественно все Endы стоят, это я там кусочек просто вырвала. А вообще уже сделала по-другому (с модификацией меню Excela), но просто интересно, почему не проходит, пример из книги. И у моей сотрудницы, в другой организации, тоже оффис 2000 и все проходит, без проблем. Как и один ответ был. Просто не понятно почему, а это всегда противно и хочется разобраться.
Номер ответа: 7
Автор ответа:
Бывалый
ICQ: 243613085
Вопросов: 2
Ответов: 6
Профиль | | #7
Добавлено: 06.08.04 12:45
Хм! Странно, но по моему при установке твоего Office 2000 у установщика сработал синром "кривые руки" поэтому и не пошло а вообще-то я советую тебе дорогая переди ты на Office 2003 и не мучся ты со стариком 2000-ным. Правда если у тебя Хрюша стоит то ты обалдеешь от Интерфейса Office 2003, а если 98 или 2000-ная винда то всех прелестей не заметишь, нно всё равно лучше намного это ты сразу почувствуешь! И ещё при установке пакета Office 2003 исползуй стандартныу установку которая задаются по умолчанию, не ставь выборочно. Затем в редакторе VBA Эксэля подключишь нужные библиотеки, такие как DAO 3.6 например дла работы с базами данных и т.д.
Номер ответа: 8
Автор ответа:
Бывалый
ICQ: 243613085
Вопросов: 2
Ответов: 6
Профиль | | #8
Добавлено: 06.08.04 12:48
1_str ! Напиши свои координаты (АСЬКА, МЫЛО)
Номер ответа: 9
Автор ответа:
Zafar
Вопросов: 9
Ответов: 14
Web-сайт:
Профиль | | #9
Добавлено: 29.08.04 11:25
Ну как! Сделал меню ?
Если нет у меня есть вообще классный пример мыль мне и я тебе отправлю
Номер ответа: 10
Автор ответа:
mc-black
ICQ: 308-534-060
Вопросов: 20
Ответов: 1860
Web-сайт:
Профиль | | #10
Добавлено: 09.09.04 16:08
Всё оччень просто! В Ide меню Tools->Refrences проверь, стоит ли галочка на Microsoft Office 10.0 Object Library (у тебя 2000, значит не 10.0, но работать будет обязательно!!!). Твой пример РАБОТОСПОСОБНЫЙ 100%
Номер ответа: 11
Автор ответа:
l_str
Вопросов: 1
Ответов: 4
Профиль | | #11
Добавлено: 10.09.04 09:28
Спасибо за ответ.
Проверила сразу же, но к большому сожалению у меня стоит эта птица.
У меня их 4.
Visial Basic for Applications
Microsoft Excel 9.0 Object Library
Ole Automation
Microsoft Office 9.0 Object Library
Самое интересное, что у моей приятельницы, она в другой организации работает, вроде все тоже, но у нее работает это, а у меня вот не пошло.
Я пока выкрутилась по-другому, а вообще думаю переставить Office, может в моем просто глюк какой.
А вообще еще раз спасибо за желание помочь
Номер ответа: 12
Автор ответа:
mc-black
ICQ: 308-534-060
Вопросов: 20
Ответов: 1860
Web-сайт:
Профиль | | #12
Добавлено: 10.09.04 12:44
Тогда рекомендую OfficeXP сразу ставить (но это не из-за меню а вообще..) Пиши e-mail - вышлю мой пример.