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

    [Resolvido]Erro na exportação do formulário principal para o Excel

    Silvio
    Silvio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4754
    Registrado : 20/04/2011

    [Resolvido]Erro na exportação do formulário principal para o Excel Empty [Resolvido]Erro na exportação do formulário principal para o Excel

    Mensagem  Silvio 5/1/2019, 13:17

    Prezados, bom dia a todos.

    Preciso de uma ajuda. Através da rotina abaixo exporto dados do formulário principal para uma planilha em Excel.
    Acontece que mesmo depurando o mesmo, aparece o nome que consta no formulário principal, mas ao abrir a planilha consta outro nome de outro cliente.

    A rotina que tem no subformulário está rodando legal...


    Abaixo a rotina.
    Código:
        Dim RstFrm As DAO.Recordset, RstSubFrm As DAO.Recordset, l As Integer
        Dim MeuExcel As Object
        Set MeuExcel = CreateObject("Excel.Application")
        MeuExcel.Visible = True
        MeuExcel.Workbooks.Open FileName:=CurrentProject.Path & "\ZAROO.xlsx"  'ZAROO é o nome da planilha e tem que estar no mesmo folder do sistema
       
        Set RstFrm = Me.RecordsetClone
            RstFrm.Bookmark = Me.RecordsetClone.Bookmark
            MeuExcel.Range("C7") = RstFrm("cliente") '
            MeuExcel.Range("S7") = RstFrm("NomeFantasia") '
            MeuExcel.Range("C13") = RstFrm("CNPJ") '
            MeuExcel.Range("C14") = RstFrm("InscrEstadual") '
            MeuExcel.Range("C8") = RstFrm("endereco") & " ," & RstFrm("Numero") '
            MeuExcel.Range("C9") = RstFrm("Bairro") '
            MeuExcel.Range("C10") = RstFrm("Cidade") '
            MeuExcel.Range("C11") = RstFrm("Estado") '
            MeuExcel.Range("C12") = RstFrm("CEP") '
            MeuExcel.Range("H11") = RstFrm("Fone") & " / " & RstFrm("Celular") '
            MeuExcel.Range("C16") = RstFrm("EmailNF") '
            MeuExcel.Range("H13") = RstFrm("Prazoculta") '
            MeuExcel.Range("S6") = RstFrm("ContatoCliente") '
            MeuExcel.Range("S4") = RstFrm("DataPed")
            MeuExcel.Range("S3") = RstFrm("VendedorOculta") '
            MeuExcel.Range("B23") = RstFrm("Observacao") '
            MeuExcel.Range("V2") = RstFrm("NossoPedido") '

    Alguém poderia me dar uma luz ?? Já refiz....já mexi...e não consigo entender o que há de errado nessa rotina.

    Tanto que exportei para uma planilha completamente vazia e o " erro " ocorre.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Dilson
    Dilson
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvido]Erro na exportação do formulário principal para o Excel Empty Re: [Resolvido]Erro na exportação do formulário principal para o Excel

    Mensagem  Dilson 5/1/2019, 15:07

    Olá Silvio !

    Nesse trecho:
    RstFrm.Bookmark = Me.RecordsetClone.Bookmark

    Experimente assim:
    RstFrm.Bookmark = Me.Bookmark
    Silvio
    Silvio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4754
    Registrado : 20/04/2011

    [Resolvido]Erro na exportação do formulário principal para o Excel Empty Re: [Resolvido]Erro na exportação do formulário principal para o Excel

    Mensagem  Silvio 7/1/2019, 11:32

    bom dia a todos...

    Dilson desculpe-me pela demora em lhe responder, mas já viu né...fim e começo de ano...parentes que não tem noção.

    Testei a mudança...e deu certo. Muito obrigado pela tua ajuda.

    Abraços.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Dilson
    Dilson
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvido]Erro na exportação do formulário principal para o Excel Empty Re: [Resolvido]Erro na exportação do formulário principal para o Excel

    Mensagem  Dilson 10/1/2019, 23:27

    Opa meu amigo, também sofro desse mal - Risos("hahaha").

    Ótimo. Até a próxima !

      Data/hora atual: 25/7/2021, 04:16