MaximoAccess

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

Obrigado

Administração do MaximoAccess


Participe do fórum, é rápido e fácil

MaximoAccess

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

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    Transformar Vba do Access para Excel

    avatar
    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 Empty Transformar Vba do Access para Excel

    Mensagem  guism 31/8/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
    avatar
    Cesar Quintanilha
    Novato
    Novato

    Respeito às Regras 100%

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

    Transformar Vba do Access para Excel Empty Ajuda

    Mensagem  Cesar Quintanilha 31/8/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: 6/3/2021, 10:29