Есть таблица xl ,куда заносятся данные через форму.На форме - кнопка,Которая открывает другой файл xl,в котором есть кнопка "сохранить". И вот эта кнопка должна проделать обратный путь-
активизировать первый файл ,открыть форму и нажать кнопку "Сохранить".Все что у меня получилось это активизировать лист

Private Sub CommandButton1_Click()
Windows("Форма заказа.xls").Activate
ActiveWindow.WindowState = xlNormal
End Sub

Старуха , могу предложить следующий вариант решения:

Код

Private WithEvents xlAppp2    As Excel.Application Public Sub s()   Set xlAppp2 = New Application   xlAppp2.Workbooks.Open "c:\Book1.xls"   'открываем второй excel   xlAppp2.Visible = True                  'показываем его   Application.Visible = False             'скрываем первый End Sub Private Sub xlAppp2_WorkbookBeforeClose(ByVal Wb As Excel.Workbook, Cancel As Boolean)   'перед закрытием второго, покажем первый excel   Application.Visible = True End Sub

Спасибо.Пойду разбираться

Вот это -все есть.Дальше надо ,после открытия первого xl открыть форму UserForm2 и нажать переключатель OptionBatton3 и кнопку "Сохранить" .UserForm.Show - не проходит(Эта форма открывается тоже кнопкой ,но я не знаю как кнопки программно нажимать.Подскажите.Я запомню на всю жизнь.)

Старуха, что то я запутался.
Первый excel открывает второй, что после этого происходит? И для чего тебе второй? И что происходит в первом после закрытия второго?

Основная работа в первом xl.Туда через форму вводятся данные ,которые там же общитываются.Но есть сложные(нестандартные) расчеты которые находятся во втором xl.Я нажимаю кнопку на форме UserForm2,попадаю во второй xl. Вношу данные происходит перерасчет и нажимаю кнопку Сохранить.Эта кнопка должна Активизировать первый xl(см.выше),открыть форму UserForm2 нажать переключатель ,что бы xl1 считывал данные из второго xl ,а не из программы,и Нажать кнопку ,которая все это вставит на место.Вручную все это делается.Хотелось бы кнопки программно нажимать

Старуха, и что именно ты хочешь автоматизировать?

А кнопочки не надо нажимать.
Попробуй вызвать обработчик кнопки. (Перед этим объяви его как Public)

Это сообщение отредактировал(а) boevik - 21.6.2004, 11:04

пользуйся методами
workbooks("NAME").close - (закрыть книгу)
workbooks("NAME").save или workbooks("NAME").saveas (путь) - (сохранить книгу)

хотя если в книге были изменения метод close сам спросит о сохранении

а чтобы программно выполнить процедуру "повешенную" на кнопку, можешь сделать так:

создаешь SUB имя процедуры , копируешь туда команды из кнопки
и вставляешь в событие книги, например activate команду call имя процедуры
и при активизации книги excel выполнится то что тебе нужно

Попробуй вызвать обработчик кнопки. (Перед этим объяви его как Public Z я с твоим советом как мартышка и очки.
А вот с bankusom дальше ушла.Осталось кнопку нажать в форме.В свойстве книги xl1 не пляшет.Пляшет только ,когда переключатель - True

Старуха,

Цитата

Осталось кнопку нажать в форме.

Что вызывает нажатие кнопки? Вызывает обработчик события, обычно состоящее из имени объекта и имени события.
К примеру, Command1_Click
Вот и вызови его там где тебе надо.
А если надо вызвать из вне формы, то обработчик объявляешь как Public и вызываешь

Код

UserForm1.Command1_Click

О да.Я думаю это то что надо,Большое спасибо.Там Sergey объявился

UserForm1.Command1_Click - это работает внутри одного проекта.А xl1 и xl2 - два разных документа и форму в xl1 xl2 не видит.Я думаю Public будет работать ,если два xl-я загнать в один проект.А как?

Старуха

Цитата

UserForm1.Command1_Click - это работает внутри одного проекта.А xl1 и xl2 - два разных документа и форму в xl1 xl2 не видит.

Всё верно, поэтому давай обманем xl1

Сделай макров в xl2 (в котором расположена форма), которое эмулирует нажатие кнопки.
Из другого проекта (xl1) запускай это макро.

Давай обманем.Завтра.

If (OptionButton3.Value = True And TextBox21.Text = 1) Then

CommandButton2_Click
End If

Обмануть не получилося.А получилося так
в xl1 в ячейке ВВ1 формула: =xl2;AA1.
При нажатии кнопки"Сохранить" во втором xl в первом-АА1=1
TextBox21.Text = Range("BB1")
Работает