VBA é uma linguagem de programação desenvolvida pela Microsoft para uso dentro de uma série de produtos da Microsoft, incluindo o Microsoft Office. Os programadores podem criar bancos de dados em um programa , como o Access , e , em seguida, inserir dados no banco de dados de outro aplicativo, como o Excel. Acessando um banco de dados para inserir um registro em que a partir do VBA requer uma conexão com o banco de dados de dentro de seu código VBA , a criação e inserção de registros de um banco de dados em Visual Basic for Applications é bastante fácil para um programador novato para realizar em poucos passos . Instruções
1
Abra o Microsoft Excel.
2
Clique em "Ferramentas ", " Macro" e clique em " Visual Basic" . Isto irá abrir o ambiente de programação VBA.
3
Clique em "Inserir " e " Módulo ". Agora você está em um módulo de código de programação
4 Tipo
ou copie e cole as seguintes subprocedimentos no módulo de código : .
Sub ADOFromExcelToAccess ()
' exportações dados da planilha ativa para uma tabela em um banco de dados Access
' este procedimento deve ser editado antes do uso
Dim cn As ADODB.Connection , rs Como ADODB.Recordset , r as Long < br >
' conectar-se ao banco de dados Access
Set cn = New ADODB.Connection
cn.Open "Provider = Microsoft.Jet.OLEDB.4.0; " & _
"Data Source = C: \\ FolderName \\ databasename.mdb ; "
' abrir um conjunto de registros
Set rs = New ADODB.Recordset
rs.Open " TableName " , cn , adOpenKeyset , adLockOptimistic , adCmdTable
" todos os registros em uma tabela
r = 3 ' a linha de partida na planilha
do While Len ( Range (" a " & r). Formula) > 0
' repeat até a primeira célula vazia na coluna A
Com rs
. AddNew ' Criar um novo recorde
' adicionar valores para cada campo no registro
. Fields ( " NomeCampo1 ") = Range (" a" & r). Valor
. Fields ( " FieldName2 ") = Range (" B " & r). Valor
. Fields ( " FieldNameN ") = Range (" C " & r). Valor
"adicionar mais campos , se necessário ...
. Atualização das lojas o novo álbum
finais
Com
r = r + 1 ' próxima linha
loop
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub
O modelo de código cria uma conexão com um banco de dados Access e VBA insere vários registros dentro dela. Certifique-se de substituir o nome da pasta eo nome do banco de dados com o banco de dados real e nome da pasta para que isso funcione .
