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


    [Resolvido]Copiar caixa de texto para celula do Excel

    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 05/03/2017

    [Resolvido]Copiar caixa de texto para celula do Excel Empty [Resolvido]Copiar caixa de texto para celula do Excel

    Mensagem  fazerbem em 18/5/2019, 17:48

    Por favor algume sabe um comando vba , estando eu com o Access aberto e o Excel aberto , copiar uma caixa de texto para uma celula do excel ?

    Uso seguinte comando no access para abrir o Excel:

    Código:
    Application.FollowHyperlink "C:\Gerencia\SysVendas\TabelaTeste.xlsx"

    Quero copiar o conteudo da caixa de texto do Access, usando um botao de comando, para dentro da celula A1 por exemplo da planilha Tabela Texte.slsx

    Grato
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6406
    Registrado : 15/03/2013

    [Resolvido]Copiar caixa de texto para celula do Excel Empty Re: [Resolvido]Copiar caixa de texto para celula do Excel

    Mensagem  ahteixeira em 18/5/2019, 22:52

    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 05/03/2017

    [Resolvido]Copiar caixa de texto para celula do Excel Empty Re: [Resolvido]Copiar caixa de texto para celula do Excel

    Mensagem  fazerbem em 19/5/2019, 02:19

    Procurar eu procurei, mas talvez tenha faltado algum filtro a mais. Agradeco pela sua ajuda.
    Assim ficou meu codigo , mas da erro em:

    'Dim xl As New Excel.Application
    'Dim xlw As Excel.Workbook
    Tipo nao foi definido pelo usuario

    Código:
    Private Sub Imagem95_Click()
    If MsgBox("SIM - Abre Tabela Excel            NÃO - Imprime usando Access ", vbYesNo + vbInformation, "Finalizando") = vbYes Then
    'Application.FollowHyperlink "C:\Gerencia\SysVendas\MEI-Declaração Mensal de Receitas Brutas.xlsx"

    Dim xl As New Excel.Application
    Dim xlw As Excel.Workbook

    'Abrir o arquivo do Excel
    Set xlw = xl.Workbooks.Open("C:\Gerencia\SysVendas\MEI-Declaração Mensal de Receitas Brutas.xlsx")

    ' definir qual a planilha de trabalho
    xlw.Sheets("Abril").Select

    'Exibe o conteúdo da célula na posição 2,3

    ' variavel = xlw.Application.Cells(2, 3).Value
    MsgBox xlw.Application.Cells(2, 3).Value

    ' Fechar a planilha sem salvar alterações
    ' Para salvar mude False para True

    xlw.Close True

    ' Liberamos a memória

    Set xlw = Nothing
    Set xl = Nothing

    Else
    DoCmd.OpenReport "RelatórioMei", acViewNormal
    End If
    End Sub
    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 05/03/2017

    [Resolvido]Copiar caixa de texto para celula do Excel Empty Re: [Resolvido]Copiar caixa de texto para celula do Excel

    Mensagem  fazerbem em 19/5/2019, 02:23

    talvez ate mesmo esteja faltando alguma referencia a ser incluida no VBA
    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 05/03/2017

    [Resolvido]Copiar caixa de texto para celula do Excel Empty Re: [Resolvido]Copiar caixa de texto para celula do Excel

    Mensagem  fazerbem em 19/5/2019, 02:27

    era isso mesmo vou testar aqui e comento

    faltava a referencia Microsoft excel 15.0 object library
    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 05/03/2017

    [Resolvido]Copiar caixa de texto para celula do Excel Empty Re: [Resolvido]Copiar caixa de texto para celula do Excel

    Mensagem  fazerbem em 19/5/2019, 02:56

    Perfeito !

    Depois de inserir a referencia no VBA, e fazer os ajustes necessarios, ficou perfeito, segue o codigo.

    Código:
    Private Sub Imagem95_Click()
    If MsgBox("SIM - Abre Tabela Excel            NÃO - Imprime usando Access ", vbYesNo + vbInformation, "Finalizando") = vbYes Then

    Dim xl As New Excel.Application
    Dim xlw As Excel.Workbook
    Dim A

    'Abrir o arquivo do Excel
    Set xlw = xl.Workbooks.Open("C:\Gerencia\SysVendas\MEI-Declaração Mensal de Receitas Brutas.xlsx")

    If A2 = "Márcia Lima do Espírito Santo" Then
    A = Me.Mes
    Else
    A = Me.Mes2
    End If

    ' definir qual a planilha de trabalho
    xlw.Sheets(A).Select

    'Exibe o conteúdo da célula na posição 2,3

    xlw.Application.Cells(9, 2).Value = Me.A4
    xlw.Application.Cells(9, 3).Value = Me.A5
    'MsgBox xlw.Application.Cells(9, 2).Value
    'MsgBox xlw.Application.Cells(9, 3).Value

    ' Fechar a planilha sem salvar alterações
    ' Para salvar mude False para True

    xlw.Close True

    ' Liberamos a memória

    Set xlw = Nothing
    Set xl = Nothing

    Else
    DoCmd.OpenReport "RelatórioMei", acViewNormal
    End If
    End Sub
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6406
    Registrado : 15/03/2013

    [Resolvido]Copiar caixa de texto para celula do Excel Empty Re: [Resolvido]Copiar caixa de texto para celula do Excel

    Mensagem  ahteixeira em 19/5/2019, 09:36

    Olá André Luiz,

    Fico feliz por ter conseguido, obrigado pela partilha de como ficou.
    O fórum agradece.

    Abraço

    Conteúdo patrocinado

    [Resolvido]Copiar caixa de texto para celula do Excel Empty Re: [Resolvido]Copiar caixa de texto para celula do Excel

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 15/12/2019, 04:54