Verificar se uma planilha esta aberta

No meu dia a dia,  trabalho muito com transferência de dados de uma planilha para outra. Para ser capaz de fazer isso, é necessário  ter certeza se o outro arquivo já está aberto ou não.

A seguir uma função em excel  para verificar se uma pasta de trabalho que nós precisamos está aberta ou não.

[sourcecode highlight=”” language=”vb”]
Public Function ChecarPlanilha(sNomePlanilha As String) As Boolean
Dim wb As Workbook, bResultado As Boolean
bResultado = False
For Each wb In Application.Workbooks
If InStr(LCase(wb.Name), LCase(sNomePlanilha)) > 0 Then
bResultado = True
Exit For
End If
Next wb
ChecarPlanilha = bResultado
End Function
[/sourcecode]

Usando o nome do arquivo como um parâmetro de entrada, a função irá fazer um loop na coleção de pastas de trabalho para verificar todas que abriu. Se existe um arquivo com o mesmo nome que  estamos procurando, então a função retornará verdadeiro e falso caso contrário.

[youtube=http://www.youtube.com/watch?v=KIjr1CLw3Lo]

Elquisson Lima | elkysson@gmail.com