Como converter planilha do Excel em tabela nativa do Word via VBA

Neste artigo, temos o prazer de oferecer a você a maneira de converter uma planilha do Excel em uma tabela nativa do Word via VBA.

Os arquivos do Office podem ter vários formatos. De vez em quando, você se deparará com a necessidade de converter um arquivo de um formato para outro. Por exemplo, a conversão entre um arquivo do Excel e um documento do Word é uma das mais comuns. Aliás, já abordamos esse assunto em um de nossos artigos anteriores: 5 maneiras fáceis de transferir dados tabulares do Excel para o Word

Hoje, há uma maneira muito mais rápida de extrair uma pasta de trabalho do Excel para um documento do Word. E todo o conteúdo de uma planilha será convertido em uma tabela nativa do Word.

Instalar e executar macro do Word

Vamos executar a macro no Word. Como parte do código da macro envolve o acionamento de um objeto do Excel, você precisa adicionar uma referência à biblioteca de objetos.

1. Em primeiro lugar, abra um novo documento em branco do Word.
2. E pressione “Alt+F11” para abrir o editor VBA no Word.
3. Em seguida, clique em "Normal" na coluna da esquerda.
4. Em seguida, clique em “Inserir” e escolha “Módulo”.
5. Agora você tem um novo módulo. Clique duas vezes nele para abrir.
6. Em seguida, clique na guia "Ferramentas" na barra de menu.
7. Escolha "Referências" no menu suspenso.
8. Na janela “Referências - Normal”, marque a caixa “Biblioteca de Objetos do Microsoft Excel 14.0” e clique em “OK”.
9. Em seguida, copie e cole os seguintes códigos no novo módulo:

Sub ExtractWorksheetsToWordDocument()
  Dim objExcel As Excel.Application
  Dim objWorkbook As Excel.Workbook
  Dim objWorksheet As Excel.Worksheet
  Dim objTable As Table
  Dim dlgFile As FileDialog
  Dim strFileName As String
 
  Application.ScreenUpdating = False
 
  ' Select an Excel file from Browse window.
  Set dlgFile = Application.FileDialog(msoFileDialogFilePicker)
 
  With dlgFile
    If .Show = -1 Then
      strFileName = .SelectedItems(1)
    Else
      MsgBox "No file is selected! Please select the target file."
      Exit Sub
    End If
  End With
 
  Set objExcel = CreateObject("Excel.Application")
  Set objWorkbook = objExcel.Workbooks.Open(strFileName)
  objExcel.Visible = False
 
  ' Step through each worksheet in the Excel file and extract data to each _
  individual section in Word document.
  For Each objWorksheet In ActiveWorkbook.Worksheets
    objWorksheet.UsedRange.Copy
    ActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count).Range.Paste
    ActiveDocument.Range.InsertAfter objWorksheet.Name
    If Not objWorksheet.Name = Worksheets(Worksheets.Count).Name Then
      With ActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count).Range
        .Collapse Direction:=wdCollapseEnd
        .InsertBreak Type:=wdSectionBreakNextPage
      End With
    End If
  Next objWorksheet
 
  For Each objTable In ActiveDocument.Tables
    objTable.Borders.Enable = True
  Next objTable
 
  ' Close the Excel application using the Quit method.
  objExcel.Application.Quit
  ' Release the object variables.
  Set objWorksheet = Nothing
  Set objWorkbook = Nothing
  Set objExcel = Nothing

  Application.ScreenUpdating = True
End Sub

10. Clique em “Executar” ou pressione “F5”.
11. Agora existe a janela "Browse". Basta selecionar um arquivo do Excel e clicar em “OK”.

Aqui está o resultado:

Verifique se seus documentos ainda funcionam

Existem possivelmente centenas de documentos armazenados em seu computador. Com o passar do tempo, é fácil esquecer alguns deles. E quando você se lembra de checá-los em algum momento, você apenas os encontra inacessíveis. Então deverá recorrer de imediato a uma ferramenta para documento de reparação.

Introdução do autor:

Vera Chen é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo corrigir xlsx e pdf reparar produtos de software. Para mais informações visite www.datanumen.com