restart the book.xls

[ruavia3]

Как можно с помощью CommandButton - перезагрузить книгу.xls?
Представляю приблизительно алгоритм, но не знаю как дописать код.

Private Sub CommandButton1_Click()

Application.Quit

'Выходим из книги, не закрывая Excel, открываем последний открываемый файл.xls


End Sub

[pivas]

Пропишите код в Личной книге макросов (personal.exe):

Sub CommandButton1_Click()
Имяфайла = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
ActiveWindow.Close
    Workbooks.Open Filename:=Имяфайла
End Sub

[ruavia3]

Этот файл будет передаваться по почте, сработает ли у другого, если я пропишу в личной книге?

[pivas]

Нет. На другой машине надо будет проводить ту же операцию.

[Aent]

ruavia3, попробуйте так

Private Sub CommandButton1_Click()
     Application.OnTime Now, "Reopen"
     ' предполагаем что книгу сохранять вам не надо
     ThisWorkbook.Close False
End Sub
Public Sub Reopen()
     ThisWorkbook.Activate
End Sub

А в чём для вас смысл этой операции ? Обработчик Workbook_Open
можно вызвать и непосредственно ...

[ruavia3]

Выдает " the macro "C:\\....\book1.xls'!Reopen' cannot be found.

[pivas]

Тогда можно просто:

Public Sub обновить()
Workbooks.Open Filename:=ActiveWorkbook.Name
End Sub

только не знаю, как убрать передупреждение об изменениях.

[ruavia3]

Ошибка макроса, говорится, что документ уже открыт.предлагается либо End, либо Debug

[pivas]

Попробуйте так:

Sub обновить()
Application.DisplayAlerts = False
Workbooks.Open Filename:=ActiveWorkbook.Name
Application.DisplayAlerts = True
End Sub

[Aent]

ruavia3, попробуйте поместить код

Public Sub Reopen()
     ThisWorkbook.Activate
End Sub

не в код листа а в отдельный модуль кода.
У меня с Excel 2003 работает.