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

    [Resolvido]Enviar Dados para planilha especifica

    avatar
    dias2011
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 90
    Registrado : 13/08/2012

    [Resolvido]Enviar Dados para planilha especifica Empty Enviar Dados para planilha especifica

    Mensagem  dias2011 14/5/2013, 13:06

    Bom dia Caros colegas do Forum!

    Preciso de uma instrução.

    Tenho 3 tabelas no access que ao clicar em determinado botão elas são transportadas para o excel.
    Quero saber como faço para que independente da tabela que eu queria enviar para o excel ela sempre cole na mesma planilha do excel [mesmo que seje para colar encima de outra informação].
    Abaixo segue função que estou usando, sendo que está cria uma planilha para cada tabela e não atende ao que eu preciso, o motivo é por eu ter um grafico ligado a esta planilha.

    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "Intervalo Alteração", "Z:\Vendas\Patricia Freire\Access-Excel\Contatos Realizados.xlsm", True

    Agradeço desde já atenção.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Enviar Dados para planilha especifica Empty Re: [Resolvido]Enviar Dados para planilha especifica

    Mensagem  JPaulo 14/5/2013, 13:55

    Veja o código:

    Exporta para Excel

    http://maximoaccess.forumeiros.com/t11-102-codigos-vba-para-access


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Enviar Dados para planilha especifica Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Enviar Dados para planilha especifica Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Enviar Dados para planilha especifica Folder_announce_new Instruções SQL como utilizar...
    avatar
    dias2011
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 90
    Registrado : 13/08/2012

    [Resolvido]Enviar Dados para planilha especifica Empty Re: [Resolvido]Enviar Dados para planilha especifica

    Mensagem  dias2011 14/5/2013, 14:32

    Obrigada JPaulo

    É realmente oque eu estou precisando, vou apenas adaptar ao que preciso, alem disso todas as outras dicas que estão no forum também são boas.

    Obrigada.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Enviar Dados para planilha especifica Empty Re: [Resolvido]Enviar Dados para planilha especifica

    Mensagem  JPaulo 14/5/2013, 14:57

    Aguardamos o seu retorno.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Enviar Dados para planilha especifica Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Enviar Dados para planilha especifica Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Enviar Dados para planilha especifica Folder_announce_new Instruções SQL como utilizar...
    avatar
    dias2011
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 90
    Registrado : 13/08/2012

    [Resolvido]Enviar Dados para planilha especifica Empty Re: [Resolvido]Enviar Dados para planilha especifica

    Mensagem  dias2011 14/5/2013, 18:48

    JPaulo, Boa Tarde

    Fiz os testes e funcionou perfeitamente, muito Obrigada.

    Agora como eu faço nesta rotina para pedir que ele apague tudo que estiver nesta planilha a partir da linha 2?
    avatar
    dias2011
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 90
    Registrado : 13/08/2012

    [Resolvido]Enviar Dados para planilha especifica Empty Re: [Resolvido]Enviar Dados para planilha especifica

    Mensagem  dias2011 14/5/2013, 19:07

    JPaulo eu consegui momentaneamente uma solução

    No evento eu modifiquei a seguinte parte:

    xls.Worksheets("Plan1").Activate
    ' excluir registros no excel
    xls.Rows("2:10000").Select
    xls.Selection.ClearContents


    Como meus registros não passam de 10.000 linhas eu coloquei até esta linha, mas se você tiver alguma outra ideia para me passar, ficarei muito grata, mas a minha tbm está funcionando Very Happy

    Abraços

    Daniela
    avatar
    dias2011
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 90
    Registrado : 13/08/2012

    [Resolvido]Enviar Dados para planilha especifica Empty Re: [Resolvido]Enviar Dados para planilha especifica

    Mensagem  dias2011 14/5/2013, 19:27

    JPaulo, desculpe pelo incomodo, mas tenho um problema com a função

    Set xls = CreateObject("Excel.Application")
    strLivro = CurrentProject.Path & "\teste.xls"
    xls.Workbooks.Open (strLivro)

    O meu arquivo está no servidor no caminho "Z:\Vendas\....teste.xls"
    Ele não está reconhecendo o meu caminho :/ só reconhece quando eu coloco no meu descktop.
    Como posso arrumar?
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Enviar Dados para planilha especifica Empty Re: [Resolvido]Enviar Dados para planilha especifica

    Mensagem  JPaulo 14/5/2013, 21:40

    CurrentProject.Path indica que o seu Excel está junto do banco, pode alterar para o caminho pretendido.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Enviar Dados para planilha especifica Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Enviar Dados para planilha especifica Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Enviar Dados para planilha especifica Folder_announce_new Instruções SQL como utilizar...
    avatar
    dias2011
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 90
    Registrado : 13/08/2012

    [Resolvido]Enviar Dados para planilha especifica Empty Re: [Resolvido]Enviar Dados para planilha especifica

    Mensagem  dias2011 15/5/2013, 11:56

    Obrigada Very Happy

    Este era meu erro, pq o meu BD estava no Desktop para teste junto com o excel, agora coloquei os 2 juntos no meu servidor e esta funcionando.

    Att.

    Daniela
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Enviar Dados para planilha especifica Empty Re: [Resolvido]Enviar Dados para planilha especifica

    Mensagem  JPaulo 15/5/2013, 17:35

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Enviar Dados para planilha especifica Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Enviar Dados para planilha especifica Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Enviar Dados para planilha especifica Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


    [Resolvido]Enviar Dados para planilha especifica Empty Re: [Resolvido]Enviar Dados para planilha especifica

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 07:08