Як застосувати кнопку для відкриття чергової книги в Excel?

На аркуші ми можемо вставити гіперпосилання, щоб зв’язати іншу книгу, щоб можна було швидко та легко її відкрити. Але чи намагалися ви коли-небудь створити кнопку для відкриття іншої книги за допомогою активної книги?

Застосуйте кнопку, щоб відкрити іншу книгу з кодом VBA

Застосуйте кнопку, щоб відкрити іншу книгу з кодом VBA

В Excel ми можемо вставити кнопку фігури, а потім зв’язати з нею код. Ви можете вирішити цю роботу, виконавши такі дії:

1. Клацання Insert > форми > Прямокутник, див. скріншот:

2. Потім перетягніть мишу, щоб намалювати кнопку фігури, і відформатуйте її відповідно до своїх потреб, див. Знімок екрана:

3. А потім утримуйте кнопку ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

4. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно

Код 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. Потім збережіть і закрийте це вікно коду, клацніть правою кнопкою миші кнопку фігури, яку ви створили, і виберіть Призначити макрос з контекстного меню, що з’явиться Призначити макрос діалоговому вікні клацніть ім'я макросу Openworkbook_Click Ви щойно вставили, і натисніть OK , див. знімок екрана:

6. Тепер, коли ви натискаєте кнопку фігури:

(1.) Якщо робочої книги не існує, ви отримаєте таке вікно із запитом:

(2.) Якщо книга існує, вона буде відкрита відразу, і також з'явиться вікно запиту, щоб нагадати вам:

Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
Понад 300 потужних функцій. Підтримує Office / Excel 2007-2021 і 365. Підтримує всі мови. Легке розгортання на вашому підприємстві чи в організації. 30-денна безкоштовна пробна версія повних функцій. 60-денна гарантія повернення грошей.

Детальніше ... Завантажити безкоштовно... Придбати ...

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!