[Resolvido]Editar registros em Excel através de formulário access

Boa noite,

Estou desenvolvendo alguns formulários para uma tabela vinculada do Excel. Mas não encontrei código para editar o registro buscando o código na planilha Excel..

Alguém consegue me ajudar?

Seja bem vindo ao fórum.

A planilha está vinculada como tabela? Se sim, basta criar um formulário baseado na tabela.

Bom dia. Obrigado pela resposta.
Sim está como tabela. Eu criei um formulário com os campos da tabela vinculada! Mas o problema é que a tabela fica com os campos bloqueados para edição. Eu quero editar os campos e ao salvar quero atualizar diretamente os respectivos campos na planilha Excel.

Danilo bom dia,

Quando você vincula uma planilha do Excel no Access você consegue somente enxergar os dados, e para editá-los é necessário procedimentos via programação VBA com uma série de validações para editar a linha correta da planilha.

Voce também consegue criar formulários no Excel para editar/excluir/atualizar e pesquisar.

Os vinculos com planilhas é mais utilizado para consultas quando voce precisa buscar determinados valores e combinar com outros dados em tabelas Access e obter os resultados desejados.

Minha sugestão:

- Criar tabela com o mesmo lay-out da planilha
- Criar uma rotina de importação dos dados da planilha para a tabela criada.
- Trabalhar os dados dentro do Access

Espero ter ajudado.

[]'s

FIM

Bom dia Alexandre.
Ajudou sim.. Entendo que as planilhas vinculadas como Tabela são utilizadas somente para consulta de dados,
mas eu realmente queria um código para fazer as edições no arquivo do Excel. Estava com essa necessidade em um controle criado.

Consegui resolver a questão! Segue código para ajudar quem mais precisa..

Private Sub btn_salvar_Click()

Dim xlapp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim xldata As Excel.Range
Dim rowNo As Long

Set xlapp = CreateObject("Excel.Application")
Set xlBook = xlapp.Workbooks.Open(CAMINHO PASTA & ARQUIVO EXCEL)
Set xlSheet = xlBook.Worksheets("ANALÍTICO")

xlapp.Visible = False
xlSheet.Select
xlSheet.Activate

' With ActiveSheet
rowNo = xlBook.Worksheets("ANALÍTICO").Range("D:D").Find(What:=Me.txt_contrato, LookIn:=xlValues).Row
xlBook.Worksheets("ANALÍTICO").Cells(rowNo, 5) = Date

xlBook.Save
xlBook.Close
xlapp.Quit

Set xlSheet = Nothing
Set xlBook = Nothing
Set xlapp = Nothing

MsgBox "Processo concluído!", vbOKOnly + vbInformation

End Sub

Danilo,

Faça um teste de edição de dados no Access com a planilha aberta por outro usuário ou por você mesmo.
Verifique que não vai dar erro ou mensagem de "Somente Leitura".

Boa sorte.

[]'s

FIM