... Pague apenas R$47,00 uma única vez e tenha acesso por 1 ano aos vídeos e arquivos exemplos do site ...

Clique aqui e obtenha mais detalhes.


Manipular dados de uma planilha Excel usando o Recordset

Podemos usar o Recordset para manipular os dados de uma planilha.  Veja esta imagem:

Usando Access - Update plainilha Excel

Vamos acrescentar à lista mais um produto.  Acompanhe os comentários do código proposto:

Public Sub fncATualizarPlanilha()
Dim strTabela As String
Dim strSQL As String
Dim bdExcel As DAO.Database
Dim rs As DAO.Recordset
'Passa o local e nome do arquivo para a variável
strArquivo = CurrentProject.Path & "\ListaClientes.xls"
'Abre arquivo ListaClientes.xls
Set bdExcel = OpenDatabase(strArquivo,False,False,"Excel 12.0;HDR=Yes;IMEX=0;")
'Monta a consulta do Recordset
strSQL = "SELECT * FROM [Planilha1$]"
'Abre o Recordset da consulta
Set rs = bdExcel.OpenRecordset(strSQL)
'Adiciona novo produto à lista
rs.AddNew
    rs!id = 6
    rs!Produto = "Tesoura"
    rs![Valor Produto] = "18,70"
rs.Update
'fecha o Recordset
rs.Close
Set rs = Nothing
'Fecha o arquivo Excel
bdExcel.Close
Set bdExcel = Nothing
MsgBox "A planilha foi atualizada...", vbInformation, "Aviso"
End Sub

Observe o produto inserido à lista, após a execução do código:

Usando Access - Uso do Recordset em planilha Excel

 

Desafio:

Crie um planilha Excel com a lista de produtos apresentada aqui e altere o código acima para realizar a transferência dos dados dessa planilha para uma tabela no Access.

Bom estudo!


 

 


Não há comentário

Envie seu comentário: