Come applicare un pulsante per aprire un'altra cartella di lavoro in Excel?
In un foglio di lavoro, possiamo inserire un collegamento ipertestuale per collegare un'altra cartella di lavoro, in modo da poterla aprire rapidamente e facilmente. Ma hai mai provato a creare un pulsante per aprire un'altra cartella di lavoro tramite la cartella di lavoro attiva?
Applica un pulsante per aprire un'altra cartella di lavoro con codice VBA
Applica un pulsante per aprire un'altra cartella di lavoro con codice VBA
In Excel, possiamo inserire un pulsante forma e quindi collegarvi un codice. Puoi risolvere questo lavoro con i seguenti passaggi:
1. Clic inserire > Forme > Rettangolo, vedi screenshot:
2. Quindi trascina il mouse per disegnare un pulsante di forma e formattalo secondo le tue necessità, vedi screenshot:
3. E poi tieni premuto il tasto ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
4. Clic inserire > Modulie incolla il codice seguente nel file Moduli Finestra.
Codice VBA: apri una cartella di lavoro specifica:
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
Note:: Nel codice sopra, dovresti cambiare il percorso e il nome del file C: \ Users \ DT168 \ Desktop \ test \ Book2.xlsx al percorso reale della cartella di lavoro a cui desideri collegarti.
5. Quindi salva e chiudi questa finestra del codice, fai clic con il pulsante destro del mouse sul pulsante della forma che hai creato, scegli Assegna macro dal menu contestuale, nel saltato fuori Assegna macro finestra di dialogo, fare clic sul nome della macro Apri cartella di lavoro_Fai clic hai inserito solo ora e fai clic su OK pulsante, vedi screenshot:
6. Ora, quando fai clic sul pulsante forma:
(1.) Se la cartella di lavoro non esiste, verrà visualizzata la seguente finestra di messaggio:
(2.) Se la cartella di lavoro esiste, verrà aperta immediatamente e verrà visualizzata anche una finestra di messaggio per ricordarti:
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!