Como aplicar um botão para abrir outra pasta de trabalho no Excel?

Em uma planilha, podemos inserir um hyperlink para vincular outra pasta de trabalho, de modo que ela possa ser aberta rapidamente e facilmente. Mas você já tentou criar um botão para abrir outra pasta de trabalho por meio da pasta de trabalho ativa?

Aplicar um botão para abrir outra pasta de trabalho com código VBA

Aplicar um botão para abrir outra pasta de trabalho com código VBA

No Excel, podemos inserir um botão de forma e, em seguida, vincular um código a ele. Você pode resolver essa tarefa seguindo os passos abaixo:

1. Clique em Inserir > Formas > Retângulo, veja a captura de tela:

2. Em seguida, arraste o mouse para desenhar um botão de forma e formate-o conforme sua necessidade, veja a captura de tela:

3. E então, mantenha pressionado as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

4. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.

Código VBA: Abrir uma pasta de trabalho específica:

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

Observação: No código acima, você deve alterar o caminho do arquivo e o nome C:\Users\DT168\Desktop\test\Book2.xlsx para o caminho real da pasta de trabalho que deseja vincular.

5. Em seguida, salve e feche esta janela de código, clique com o botão direito no botão de forma que você criou, escolha Atribuir Macro no menu de contexto, na caixa de diálogo Atribuir Macro que apareceu, clique no nome da macro Openworkbook_Click que você inseriu agora, e clique no botão OK, veja a captura de tela:

6. Agora, quando você clicar no botão de forma:

(1.) Se a pasta de trabalho não existir, você receberá a seguinte caixa de aviso:

(2.) Se a pasta de trabalho existir, ela será aberta imediatamente e uma caixa de aviso também será exibida para lembrá-lo:

Desbloqueie a Magia do Excel com o Kutools AI

• Execução Inteligente: Realize operações de células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
• Fórmulas Personalizadas: Gere fórmulas sob medida para otimizar seus fluxos de trabalho.
• Codificação VBA: Escreva e implemente código VBA sem esforço.
• Interpretação de Fórmulas: Compreenda fórmulas complexas com facilidade.
• Tradução de Texto: Supere barreiras linguísticas dentro de suas planilhas.

Potencialize suas capacidades no Excel com ferramentas alimentadas por IA. Baixe Agora e experimente uma eficiência como nunca antes!