MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


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.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


2 participantes

    Transformar Vba do Access para Excel

    avatar
    guism
    Novato
    Novato


    Respeito às regras : 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 : 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: 8/11/2024, 03:45