Как встроить кнопку в новы документ

267

13 октября 2003 года

Cutty Sark

1.2K / / 17.10.2002

Ты имеешь ввиду - чтобы при работе макроса создавался программно документ с уже написанным макросом? Если да, то я не умею. Боюсь, что и никто не умеет. ВБА командует только над Экселем (Вордом, Аксессом), но не над ВБА.

305

13 октября 2003 года

Kashuk

385 / / 21.02.2003

Жаль, тогда наверно придется сделать заготовок и в него копировать. Но все равно спасибо

459

14 октября 2003 года

gacol

273 / / 12.02.2003

Вот работающий пример. Надо создать CommandButton и записать на нее этот код. Должна открыться новая книга, в ней создается CommandButton с приветствием.

Private Sub CommandButton1_Click()
Workbooks.Add
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
, DisplayAsIcon:=False, Left:=164.25, Top:=27, Width:=45, Height:= _
41.25).Select

n = Application.VBE.VBProjects.Count
Application.VBE.ActiveVBProject.VBComponents(2).CodeModule.InsertLines 1, "Private Sub CommandButton1_Click()"
Application.VBE.ActiveVBProject.VBComponents(2).CodeModule.InsertLines 2, "MsgBox ""Hello from new book!"""
Application.VBE.ActiveVBProject.VBComponents(2).CodeModule.InsertLines 3, "End Sub"
End Sub

267

14 октября 2003 года

Cutty Sark

1.2K / / 17.10.2002

А в 97-м такой штуки нет! Понятно, почему я об этом не знаю...

478

16 октября 2003 года

XtreamAll

279 / / 01.10.2003

Недавно открыл подобную тему, но ответа так и не получил:(
:-? А можно открыть редактор VBA (програмно, через VB например), затем открыть нужный проект (по идее должно появиться окошко "Enter password"), определить его и ввести пароль...
...надо попробовать...:!!!:

459

16 октября 2003 года

gacol

273 / / 12.02.2003

Если я правильно понял, ты поставил пароль на просмотр проекта?
У меня все работает и в этом случае - и кнопка в новой книге создается и код переписывается.
Перешли свой пример - подумаем.

478

16 октября 2003 года

XtreamAll

279 / / 01.10.2003

Вота!
Тупо, но работает...

Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Declare Function GetFocus Lib "user32" () As Long

Sub Main()
Dim XL As Object
Dim UserProphile As String
Dim MyWB As Object
Dim VBAHWND

Dim username As String
Dim slength As Long
Dim retval As Long

username = Space(255)
slength = 255

retval = GetUserName(username, slength)

username = Left(username, slength - 1)
'Обрати внимание на путь...
UserProphile = "C:\Documents and Settings\" & username & "\Application Data\Microsoft\Excel\XLSTART\"
Set XL = CreateObject("Excel.Application")
XL.Visible = True
With XL
Set MyWB = .workbooks.open(FileName:=UserProphile & "PERSONAL.XLS")
End With
SendKeys ("%{F11}"), True
Call GetFocus
SendKeys ("^{r}"), True
SendKeys "{Enter}", True
'Здеся по буквам пиши свой пароль...
SendKeys "{p}", True
SendKeys "{a}", True
SendKeys "{s}", True
SendKeys "{s}", True
SendKeys "{w}", True
SendKeys "{o}", True
SendKeys "{r}", True
SendKeys "{d}", True
SendKeys "{Enter}", True
End Sub

305

17 октября 2003 года

Kashuk

385 / / 21.02.2003

Пароль на открытие goliaph
Пароль на листы zaq
пароль на ВБ 12297

459

17 октября 2003 года

gacol

273 / / 12.02.2003

У меня zip не открывается. То ли поломан, то ли больно новый формат. Может пошлешь самораспаковывающий?

459

18 октября 2003 года

gacol

273 / / 12.02.2003

Твой пример со второго раза распаковался.
После небольшой доделки он нормально прошел.
Я был немного не прав (мало опыта переноса кода) с Application.VBE.ActiveVBProject.VBComponents(2)
Я думал, что 2-й компонент это всегда "Лист1", а он в твоем случае писал на "ЭтаКнига".
Дабы этого избежать надо определить нужный компонент, например

For Each c In Application.VBE.ActiveVBProject.VBComponents
If c.Name = "Лист1" Then Exit For
Next c

и потом обращаться
c.CodeModule.InsertLines 1, "Private Sub..."

После такой доработки твоя симпатичная программа спрашивала пароль только в начале -GOLIAPH-. Потом все работало и кнопка на прайс листе обрабатывала заказы. Правда первый раз я ее нажал не введя в графе заказы ничего и программа зависла. Наверное следует сделать "защиту от дурака" (от меня ;) ).

И еще. Первый лист в создаваемой книги может не всегда называться "Лист1" в английском Офиссе - Sheet1, а на другой мове еще как-то. Тебе следует возможно это предусмотреть.

305

18 октября 2003 года

Kashuk

385 / / 21.02.2003

Я беру именно номер страницы (1), думаю так сработает.

З.Ы. Как вам "альфа" версия документа, покатит?

