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
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