Ako previesť pracovný hárok programu Excel na tabuľku natívnych slov pomocou VBA

V tomto článku vám s potešením ponúkneme spôsob, ako previesť pracovný hárok programu Excel na natívnu tabuľku programu Word pomocou VBA.

Súbory balíka Office sú v rôznych formátoch. Občas sa stretnete s požiadavkou na konverziu formátu súboru z jedného do druhého. Napríklad konverzia medzi súborom programu Excel a dokumentom programu Word je jednou z najžiadanejších. Túto tému sme už diskutovali v jednom z našich predchádzajúcich článkov: 5 jednoduchých spôsobov, ako preniesť tabuľkové údaje programu Excel do vášho slova

Dnes existuje oveľa rýchlejší spôsob makra na extrahovanie zošita programu Excel do dokumentu Word. A všetok obsah v pracovnom hárku sa prevedie do natívnej tabuľky aplikácie Word.

Inštalácia a spustenie makra programu Word

Makro spustíme vo Worde. Keďže časť kódu v makro zahŕňa spúšťanie objektu programu Excel, musíte pridať odkaz na knižnicu objektov.

1. V prvom rade otvorte nový prázdny dokument programu Word.
2. Stlačením kombinácie klávesov „Alt + F11“ otvoríte editor VBA v programe Word.
3. Potom kliknite na „Normálny“ v ľavom stĺpci.
4. Ďalej kliknite na „Vložiť“ a zvoľte „Modul“.
5. Teraz ste dostali nový modul. Dvojitým kliknutím otvoríte.
6. Potom na paneli s ponukami kliknite na kartu „Nástroje“.
7. V rozbaľovacej ponuke zvoľte možnosť „Referencie“.
8. V okne „Odkazy – Normálne“ začiarknite políčko „Knižnica objektov programu Microsoft Excel 14.0“ a kliknite na tlačidlo „OK“.
9. Ďalej skopírujte a vložte nasledujúce kódy do nového modulu:

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 na „Spustiť“ alebo stlačte „F5“.
11. Teraz je tu okno „Prehliadať“. Stačí zvoliť súbor Excel a kliknúť na „OK“.

Tu je výsledok:

Zaistite, aby vaše dokumenty stále fungovali

Vo vašom počítači sú pravdepodobne uložené stovky dokumentov. Postupom času je ľahké na niektoré z nich zabudnúť. A keď si spomeniete, že ste ich niekedy skontrolovali, zistíte, že sú iba neprístupné. Potom by ste sa mali okamžite uchýliť k nástroju oprava doc.

Úvod autora:

Vera Chen je expertka na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane opraviť xlsx a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S