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


3 participantes

    [Resolvido]Exportar mais de uma "Sheets" para outro arquivo.

    avatar
    scharlesjose
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 31/05/2015

    [Resolvido]Exportar mais de uma "Sheets" para outro arquivo. Empty [Resolvido]Exportar mais de uma "Sheets" para outro arquivo.

    Mensagem  scharlesjose 31/5/2015, 00:59

    Estou querendo exportar planilhas de dados de um arquivo para outro, só que até o momento não consegui realizar essa tarefa.

    Exemplo:

    Tenho a as planilhas x1, x2, x3, x4, x5 e x6 num arquivo NomeQualquer,

    preciso exportar as planilhas x2, x4, x5 e x6 sem prejudicar a "NomeQualquer", e esta que foi exportada aparecer com nome Empresa x.

    Se alguém puder ajudar fico grato desde já.


    Última edição por scharlesjose em 16/6/2015, 21:14, editado 1 vez(es)
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Exportar mais de uma "Sheets" para outro arquivo. Empty Re: [Resolvido]Exportar mais de uma "Sheets" para outro arquivo.

    Mensagem  Alvaro Teixeira 15/6/2015, 17:57

    Olá, bem vindo ao fórum.
    Pretende fazer isso através do Excel ou Access?
    Abraço
    avatar
    scharlesjose
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 31/05/2015

    [Resolvido]Exportar mais de uma "Sheets" para outro arquivo. Empty Re: [Resolvido]Exportar mais de uma "Sheets" para outro arquivo.

    Mensagem  scharlesjose 15/6/2015, 18:56

    Pretendo realizar essa exportação de excel para excel através de um comando em vba.
    usei esse:

    Sub EXPORTDADOS()

    Sheets("DADOS").Select
       If Range("A2") = Empty Then
           MsgBox "não há dados a exportar.", vbInformation, "sem dados"
           Exit Sub
       End If
           
           Range("A2", Range("E65536").End(xlUp)).Copy
       'SE TIVEREM EM PASTAS DIFERNETES USAR ESTE
           'Workbooks.Open "C:\Users\Scharles\scharles curso\TESTES\MACRO_01.xlsm"
       ' SE ESTIVER NA MESMA PASTA USAR ESTE
           Workbooks.Open ActiveWorkbook.Path & "\MACRO_01.xlsm"
           Sheets("CADA").Select
           Range("A65536").End(xlUp).Offset(1, 0).Select
           ActiveSheet.Paste
           ActiveCell.Select
           ActiveWorkbook.Close True
           MsgBox "Os dados foram exportados com sucesso.", vbInformation, "Exportação bem sucedida"   
    End Sub


    Mas esse exporta (copia - .copy) somente dados selecionados na equação de uma planilha para outra ja existentes,
    mas eu preciso realizar a exportação de mais de uma "Sheets" para um novo arquivo com o nome que se encontra em uma célula especifica:
    ex.:

    Sheets("DADOS").cells (1,1)  nessa celula contém (EMPRESA 1)
    e tenho as folhas Clientes, Funcionários e Cargos para exportar para esse novo documento.

    Agradeço desde já pela ajuda.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Exportar mais de uma "Sheets" para outro arquivo. Empty Re: [Resolvido]Exportar mais de uma "Sheets" para outro arquivo.

    Mensagem  Alvaro Teixeira 15/6/2015, 19:16

    Pois, mas este fórum é dedicado ao Access, não sei se algum colega pode ajudar.
    Tente procurar num fórum de Excel.
    Abraço
    avatar
    scharlesjose
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 31/05/2015

    [Resolvido]Exportar mais de uma "Sheets" para outro arquivo. Empty Re: [Resolvido]Exportar mais de uma "Sheets" para outro arquivo.

    Mensagem  scharlesjose 15/6/2015, 19:22

    Ok.
    Vou verificar.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Exportar mais de uma "Sheets" para outro arquivo. Empty Re: [Resolvido]Exportar mais de uma "Sheets" para outro arquivo.

    Mensagem  Alvaro Teixeira 15/6/2015, 19:27

    Na falta de melhor
    https://www.google.pt/webhp?sourceid=chrome-instant&ion=1&espv=2&ie=UTF-8#q=vba%20excel%20copy%20sheets%20to%20another%20workbook
    Abraço
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Exportar mais de uma "Sheets" para outro arquivo. Empty Re: [Resolvido]Exportar mais de uma "Sheets" para outro arquivo.

    Mensagem  Dilson 16/6/2015, 13:47

    Olá,

    O JPaulo construiu um exemplo com esse escopo, no entanto acontece de tabelas do access para o excel. Dá uma olhada e vê se existe possibilidade de solução numa manobra usando importação e exportação.

    Link para acesso ao exemplo:
    excel - Exporta para Excel e Cria uma Folha por Estado

    Conteúdo patrocinado


    [Resolvido]Exportar mais de uma "Sheets" para outro arquivo. Empty Re: [Resolvido]Exportar mais de uma "Sheets" para outro arquivo.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 03:07