As tabelas do Excel geralmente são colocadas dentro de documentos de texto. Aqui está uma maneira automatizada de exportar sua tabela Excel para MS Word:
Sub ExcelTableInWord()
'Definir referência para a biblioteca de objetos do Microsoft Word
'Declarar suas variáveis
Dim MyRange As Excel.Range
Dim wd As Word.Application
Dim wdDoc As Word.Document
Dim WdRange As Word.Range
'Copiar o intervalo definido
Sheets( "Tabela de Receitas " ).Range( "B4:F10" ).Cop
'Abra o documento do Word de destino
Set wd = New Word.Application
Set wdDoc = wd.Documents.Open _
(ThisWorkbook.Path & "\" & "PasteTable.docx" )
wd.Visible = True
'Defina o foco no marcador de destino
Set WdRange = wdDoc.Bookmarks( "DataTableHere" ).Rangе
'Exclua a tabela antiga e cole a nova
Em caso de erro Resume Next
WdRange.Tables( 1 ).Delete
WdRange.Paste 'cola na tabela
'Ajusta as larguras das colunas
WdRange.Tables( 1 ).Columns.SetWidth _
(MyRange.Width/MyRange.Columns.Count), wdAdjustSameWidth
'Reinsira o marcador
wdDoc.Bookmarks.Add "DataTableHere" , WdRange
'Limpeza de memória
Set wd = Nothing
Set wdDoc = Nothing
Set WdRange = Nothing
End Sub
Parabéns! Como você ainda está lendo isso, você está realmente interessado em aprender VBA. Como você já viu, a linguagem de programação VBA é extremamente útil e pode nos poupar muito tempo. Espero que você tenha achado essas informações úteis e as use para se tornar um mestre em MS Excel, VBA e software de computador em geral.
Clique aqui e nos contate via What's App para avaliarmos seus projetos
Nenhum comentário:
Postar um comentário