Excel-werkblad converteren naar native Word-tabel via VBA

In dit artikel bieden we u graag de manier om een ​​Excel-werkblad via VBA naar een native Word-tabel te converteren.

Office-bestanden hebben verschillende formaten. Zo nu en dan zul je de behoefte voelen om een ​​bestand van het ene naar het andere formaat te converteren. De conversie tussen een Excel-bestand en een Word-document is bijvoorbeeld een veelvoorkomend voorbeeld. We hebben dit onderwerp al eens besproken in een van onze eerdere artikelen. 5 eenvoudige manieren om Excel-tabelgegevens over te brengen naar uw Word

Tegenwoordig is er een veel snellere macro-manier om Excel-werkmap naar een Word-document te extraheren. En alle inhoud in een werkblad wordt geconverteerd naar een native Word-tabel.

Installeer en voer Word Macro uit

We gaan een macro uitvoeren in Word. Omdat een deel van de code in de macro een Excel-object activeert, moet u een verwijzing naar de objectbibliotheek toevoegen.

1. Open allereerst een nieuw, leeg Word-document.
2. En druk op "Alt + F11" om de VBA-editor in Word te openen.
3. Klik vervolgens op "Normaal" in de linkerkolom.
4. Klik vervolgens op "Invoegen" en kies "Module".
5. Nu heb je een nieuwe module. Dubbelklik erop om te openen.
6. Klik vervolgens op het tabblad "Extra" in de menubalk.
7. Kies "Referenties" in het drop-down menu.
8. In het venster 'Verwijzingen - Normaal' vinkt u het vakje 'Microsoft Excel 14.0 Objectbibliotheek' aan en klikt u op 'OK'.
9. Kopieer en plak vervolgens de volgende codes in de nieuwe module:

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. Klik op "Uitvoeren" of druk op "F5".
11. Nu is er het venster "Bladeren". Selecteer gewoon een Excel-bestand en klik op "OK".

Hier is het resultaat:

Zorg ervoor dat uw documenten nog steeds werken

Er zijn mogelijk honderden documenten op uw computer opgeslagen. Naarmate de tijd verstrijkt, is het gemakkelijk om sommige ervan te vergeten. En als je je herinnert ze op een gegeven moment te hebben gecontroleerd, vind je ze alleen maar ontoegankelijk. Dan moet u onmiddellijk uw toevlucht nemen tot een hulpmiddel reparatie doc.

Auteur Introductie:

Vera Chen is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder xlsx en pdf reparatie softwareproducten. Voor meer informatie bezoek www.datanumen.com