MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Transformar Vba do Access para Excel

    Compartilhe

    guism
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 23
    Registrado : 05/11/2015

    Transformar Vba do Access para Excel

    Mensagem  guism em Qua 31 Ago 2016, 17:28

    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

    Cesar Quintanilha
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 22/08/2016

    Ajuda

    Mensagem  Cesar Quintanilha em Qua 31 Ago 2016, 18:52

    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.


      Data/hora atual: Sex 24 Nov 2017, 03:58