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

    Transpor valores

    avatar
    M2013
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    Transpor valores Empty Transpor valores

    Mensagem  M2013 18/8/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
    Julio Lustosa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    Transpor valores Empty Re: Transpor valores

    Mensagem  Julio Lustosa 18/8/2014, 20:44

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

    Abraços.
    avatar
    M2013
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    Transpor valores Empty Transpor valores

    Mensagem  M2013 19/8/2014, 12:44

    Obrigado Julio, seguem arquivos. abs
    Anexos
    Transpor valores Attachmenttranspor.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (37 Kb) Baixado 3 vez(es)
    Julio Lustosa
    Julio Lustosa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    Transpor valores Empty Re: Transpor valores

    Mensagem  Julio Lustosa 19/8/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 valores AttachmentTranspor.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (160 Kb) Baixado 7 vez(es)

    Conteúdo patrocinado


    Transpor valores Empty Re: Transpor valores

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 00:51