Как применить кнопку, чтобы открыть другую книгу в Excel?
На листе мы можем вставить гиперссылку, чтобы связать другую книгу, чтобы ее можно было быстро и легко открыть. Но пробовали ли вы когда-нибудь создать кнопку для открытия другой книги через активную книгу?
Применить кнопку, чтобы открыть другую книгу с кодом VBA
Применить кнопку, чтобы открыть другую книгу с кодом VBA
В Excel мы можем вставить кнопку формы, а затем связать с ней код. Вы можете решить эту задачу, выполнив следующие шаги:
1. Нажмите Вставить > Формы > Прямоугольные, см. снимок экрана:
2. Затем перетащите мышь, чтобы нарисовать кнопку формы, и отформатируйте ее по своему усмотрению, см. Снимок экрана:
3. А затем удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
4. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.
Код VBA: откройте конкретную книгу:
Sub Openworkbook_Click()
'Updateby Extendoffice
Dim xWb As Workbook
Dim wbName As String
On Error Resume Next
Set xWb = Workbooks.Open("C:\Users\DT168\Desktop\test\Book2.xlsx")
wbName = xWb.Name
If Err.Number <> 0 Then
MsgBox "This workbook does not exist!", vbInformation, "Kutools for Excel"
Err.Clear
Else
MsgBox "This workbook is opened!", vbInformation, "Kutools for Excel"
End If
End Sub
Внимание: В приведенном выше коде вы должны изменить путь и имя файла C: \ Users \ DT168 \ Desktop \ test \ Book2.xlsx на реальный путь к книге, на которую вы хотите создать ссылку.
5. Затем сохраните и закройте это окно кода, щелкните правой кнопкой мыши кнопку формы, которую вы создали, выберите Назначить макрос из контекстного меню во всплывающем Назначить макрос диалоговом окне щелкните имя макроса Ажурная книга_Нажмите вы вставили только что и щелкните OK кнопку, см. снимок экрана:
6. Теперь, когда вы нажимаете кнопку формы:
(1.) Если книга не существует, появится следующее окно подсказки:
(2.) Если книга существует, она будет открыта сразу же, а также появится окно подсказки, напоминающее вам:
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!