Saber como executar estruturados declarações Query Language contra uma planilha do Excel pode ser valioso . Microsoft Excel é um aplicativo de planilha incluído na suíte Microsoft Office. SQL é usado principalmente em bancos de dados relacionais , mas também pode ser usado para ler uma planilha do Excel. Visual Basic for Applications (VBA) é usado para automatizar tarefas rotineiras dentro dos aplicativos do Microsoft Office . Em poucos passos você pode escrever código VBA para executar uma instrução SQL e ler dados gravados em uma planilha do Excel. Coisas que você precisa
Microsoft Office Access 2007
Microsoft Office Excel 2007
Show Mais instruções
1

Inicie o Microsoft Excel 2007 e digite " Column1 " em " A1 " , " Column2 " em " B1 ".

Tipo " A "em" A2 " , " B " em " A3 " , " C " , em " A4 " , " D " em " A5 . "

Digite " 1 " em " B2 ", "2 " em " B3 ", "3 " em " B4 ", " 4 " em " B5 ".

Salve sua planilha para " C : \\ " como" book1.xls "
2

Inicie o Microsoft Office Access 2007 e clique em" Banco de Dados em Branco ", em seguida, selecione " Criar " . . Clique em "Ferramentas de banco de dados " e selecione "Visual Basic". Clique no botão " Inserir" campo e selecione
3

Digite o seguinte para criar o " runSQLExcel " sub-rotina "Módulo ". :

Private Sub runSQLExcel ()

Pressione " Enter".
4

Digite o seguinte para definir suas variáveis ​​:

Const adOStatic = 3

Const adLkOpt = 3

Const adCmdString = & H1
5

Digite o seguinte para definir e conexões abertas para a planilha Excel:

Set objectConn = CreateObject (" ADODB.Connection " ) < br > Definir

objectRst = CreateObject (" ADODB.Recordset " )

objectConn.Open "Provider = Microsoft.Jet.OLEDB.4.0; " & _

"Data Source = C : \\ Book1.xls ; "& _

" Extended Properties = " " Excel 8.0 ; HDR = Yes ; ""; "
6

Digite o seguinte para executar um SQL declaração e abrir um novo conjunto de registros:

objectRst.Open "SELECT * FROM [ Sheet1 $] ", _

objectConn , adOStatic , adLkOpt , adCmdString
7

digite o seguinte para percorrer os resultados do conjunto de registros e de exibição para ambas as colunas em sua planilha:

do Until objectRst.EOF

MsgBox " Colum1 :" & objectRst.Fields.Item ( . " coluna1 " ) Value & " " & _

" Colum2 : ". & objectRst.Fields.Item ( " coluna2 " ) Valor

objectRst.MoveNext

Circuito

Pressione " F5" para executar o seu sub-rotina.