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.
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins