Transpor valores

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

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

Abraços.

Obrigado Julio, seguem arquivos. abs

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.