Hvordan anvender jeg en knap til at åbne en anden projektmappe i Excel?
I et regneark kan vi indsætte et hyperlink for at linke en anden projektmappe, så den kan åbnes hurtigt og nemt. Men har du nogensinde prøvet at oprette en knap for at åbne en anden projektmappe gennem aktiv projektmappe?
Anvend en knap for at åbne en anden projektmappe med VBA-kode
Anvend en knap for at åbne en anden projektmappe med VBA-kode
I Excel kan vi indsætte en formknap og derefter linke en kode til den. Du kan løse dette job med følgende trin:
1. Klik indsatte > Former > rektangel, se skærmbillede:
2. Træk derefter musen for at tegne en formknap, og formater den efter dit behov, se skærmbillede:
3. Og hold så nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
4. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.
VBA-kode: Åbn en specifik projektmappe:
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
Bemærk: I ovenstående kode skal du ændre filstien og navnet C:\Users\DT168\Desktop\test\Book2.xlsx til den rigtige vej til den projektmappe, du vil linke til.
5. Gem og luk derefter dette kodevindue, højreklik på den formknap, du har oprettet, vælg Tildel makro fra genvejsmenuen, i poppet ud Tildel makro dialogboksen skal du klikke på makronavnet Openworkbook_Klik du har indsat lige nu, og klik OK knap, se skærmbillede:
6. Nu, når du klikker på formknappen:
(1.) Hvis projektmappen ikke eksisterer, får du følgende promptboks:
(2.) Hvis projektmappen findes, åbnes den med det samme, og der vises også en promptboks for at minde dig om:
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!