Transformar Vba do Access para Excel

Pessoal,

Utilizo um sistema de automação em Vba, que captura informações de um sistema e joga esses dados numa tabela do Acess. Entretanto, só sei montar esses sistemas no Access. Gostaria de aprender a fazê-lo no Excel, utilizando as referências próprias daquele programa.

Se alguém tiver alguma dica ou indicar sites que posso aprender a fazer essa mesma linguagem com as referências do Excel, agradeço.

Segue exemplo:


Private Sub btCaptura_Click()
If Len(Me.txtChave) <> 8 Or Len(Me.txtSenha) <> 8 Or IsNull(Me.txtChave) Or IsNull(Me.txtSenha) Then
MsgBox "Preencha os campos 'Chave' , 'Senha' corretamente.", vbExclamation, "Erro"
Me.txtChave.SetFocus
Exit Sub
End If

btCaptura.StatusBarText = "Aguarde o término do processo."

chave = Me.txtChave
senha = Me.txtSenha

Teclar ("sistema"), 15, 14
Teclar (Me.txtSenha), 16, 14
Entra

Do While Copiar(3, 35, 1) <> "M"
Entra
Loop

Captura

db.Close

Desconectar
KillSistema (lngHandle)

MsgBox "Processo concluído"
End Sub

Public Sub Captura()

Dim i As Integer
Dim Ultima As String


Teclar "04", 21, 20
Entra

Do While Copiar(3, 22, 1) <> "F"
Loop

i = 11

Set db = CurrentDb
Set rsTabela = db.OpenRecordset("select * from tabela")
Set rsBase = db.OpenRecordset("select * from Base")

rsBase.MoveFirst

Do While Not rsBase.EOF

Teclar "06", 21, 20
Entra
Do While Copiar(3, 30, 1) <> "E"
Loop
Teclar rsBase!Matricula, 5, 14
Entra
If Copiar(23, 3, 5) = "DADOS" Then 'Dados inexistentes
rsBase.Edit
rsBase!Obs = Copiar(23, 3, 60)
F3
rsBase.Update
rsBase.MoveNext
Else
Do While Copiar(5, 26, 1) <> " "
rsTabela.AddNew
rsTabela!Matricula = rsBase!Matricula
rsTabela!verba = Copiar(i, 4, 3)
rsTabela.Update
i = i + 1
If i = 21 Then
i = 11
F8
Atraso
If Copiar(23, 4, 1) = "l" Then
F3
End If
End If
Loop
rsBase.MoveNext
End If
Loop
End Sub

guism, tudo bem?


O vba que roda no access não é muito diferente do que roda no excel, se você tem uma fonte de dados conectada no access você consegue ligar ela ao excel, a conexão com fontes de dados é feita via ADO ou DAO, no acces e no excel.


Tenta identificar onde esta a conexão do sistema com o access para poder adapta-la para o excel.