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]Exportar mais de uma "Sheets" para outro arquivo.

    Compartilhe

    scharlesjose
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  scharlesjose em Dom 31 Maio 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 Ter 16 Jun 2015, 21:14, editado 1 vez(es)
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Seg 15 Jun 2015, 17:57

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

    scharlesjose
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  scharlesjose em Seg 15 Jun 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.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Seg 15 Jun 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

    scharlesjose
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  scharlesjose em Seg 15 Jun 2015, 19:22

    Ok.
    Vou verificar.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Seg 15 Jun 2015, 19:27

    Na falta de melhor
    [Você precisa estar registrado e conectado para ver este link.]
    Abraço
    avatar
    Dilson
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  Dilson em Ter 16 Jun 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:
    [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Qui 14 Dez 2017, 02:09