Usando Access

Atualizar dados de uma planilha Excel, usando a consulta UPDATE

Adquira a assinatura vitalícia do site e passe a ter acesso aos arquivos exemplos, vídeos, revistas, livros e ao kit de montagem de ribbons. Você terá suporte por e-mail, caso necessite tirar dúvidas pontuais. Clique AQUI e veja como obter um dos nossos planos. Clique AQUI e faça uma visita a seção Downloads do site e verifique as centenas de arquivos que estará à sua disposição. Clique AQUI e faça uma visita a seção Vídeos do site e veja a lista que estará disponível ao se tornar o nosso assinante vitalício. Clique AQUI e saiba mais detalhes sobre o kit de montagem de ribbons (deixe seus aplicativos com aspecto profissional).

Podemos usar uma consulta UPDATE() para atualizar dados de uma planilha.  Vamos supor que eu tenha a seguinte planilha e que queira reajustar os valores dos produtos em 10%:

Acompanhe, com atenção, os comentários do código:

Public Sub fncATualizarPlanilha()
Dim strTabela As String
Dim strSQL As String
Dim bdExcel As dao.Database

Dim strArquivo$

'Passa o local e nome do arquivo para a variável

strArquivo = CurrentProject.Path & "\ListaClientes.xls"
'Abre o arquivo ListaClientes.xls
Set bdExcel = OpenDatabase(strArquivo,False,False,"Excel 12.0;HDR=Yes;IMEX=0;")
'Informa o nome da planilha a ser atualizada
strTabela = "[Planilha1$]"
' Consulta que irá atualizar em 10% o valor dos produtos
strSQL ="UPDATE " & strTabela & " SET [valor produto]=([valor produto] * 1.1);"
' Executa a consulta
bdExcel.Execute strSQL
'Fecha o arquivo Excel
bdExcel.Close
Set bdExcel = Nothing
MsgBox "A planilha foi atualizada...", vbInformation, "Aviso"
End Sub

Após executar o código, veja os valores atualizados em 10%:

Agora, se eu quiser reajustar apenas o valor da Furadeira (id=3) em mais 15%, basta acrescentar a cláusula WHERE na SQL.  Observe o código:

...
strSQL ="UPDATE " & strTabela & " SET [valor produto]=([valor produto] * 1.15)"

strSql = strSql " WHERE id = 3;"

...

Bom estudo!

Os dez artigos mais visitados

MontaRibbons v.7.0 - Assistente completo para criar ribbons no Access

Vídeo - Controle personalizado de Acesso de Usuários

Vídeo - Segurança máxima, usando o OPEN

Vídeo - Aprenda sobre filtragens

Uma ajuda para quem está começando um negócio ou um projeto

Vídeo - Programação de relatórios - Parte 1

Desabilitando a faixa(ribbon) superior do Access

Adquira o kit UsandoAccess e aprenda em alta velocidade

Integrando o Access com Servidor MySQL - Introdução

Como carregar o seu menu sem que ele vá para lista de suplementos

| Home | Vídeos | Tutoriais | Dicas | Ribbons | Suporte | Downloads | Contato | Artigo |