Hur applicerar jag en knapp för att öppna en annan arbetsbok i Excel?
I ett kalkylblad kan vi infoga en hyperlänk för att länka en annan arbetsbok, så att den kan öppnas snabbt och enkelt. Men har du någonsin försökt skapa en knapp för att öppna en annan arbetsbok genom aktiv arbetsbok?
Använd en knapp för att öppna en annan arbetsbok med VBA-kod
Använd en knapp för att öppna en annan arbetsbok med VBA-kod
I Excel kan vi infoga en formknapp och sedan länka en kod till den. Du kan lösa det här jobbet med följande steg:
1. Klicka Insert > Former > rektangel, se skärmdump:
2. Dra sedan musen för att rita en formknapp och formatera den efter dina behov, se skärmdump:
3. Och håll sedan ned ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
4. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.
VBA-kod: Öppna en specifik arbetsbok:
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
Anmärkningar: I ovanstående kod bör du ändra sökvägen och namnet på filen C:\Users\DT168\Desktop\test\Book2.xlsx till den verkliga sökvägen till arbetsboken du vill länka till.
5. Spara och stäng sedan detta kodfönster, högerklicka på formknappen du har skapat, välj Tilldela makro från snabbmenyn, i poppade ut Tilldela makro i dialogrutan klickar du på makronamnet Öppen arbetsbok_Klick du har infogat nyss och klicka OK knapp, se skärmdump:
6. Nu, när du klickar på formknappen:
(1.) Om arbetsboken inte finns får du följande uppmaningsruta:
(2.) Om arbetsboken finns kommer den att öppnas på en gång, och en uppmaningsruta visas också för att påminna dig:
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!