Как да приложа бутон за отваряне на друга работна книга в Excel?
В работен лист можем да вмъкнем хипервръзка, за да свържем друга работна книга, така че да я отворим бързо и лесно. Но опитвали ли сте някога да създадете бутон за отваряне на друга работна книга чрез активна работна книга?
Приложете бутон за отваряне на друга работна книга с VBA код
Приложете бутон за отваряне на друга работна книга с VBA код
В Excel можем да вмъкнем бутон с форма и след това да свържем код към него. Можете да решите тази задача със следните стъпки:
1. Щракнете Поставете > Фигури > Правоъгълник, вижте екранна снимка:
2. След това плъзнете мишката, за да нарисувате бутон с форма и го форматирайте според вашите нужди, вижте екранната снимка:
3. И след това задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
4. Щракнете Поставете > Модулии поставете следния код в Модули Window.
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_Щракнете сте вмъкнали току-що и щракнете OK бутон, вижте екранната снимка:
6. Сега, когато щракнете върху бутона за форма:
(1.) Ако работната книга не съществува, ще получите следното поле за подкана:
(2.) Ако работната книга съществува, тя ще бъде отворена веднага и също ще се появи поле за подкана, за да ви напомни:
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!