Listar todas planilhas abertas - VBA Excel

[Fellipe Coelho de Morais]

Olá pessoal!

 

Estou criando um programa em VBA para Excel no qual para realizar uma tarefa, ele precisa gerar antes, uma lista com todas as planilhas que estão abertas no sistema. Como eu poderia fazer isso? 

 

Desde já agradeço a ajuda.

[Basole]

Veja esse exemplo, de rotina + funcao que verifica se a Pasta_de_trabalho esta aberta ou não.

Tente adaptar a uma rotina que lista as planilhas.

 

Sub Verif_Arquivo_Aberto()
    Dim strFile As Variant
                         
      strFile = IsWorkBookOpen _
         ("C:\temp\Nome_Sua_Planilha.xlsx") '* Altere diretorio/nome do arq.

    If strFile = True Then
        MsgBox "Arquivo esta Aberto"
    Else
        MsgBox "Arquivo esta Fechado"
    End If
End Sub

Function IsWorkBookOpen(FileName As String)
    Dim ff As Long, ErrNo As Long

    On Error Resume Next
    ff = FreeFile()
    Open FileName For Input Lock Read As #ff
    Close ff
    ErrNo = Err
    On Error GoTo 0

    Select Case ErrNo
    Case 0:    IsWorkBookOpen = False
    Case 70:   IsWorkBookOpen = True
    Case Else: Error ErrNo
    End Select
End Function

  

[Fellipe Coelho de Morais]

Obrigado pelo retorno!

Mas este código retorna somente caso eu tenha o nome da planilha, ou seja, um nome fixo. Eu precisava listar todas as planilhas abertas, independente do nome.

Felizmente consegui resolver este problema usando a Sub abaixo. Era mais simples do que parecia.

 

Sub ListarPlanilhasAbertas()

 

    Dim wb As Workbook
    Dim row, collumn As Integer

 

row = 1
collumn = 1

 

    For Each wb In Application.Workbooks
          
          Cells(row, collumn).Value = wb.Name
          row = row + 1
          
    Next wb

 

End Sub

 

Obrigado novamente!