Paano Mag-convert ng Excel Worksheet sa Talaan ng Katutubong Salita sa pamamagitan ng VBA

Sa artikulong ito, nalulugod kaming mag-alok sa iyo ng paraan upang mai-convert ang Excel worksheet sa native Word table sa pamamagitan ng VBA.

Ang mga file ng opisina ay tumatanggap ng iba't ibang format. Paminsan-minsan, makakaranas ka ng pangangailangan na i-convert ang mga format ng file mula sa isa patungo sa isa pa. Halimbawa, ang pag-convert sa pagitan ng Excel file at Word document ay isa sa mga pinaka-kailangan. Sa katunayan, napag-usapan na natin ang paksang ito sa isa sa ating mga nakaraang artikulo: 5 Madaling Mga Paraan upang Maglipat ng Data ng Tabular na Excel sa Iyong Salita

Ngayon, mayroong mas mabilis na macro-way para i-extract ang Excel workbook sa isang Word document. At lahat ng nilalaman sa isang worksheet ay mako-convert sa isang katutubong talahanayan ng Word.

I-install at Patakbuhin ang Word Macro

Patakbuhin natin ang macro sa Word. Dahil ang isang bahagi ng mga code sa macro ay kinabibilangan ng pag-trigger ng Excel object, kailangan mong magdagdag ng object library reference.

1. Una sa lahat, magbukas ng isang bagong blankong dokumento ng Word.
2. At pindutin ang “Alt+ F11” para buksan ang VBA editor sa Word.
3. Pagkatapos i-click ang "Normal" sa kaliwang haligi.
4. Susunod na pag-click sa "Ipasok" at piliin ang "Modyul".
5. Ngayon ay mayroon kang bagong module. I-double click ito para buksan.
6. Pagkatapos ay i-click ang tab na "Mga Tool" sa menu bar.
7. Piliin ang "Mga Sanggunian" sa drop-down na menu.
8. Sa window na "References-Normal", lagyan ng tsek ang kahon na "Microsoft Excel 14.0 Object Library" at i-click ang "OK".
9. Susunod na kopyahin at i-paste ang mga sumusunod na code sa bagong 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. I-click ang "Run" o pindutin ang "F5".
11. Ngayon ay mayroong window na "Browse". Pumili lamang ng isang Excel file at i-click ang "OK".

Narito ang kinalabasan:

Tiyaking Gumagana Pa rin ang Iyong Mga Dokumento

Maaaring may daan-daang mga dokumento na nakaimbak sa iyong computer. Sa paglipas ng panahon, ang ilan sa kanila ay madaling makalimutan. At kapag naaalala mong sinuri ang mga ito sa isang punto, makikita mo lamang na hindi naa-access ang mga ito. Pagkatapos ay dapat mong agad na gumamit ng isang tool upang ayusin mo doc.

Panimula ng May-akda:

Si Vera Chen ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang ayusin ang xlsx at pdf pagkumpuni ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa