Hur man konverterar Excel-kalkylblad till Native Word-tabell via VBA

I den här artikeln är vi glada att kunna erbjuda dig sättet att konvertera Excel-kalkylblad till en inbyggd Word-tabell via VBA.

Office-filer kan hantera olika format. Då och då kommer du att stöta på behovet av att konvertera filformat från ett till ett annat. Till exempel är konvertering mellan Excel-filer och Word-dokument ett av de mest efterfrågade. Vi har faktiskt diskuterat detta ämne i en av våra tidigare artiklar: 5 enkla sätt att överföra Excel-tabelldata till ditt Word

Idag finns det ett mycket snabbare makro-sätt att extrahera Excel-arbetsbok till ett Word-dokument. Och allt innehåll i ett kalkylblad kommer att konverteras till en inbyggd Word-tabell.

Installera och kör Word Macro

Vi kommer att köra makrot i Word. Eftersom en del av koden i makrot involverar att aktivera Excel-objekt måste du lägga till en objektbiblioteksreferens.

1. Först och främst, öppna ett nytt tomt Word-dokument.
2. Och tryck på "Alt + F11" för att öppna VBA-redigeraren i Word.
3. Klicka sedan på “Normal” i den vänstra kolumnen.
4. Klicka sedan på "Infoga" och välj "Modul".
5. Nu har du fått en ny modul. Dubbelklicka på den för att öppna.
6. Klicka sedan på fliken "Verktyg" i menyraden.
7. Välj "Referenser" i rullgardinsmenyn.
8. I fönstret "Referenser-Normal" markerar du rutan "Microsoft Excel 14.0 Object Library" och klickar på "OK".
9. Kopiera och klistra sedan in följande koder i den nya modulen:

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. Klicka på "Kör" eller tryck på "F5".
11. Nu finns fönstret "Bläddra". Välj bara en Excel-fil och klicka på "OK".

Här är resultatet:

Se till att dina dokument fortfarande fungerar

Det finns möjligen hundratals dokument lagrade på din dator. Allt eftersom tiden går är det lätt att glömma några av dem. Och när du kommer ihåg att du kollade dem någon gång, hittar du dem bara otillgängliga. Då bör du omedelbart ta till ett verktyg för att reparationsdok.

Författarintroduktion:

Vera Chen är en dataåterställningsexpert i DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive fixa xlsx och pdf reparera programvaruprodukter. För mer information besök www.datanumen.com