Sådan konverteres Excel-regneark til Native Word-tabel via VBA

I denne artikel er vi glade for at kunne tilbyde dig måden at konvertere Excel-regneark til native Word-tabel via VBA.

Office-filer kan findes i forskellige formater. Fra tid til anden vil du støde på behovet for at konvertere filformater fra et til et andet. For eksempel er konvertering mellem Excel-filer og Word-dokumenter et af de mest krævende. Vi har faktisk diskuteret dette emne i en af ​​vores tidligere artikler: 5 nemme måder at overføre Excel-tabeldata til dit ord

I dag er der en meget hurtigere makro-måde at udtrække Excel-projektmappe til et Word-dokument. Og alt indhold i et regneark vil blive konverteret til en oprindelig Word-tabel.

Installer og kør Word Macro

Vi kører en makro i Word. Da en del af koden i makroen involverer udløsning af Excel-objekter, skal du tilføje en objektbiblioteksreference.

1. Først og fremmest skal du åbne et nyt, tomt Word-dokument.
2. Og tryk på "Alt + F11" for at åbne VBA-editor i Word.
3. Klik derefter på “Normal” i venstre kolonne.
4. Klik derefter på "Indsæt", og vælg "Modul".
5. Nu har du fået et nyt modul. Dobbeltklik på den for at åbne.
6. Klik derefter på fanen "Værktøjer" på menulinjen.
7. Vælg "Referencer" i rullemenuen.
8. I vinduet "Referencer-Normal" skal du markere feltet "Microsoft Excel 14.0 Object Library" og klikke på "OK".
9. Kopier og indsæt derefter følgende koder i det nye modul:

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 på "Kør" eller tryk på "F5".
11. Nu er der vinduet "Gennemse". Vælg blot en Excel-fil og klik på "OK".

Her er resultatet:

Sørg for, at dine dokumenter stadig fungerer

Der er muligvis hundredvis af dokumenter gemt på din computer. Som tiden går, er det nemt at glemme nogle af dem. Og når du husker at tjekke dem på et tidspunkt, finder du dem kun utilgængelige. Så bør du straks ty til et værktøj til reparationsdok.

Forfatter Introduktion:

Vera Chen er en datagendannelsesekspert i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder rette xlsx og pdf produkter til reparation af software. For mere information besøg www.datanumen.com