Determine se uma pasta de trabalho já está aberta usando VBA no Microsoft Excel

Índice

No Excel, podemos determinar se a pasta de trabalho está fechada ou aberta por meio do código VBA. Abaixo está o código VBA e o processo que você precisa colar no módulo de código do arquivo.

1. Abra o Excel
2. Pressione ALT + F11
3. O Editor VBA ABRIRÁ
4. Clique em qualquer lugar na janela do projeto
5. Clique em Inserir
6. Clique em Módulo

7. Na janela de código, copie e cole o código mencionado abaixo

Função WorkbookOpen (WorkBookName As String) As Boolean
'retorna TRUE se a pasta de trabalho estiver aberta
WorkbookOpen = False
Em erro GoToWorkBookNotOpen
If Len (Application.Workbooks (WorkBookName) .Name)> 0 Then
WorkbookOpen = True
Função de saída
Fim se
WorkBookNotOpen:
Função Final

8. Depois de colado, vá para o arquivo Excel
9. Selecione a célula A1
10. Tipo = trabalho
11. Você pode ver que = workbookopen é visível como uma fórmula

12. Inicialmente não estava lá

13. Escreva a fórmula = WorkbookOpen ("test1.xlsx")
14. Aqui, a pasta de trabalho "test1.xlsx" é usada como exemplo. Este arquivo não está aberto.
15. Como este arquivo não está aberto, ele será exibido como “FALSE”

16. Selecione a célula A3
17. Escreva a fórmula = WorkbookOpen ("determine-if-a-workbook-já-open-using-vba-in-microsoft-excel.xlsx")
18. Aqui, a pasta de trabalho "determine-se-uma-pasta-de-trabalho-já-está-aberta-usando-vba-in-microsoft-excel.xlsx" é usada como exemplo. Este arquivo está aberto.
19. Conforme este arquivo é aberto, ele será mostrado como "VERDADEIRO"

É assim que podemos determinar se a pasta de trabalho já está aberta ou não usando o VBA no Microsoft Excel 2010 e Microsoft Excel 2013.

Se você gostou de nossos blogs, compartilhe com seus amigos no Facebook. E você também pode nos seguir no Twitter e no Facebook.
Gostaríamos muito de ouvir de você, diga-nos como podemos melhorar, complementar ou inovar nosso trabalho e torná-lo melhor para você. Escreva-nos em site de email

Você vai ajudar o desenvolvimento do site, compartilhando a página com seus amigos

wave wave wave wave wave