Cómo convertir una hoja de cálculo de Excel a una tabla de Word nativa a través de VBA

En este artículo, nos complace ofrecerle la forma de convertir la hoja de cálculo de Excel en una tabla nativa de Word a través de VBA.

Los archivos de Office se presentan en diversos formatos. De vez en cuando, surgirá la necesidad de convertir archivos de un formato a otro. Por ejemplo, la conversión entre archivos de Excel y documentos de Word es una de las más comunes. De hecho, ya hemos tratado este tema en uno de nuestros artículos anteriores. 5 formas sencillas de transferir datos tabulares de Excel a su Word

Hoy en día, existe una forma macro mucho más rápida de extraer un libro de Excel a un documento de Word. Y todo el contenido de una hoja de trabajo se convertirá en una tabla nativa de Word.

Instalar y ejecutar macro de Word

Ejecutaremos la macro en Word. Dado que parte del código de la macro implica la activación de un objeto de Excel, deberá agregar una referencia a la biblioteca de objetos.

1. En primer lugar, abre un nuevo documento de Word en blanco.
2. Y presione "Alt + F11" para abrir el editor VBA en Word.
3. Luego haga clic en "Normal" en la columna de la izquierda.
4. A continuación, haga clic en "Insertar" y elija "Módulo".
5. Ahora tienes un nuevo módulo. Haga doble clic en él para abrirlo.
6. Luego haga clic en la pestaña "Herramientas" en la barra de menú.
7. Elija "Referencias" en el menú desplegable.
8. En la ventana “Referencias - Normal”, marque la casilla “Biblioteca de objetos de Microsoft Excel 14.0” y haga clic en “Aceptar”.
9. Luego copie y pegue los siguientes códigos en el nuevo 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. Haga clic en "Ejecutar" o presione "F5".
11. Ahora está la ventana "Examinar". Simplemente seleccione un archivo de Excel y haga clic en "Aceptar".

Aquí está el resultado:

Asegúrese de que sus documentos sigan funcionando

Posiblemente haya cientos de documentos almacenados en su computadora. A medida que pasa el tiempo, es fácil olvidar algunos de ellos. Y cuando recuerdas haberlos revisado en algún momento, solo los encuentras inaccesibles. Entonces deberías recurrir inmediatamente a una herramienta para reparar doc.

Introducción del autor:

Vera Chen es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo arreglar xlsx y pdf reparar productos de software. Para más información visite www.datanumen.com