domingo, 27 de dezembro de 2009

Verificar se uma planilha existe numa pasta fechada via VBA

Às vezes me deparo com pedidos estranhos em grupos de discussões e fóruns da vida.
Acabei de ver agora, um colega que precisa ver se uma planilha existe numa pasta que está fechada.
Tempos atrás eu precisei usar a linguagem SQL no VBA para inserir dados numa outra planilha, cuja pasta poderia ou não estar aberta. Para contornar isso, usei o ADO.
Importante: não esquecer de marcar a referência "Microsoft Active Data Objects" (versão de 2.6 para cima).
Aproveitando para relembrar conceitos... uma "pasta" do Excel contém planilhas (é muito comum as pessoas chamarem pastas de planilhas e confundirem pasta do Excel com pasta do Windows que são coisas bem diferentes!).


;-)



Sub ver()
Dim arquivo As String
arquivo = "c:\teste.xls"
Dim cnn As New ADODB.Connection
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;data source = " _
& arquivo & ";Extended Properties=Excel 8.0;"

On Error Resume Next
cnn.Execute "SELECT top 1 * from [planilha1$]"
If Err.Number = 0 Then
MsgBox "Planilha existe"
Else
MsgBox "Planilha não existe"
End If

cnn.Close
Set cnn = Nothing

End Sub


Um comentário:

Anônimo disse...

Valeu por disponibilizar o código para consulta, muito bom e resumido.

Grande Abraço
Marcelo

Pesquisar este blog

Arquivo do blog

Quem sou eu

Minha foto
Administrador de Empresas/Técnico em Processamento de Dados. Microsoft Office User Specialist - Excel Proficient. Pós-graduado em Business Intelligence.