Kako pretvoriti Excelov delovni list v izvorno Wordovo tabelo prek VBA

V tem članku vam z veseljem ponujamo način za pretvorbo Excelovega delovnega lista v izvorno Wordovo tabelo prek VBA.

Datoteke sistema Office so v različnih oblikah. Občasno boste naleteli na potrebo po pretvorbi datotek iz ene oblike v drugo. Na primer, pretvorba med datoteko Excel in dokumentom Word je ena najbolj potrebnih. Pravzaprav smo o tej temi že razpravljali v enem od naših prejšnjih člankov: 5 enostavnih načinov za prenos Excelovih tabelarnih podatkov v besedo

Danes obstaja veliko hitrejši makro način za ekstrahiranje Excelovega delovnega zvezka v Wordov dokument. In vsa vsebina na delovnem listu bo pretvorjena v izvirno Wordovo tabelo.

Namestite in zaženite Wordov makro

Makro bomo zagnali v Wordu. Ker del kode v makru vključuje sprožanje Excelovega objekta, morate dodati referenco knjižnice objektov.

1. Najprej in predvsem odprite nov prazen Wordov dokument.
2. In pritisnite “Alt+ F11”, da odprete urejevalnik VBA v Wordu.
3. Nato v levem stolpcu kliknite »Normal«.
4. Nato kliknite »Vstavi« in izberite »Modul«.
5. Zdaj imate nov modul. Dvakrat kliknite nanj, da se odpre.
6. Nato v menijski vrstici kliknite zavihek »Orodja«.
7. V spustnem meniju izberite »Reference«.
8. V oknu »References-Normal« označite polje »Microsoft Excel 14.0 Object Library« in kliknite »V redu«.
9. Nato kopirajte in prilepite naslednje kode v nov 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. Kliknite »Zaženi« ali pritisnite »F5«.
11. Zdaj je tu okno »Prebrskaj«. Samo izberite datoteko Excel in kliknite »V redu«.

Tu je rezultat:

Prepričajte se, da vaši dokumenti še vedno delujejo

V vašem računalniku je morda shranjenih na stotine dokumentov. S časom nekatere zlahka pozabimo. In ko se spomnite, da ste jih kdaj preverili, ugotovite, da so nedostopni. Potem morate takoj uporabiti orodje za popravilo dok.

Uvod avtorja:

Vera Chen je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z popraviti xlsx in pdf popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com