Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - VBA

Страница: 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-сайт: www.shoyadshoh.narod.ru
 Профиль | | #9
Добавлено: 29.08.04 11:25
Ну как! Сделал меню ?
Если нет у меня есть вообще классный пример мыль мне и я тебе отправлю

Ответить

Номер ответа: 10
Автор ответа:
 mc-black



ICQ: 308-534-060 

Вопросов: 20
Ответов: 1860
 Web-сайт: mc-black.narod.ru/dzp.htm
 Профиль | | #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-сайт: mc-black.narod.ru/dzp.htm
 Профиль | | #12
Добавлено: 10.09.04 12:44
Тогда рекомендую OfficeXP сразу ставить (но это не из-за меню а вообще..) Пиши e-mail - вышлю мой пример.

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам