Hoe voegt u een knop toe om een andere werkmap te openen in Excel?
In een werkblad kunt u een hyperlink invoegen om direct naar een andere werkmap te koppelen, zodat deze snel en eenvoudig wordt geopend. Maar heeft u ooit geprobeerd een knop te maken om via het huidige werkboek een andere werkmap te openen?
Een knop toepassen om een andere werkmap te openen met VBA-code
Een knop toepassen om een andere werkmap te openen met VBA-code
In Excel kunt u een vormknop invoegen en deze vervolgens koppelen aan code. Volg deze stappen om de taak uit te voeren:
1. Klik op Invoegen > Vormen > Rechthoek, zie de schermafbeelding:
2. Sleep vervolgens met de muis om een vormknop te tekenen en pas deze naar wens aan—zie schermafbeelding:
3. Houd daarna de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
4. Klik op Invoegen > Module en plak de volgende code in het Module-venster.
VBA-code: Een specifieke werkmap openen:
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
Opmerking: In de bovenstaande code moet u het pad C:\Users\DT168\Desktop\test\Book2.xlsx aanpassen naar het daadwerkelijke pad van de werkmap waaraan u wilt koppelen.
5. Sluit het codevenster daarna via Opslaan en sluiten, klik met de rechtermuisknop op de vormknop die u hebt gemaakt en kies Macro toewijzen in het contextmenu. Klik in het verschijnende dialoogvenster Macro toewijzen op de macro-naam Openworkbook_Click die u zojuist hebt ingevoegd en bevestig met de knop OK. Zie schermafbeelding:
6. Wanneer u nu op de vormknop klikt:
(1.) Als de werkmap niet bestaat, krijgt u het volgende meldingsvenster:
(2.) Als de werkmap wel bestaat, wordt deze onmiddellijk geopend en verschijnt er ook een meldingsvenster als herinnering:
Ontgrendel de magie van Excel met KUTOOLS AI
- Slimme uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak grafieken — allemaal met eenvoudige opdrachten.
- aangepaste formules: Genereer op maat gemaakte formules om uw workflows te stroomlijnen.
- VBA-programmeren: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules moeiteloos.
- Tekstvertaling: Doorbreek taalbarrières in uw spreadsheets.
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins