MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Transpor valores

    Compartilhe

    M2013
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 56
    Registrado : 07/06/2013

    Transpor valores

    Mensagem  M2013 em Seg 18 Ago 2014, 19:45

    Prezados,

    Tenho uma tabela com os seguintes dados:
    Código_Venda
    Janeiro
    Fevereiro
    Março
    Abril
    Maio
    Junho
    Julho
    Agosto
    Setembro
    Outubro
    Novembro
    Dezembro

    (O Código_Venda é tipo texto os demais número.)

    Ao exportar essa tabela para o Excel os valores se posicionam em 13 colunas assim:

    Código_Venda Janeiro fevereiro Março ..........................Dezembro
    000444 100,00 540,00 600,00 100,00


    Precisava exportar essa tabela para excel de modo a transpor os valores, isto é, em apenas duas colunas do tipo:

    excel:

    A B C
    Código_Venda 000444
    Janeiro 100,00
    fevereiro 540,00
    Março 600,00

    Tem como exportar assim ??

    obrigado pela atenção

    Julio Lustosa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 151
    Registrado : 23/02/2011

    Re: Transpor valores

    Mensagem  Julio Lustosa em Seg 18 Ago 2014, 20:44

    Tem como enviar o seu BD? Assim poderíamos fazer uns testes no seu próprio BD.

    Abraços.

    M2013
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 56
    Registrado : 07/06/2013

    Transpor valores

    Mensagem  M2013 em Ter 19 Ago 2014, 12:44

    Obrigado Julio, seguem arquivos. abs
    Anexos
    transpor.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (37 Kb) Baixado 2 vez(es)

    Julio Lustosa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 151
    Registrado : 23/02/2011

    Re: Transpor valores

    Mensagem  Julio Lustosa em Ter 19 Ago 2014, 16:07

    Olá.

    É o seguinte! Eu construí dois procedimentos para exportar para o Excel.

    Um dos procedimentos (sbExportaNovo), ele pega os dados da consulta e joga os dados em um arquivo já criado, mas em branco.
    O outro proceimento (sbExportaExistente), também pega os dados da consulta mas já os joga no arquivo que você passou no anexo (Pasta1.xlsx)

    Tenho que atentar para uma alteração que você deverá fazer nos procedimento para ele poder achar os arquivos. Veja a parte dos códigos abaixo para ser alterada.

    Código:
    Private Sub sbExportarNovo()

    [b]'ALTERE O ABAIXO O CAMINHO DO ARQUIVO TRANSPOR.XLSX[/b]
    strCaminho = "C:\Users\Julio Lustosa\Documents\Maximo Access ajuda\Ajuda M203 - Transpor colunas\Transpor.xlsx"

    Código:
    Private Sub sbExportarExistente()

    [b]'ALTERE O ABAIXO O CAMINHO DO SEU ARQUIVO XLS[/b]
    strCaminho = "C:\Users\Julio Lustosa\Documents\Maximo Access ajuda\Ajuda M203 - Transpor colunas\Pasta1.xlsx"

    Qualquer dúvida, é só falar.

    Abraços.
    Anexos
    Transpor.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (160 Kb) Baixado 6 vez(es)

      Data/hora atual: Dom 04 Dez 2016, 20:18