Tendo o conhecimento para passar parâmetros a partir do Microsoft Excel para uma consulta no Microsoft Office Access pode fazer a sua aplicação de banco de dados mais dinâmico. Excel é um aplicativo de planilha , muitas vezes usado para armazenar e analisar grandes quantidades de dados. Access é um sistema de gerenciamento de banco de dados relacional usado para projetar bancos de dados locais . Visual Basic for Applications (VBA) é uma linguagem de programação de computador utilizado para automatizar tarefas de rotina, como passar parâmetros do Excel para o Access. A consulta é usada para recuperar informações de tabelas de banco de dados . Coisas que você precisa
Microsoft Office Access
Microsoft Office Excel
Show Mais instruções
1

Abra o Microsoft Office Excel, tipo "1" em "A1" , " 2 " em " B1 " e " 3 " , em " C1 ". Guarde o livro como " myExceldata " em " C: \\" .
2

Comece Microsoft Office Access, Selecione "banco de dados Bland " e clique em " Criar". Selecione o menu "Banco de Dados Tools" e clique em " Visual Basic ". Clique no menu "Inserir" e selecione " Module ".
3

Clique no menu "Ferramentas" , selecione "Referências ", e marque a caixa ao lado de " Microsoft Excel 4

copie e cole o seguinte código VBA para abrir o livro " myExceldata " . Você vai usar o valor em "B1" como o parâmetro para consultar os dados da tabela " dbAccessTable " criados e exibir a descrição através de uma caixa de mensagem.

Private Sub passExcelParamenters ()

Dim strSQL As String

Dim dbs As Database

Dim rst como Recordset

Dim XLSPar As Integer Dim

XLSApp como Excel.Application

Dim XLXBook Como Excel.Workbook

Dim XLSSheet Como Excel.Worksheet

Set dbs = CurrentDb

Set XLXBook = Workbooks.Add (modelo : = " G: \\ myExcelData . xlsx " )

Set XLSApp = XLXBook.Parent

Definir XLSSheet = XLXBook.Worksheets ( " Sheet1 " )

Com XLSSheet

. Range (" B1 " ) . Selecione

XLSPar = Selection.Value

End With

XLXBook.Close

strSQL =" CREATE TABLE dbAccessTable ( NÚMERO prod_id , Prodct TEXT ); "

DoCmd.SetWarnings Falso

DoCmd.RunSQL ( strSQL )

strSQL =" INSERT INTO dbAccessTable ( prod_id , Prodct ) "

strSQL = strSQL & " VALUES (1, ' Carros '); "

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO dbAccessTable ( prod_id , Prodct ) "

strSQL = strSQL & " VALUES (2, ' Caminhões '); "

DoCmd.RunSQL ( strSQL )

sqlstr = "SELECT dbAccessTable.Prod_ID , dbAccessTable.Prodct " < br >

sqlstr = sqlstr & "FROM dbAccessTable "

sqlstr = sqlstr & " WHERE ( ( ( dbAccessTable.Prod_ID ) =" & ( XLSPar ) & ")); "

Set rst = dbs.OpenRecordset ( sqlstr )

rst.MoveLast

rst.MoveFirst

MsgBox " A descrição para identificação do produto em B1 é" & rst . Campos (1). Valor

rst.Close

dbs.Close

End Sub
5

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