459

20 октября 2003 года

gacol

273 / / 12.02.2003

Имеешь ввиду вместо "Лист1" использовать
Sheets(1).name. Да так и надо. Как-то сразу не дотумкал.

Версия мне нравится, правда я по другому ведомству. :)

305

20 октября 2003 года

Kashuk

385 / / 21.02.2003

Теперь напрашивается парочка других вопросов:
1-Что если открыто много екселевских документов?
2-Как изменить Caption кнопки.
3-Как встроить пару кнопок и их различать.

459

20 октября 2003 года

gacol

273 / / 12.02.2003

Вопрос 2. Ответ.
Надо перед Caption ставить Object
Selection.Object.Caption = "Заказ1"

Вопрос 3. Ответ.
Пробовал ставить вторую кнопку - вылетает Эксель. Буду разбираться.

267

20 октября 2003 года

Cutty Sark

1.2K / / 17.10.2002

Мой прогноз ответа на Вопрос 3: после добавления 1-й кнопки фокус оказывается у нее. Поэтому большая часть операций с переменной ActiveSheet невыполнима. Попробуйте перед добавлением кнопки сделать ActiveCell.Activate
Это очень полезная штука.

267

20 октября 2003 года

Cutty Sark

1.2K / / 17.10.2002

Если в файле есть хоть один встроенный объект - любой макрос надо начинать с этого. Дело в том, что у кнопки можно свойство TakeFocusOnClick сделать False. Но если перед кнопкой юзер скажем, менял какой-нибудь CheckBox - фокус тогда останется у CheckBox-a - и привет, приплыли. Но не факт, что конкретно в вышеизложенном случае именно в этом ошибка - это просто мое предположение.

459

21 октября 2003 года

gacol

273 / / 12.02.2003

Увы. И с полезной штукой вылетает.
Вот код для начальной кнопки.

Private Sub CommandButton1_Click()
Workbooks.Add
'-------------------- add 1st button
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
, DisplayAsIcon:=False, Left:=164.25, Top:=27, Width:=45, Height:= _
41.25).Select
Selection.Object.Caption = "Zakaz1"
For Each c In Application.VBE.ActiveVBProject.VBComponents
If c.Name = Sheets(1).Name Then Exit For
Next c
c.CodeModule.InsertLines 1, "Private Sub CommandButton1_Click()"
c.CodeModule.InsertLines 2, "MsgBox ""Zakaz 1"""
c.CodeModule.InsertLines 3, "End Sub"
'-------------------- add 2nd button
ActiveCell.Activate
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.2", Link:=False _
, DisplayAsIcon:=False, Left:=164.25, Top:=127, Width:=45, Height:= _
41.25).Select
Selection.Object.Caption = "Zakaz2"
c.CodeModule.InsertLines 4, "Private Sub CommandButton2_Click()"
c.CodeModule.InsertLines 5, "MsgBox ""Zakaz 2"""
c.CodeModule.InsertLines 6, "End Sub"
End Sub

305

21 октября 2003 года

Kashuk

385 / / 21.02.2003

Нет, так не пойдет ( Sheets(1) ), при таком раскладе оно дописывает в текущий документ, получается два одинаковых события.
Я сделаю по другому, в начале присвою какое-то особое имя, к примеру 1224400ваыв23, и по нему буду искать нужный лист, а потом поменяю на что-то нормальное.

478

21 октября 2003 года

XtreamAll

279 / / 01.10.2003

Попробуйте обращаться к нужному листу через CommandButton:

ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
, DisplayAsIcon:=False, Left:=164.25, Top:=27, _ Width:=45, Height:=41.25).Select
'Здесь присваиваем переменной кнопку.
Set CB = Selection.Object
CB.Caption = "Caption"
'Специально выбираем другой лист.
Sheets(3).Select
'Активируем кнопку.
CB.Activate
'Имя листа соответствует листу с кнопкой!
nAm = ActiveSheet.Name
For Each c In Application.VBE.ActiveVBProject.VBComponents
If c.Name = nAm Then Exit For
Next c
With c
.CodeModule.InsertLines 2, "Private Sub " & CB.Name & "_Click()"
.CodeModule.InsertLines 3, "MsgBox ""Zakaz 1"""
.CodeModule.InsertLines 4, "end sub"
End With

...у меня вроде работает:)

459

21 октября 2003 года

gacol

273 / / 12.02.2003

Гланды можно вырезать конечно по-всякому.
Если кнопку надо вставлять не в активную книгу - пиши в какую. Вместо 'особого имени' листа проще запомнить или задать имя книги после ее создания

Workbooks.Add
wb1 = ActiveWorkbook.Name

а потом прямо обращаться в лоб
wb1.Sheets(1).Name

478

21 октября 2003 года

XtreamAll

279 / / 01.10.2003

Если верно:
Workbooks.Add
wb1 = ActiveWorkbook.Name,
то не
wb1.Sheets(1).Name,
а
Workbooks(wb1).Sheets(1).Name
А еще лучше:
Set wb1=Workbooks.Add
и тогда верно:
wb1.Sheets(1).Name