Pesquisar este blog

terça-feira, 25 de maio de 2010

Faça SELECT nas planilhas de Excel !

EXATAMENTE! execute cláusulas SQL em planilhas do Excel!
Eu também um dia não acreditei!

Mas é bem simples, vamos inicialmente garantir que um componente foi adicionado ao projeto VBA

  • Abra o ambiente VBA pressionando as teclas Alt+F11
  • Vá ao menu Ferramentas(Tools) / Referencias (references)
  • Localize e adicione a referencia "Microsoft activeX 2.8 Data Objects Library"
  • Agora adicione um novo módulo VBA de código ao seu arquivo
  • Menu Inserir(Insert) / Módulo (Module)
  • Cole o Código abaixo e altere o nome da planilha e altere as variaveis
  • arquivo e nomePlanilha de acordo com seus valores

Sub SQLXL()

Dim objConnection As ADODB.Connection
Dim objRecordset As New ADODB.Recordset

Set objConnection = CreateObject("ADODB.Connection")
Set objRecordset = CreateObject("ADODB.Recordset")

arquivo= "C:\Documents and Settings\Usuario\Desktop\ExemploSQL.xls"
NomePlanilha = "Plan1"

'Conexao
objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & arquivo & ";" & _
"Extended Properties=""Excel 8.0;HDR=Yes;"";"

'Setar recordset
objRecordset.Open "SELECT * FROM [" & NomePlanilha & "$] WHERE nomecampo = 'x'", _
objConnection, adOpenStatic, adLockOptimistic, adCmdText

End Sub

Nenhum comentário:

Postar um comentário

Veja também estas dicas

Related Posts Plugin for WordPress, Blogger...