Ir ao conteúdo
  • Cadastre-se

Excel Exportar dados do excel para o Word


Ir à solução Resolvido por josequali,

Posts recomendados

Boa tarde! Alguém poderia me ajudar, tenho um código que permiti enviar as informações da minha planilha do excel para um novo documento word, entretanto não consigo enviar da forma que desejo, o relatório acaba deformando quando tento inserir as informações da coluna B.

 

Atualmente uso esse comando:

 

Sub gerarleatorio()

MsgBox "Gerando relatório!", vbInformation, "Aguarde"

Worksheets("Relatorio").Activate

Dim objWord 'o aplicativo do word
Dim objDoc 'o documento word em si
Dim objSelection 'o cursor de operações
Dim text As String

Set objWord = CreateObject("Word.application") 'coloca o word na memória
Set objDoc = objWord.documents.Add 'criar um novo documento word

objWord.Visible = True 'tornar word visivel

Set objSelection = objWord.Selection 'ver referencia do cursor do mouse

For Each cell In Range("A1:A23")
text = text & cell.Value & Chr(13) 'o chr(13) serve para dar enter entre as linhas do excel
Next cell
objSelection.Typetext (text) 'digitar o texto


End Sub

 

Para pegar a informação da coluna B eu altero de ("A1:A23") para  ("A1:B23"), mas o relatório desconfigura todo.

A segunda situação é a data, eu preciso que ela seja transferida por extenso, mas quando envio para o word ela fica no formato padrão de data (dd,mm,yyyy).

A terceira situação é que tenho linha que servem para assinatura, mas elas não são enviadas e nem os nomes abaixo delas ficam em negrito.

Vide imagem abaixo:

image.thumb.png.2bb27b27e2043804897babe516cb0f15.png

 

OBS: obrigatoriamente para o que preciso todas vez que eu gerar um relatório tem que ser um novo doc word, e não um modelo para substituição de dados, como mala direita ou comando que procurem palavras e substituam as informações no documento do word.

 

Segue abaixo o vídeo que me baseei para adaptar o código. Estou também anexando como o relatório está sendo gerado (relatório errado) e como eu preciso que fique (relatório correto).

 

 

 

Desde já, agradeço a ajuda e disponibilidade de todos :) :D 

 

Relatorio word.rar

Link para o post
Compartilhar em outros sites
  • Solução

Já consigo inserir a data usando 

Text = Format (Date, "longe Date")

E o da linha também consegui resolver, e o nome da empresa resolvi concatenando "Relatório referente" com o nome da empresa (textbox).

 

Só preciso mesmo agora mudar a fonte (tamanho, tipo e negrito) e alinhar a "recebido por" e a "data" a esquerda quando enviar para o word, assim como a data na parte superior a esquerda também.

Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Redes-Wi-Fi-capa-3d-newsletter.png

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!