วิธีการแปลง Excel Worksheet เป็น Native Word Table ผ่าน VBA

ในบทความนี้เรายินดีที่จะเสนอวิธีการแปลงแผ่นงาน Excel เป็นตาราง Word ดั้งเดิมผ่าน VBA

ไฟล์ Office ใช้ในรูปแบบต่างๆ ตอนนี้คุณจะพบกับความต้องการในการแปลงรูปแบบไฟล์จากที่หนึ่งไปยังอีกรูปแบบหนึ่ง ตัวอย่างเช่นการแปลงระหว่างไฟล์ Excel และเอกสาร Word เป็นหนึ่งในไฟล์มost จำเป็น อันที่จริงเราได้พูดถึงหัวข้อนี้ในบทความก่อนหน้านี้: 5 วิธีง่ายๆในการถ่ายโอนข้อมูลตาราง Excel ไปยัง Word ของคุณ

วันนี้มีวิธีมาโครที่เร็วกว่ามากในการแยกสมุดงาน Excel ไปยังเอกสาร Word และเนื้อหาทั้งหมดในแผ่นงานจะถูกแปลงเป็นตาราง Word ดั้งเดิม

ติดตั้งและเรียกใช้ Word Macro

เราจะเรียกใช้แมโครใน Word เนื่องจากส่วนหนึ่งของรหัสในมาโครเกี่ยวข้องกับการเรียกใช้วัตถุ Excel คุณจึงต้องเพิ่มวัตถุ library อ้างอิง

1. ก่อนและหน้าostเปิดเอกสาร Word เปล่าใหม่
2. แล้วกด“ Alt + F11” เพื่อเปิดตัวแก้ไข VBA ใน Word
3. จากนั้นคลิก "ปกติ" ที่คอลัมน์ด้านซ้าย
4. จากนั้นคลิก "แทรก" แล้วเลือก "โมดูล"
5. ตอนนี้คุณมีโมดูลใหม่แล้ว ดับเบิลคลิกเพื่อเปิด
6. จากนั้นคลิกแท็บ "เครื่องมือ" บนแถบเมนู
7. เลือก "การอ้างอิง" ในเมนูแบบเลื่อนลง
8. ในหน้าต่าง“ References-Normal” ให้เลือก“ Microsoft Excel 14.0 Object Library” แล้วคลิก“ ตกลง”
9. ถัดไปคัดลอกและวางรหัสต่อไปนี้ในโมดูลใหม่:

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. คลิก“ Run” หรือกด“ F5”
11. ตอนนี้มีหน้าต่าง“ เรียกดู” เพียงเลือกไฟล์ Excel แล้วคลิก“ ตกลง”

นี่คือผลลัพธ์:

ตรวจสอบให้แน่ใจว่าเอกสารของคุณยังใช้งานได้

อาจมีเอกสารหลายร้อยรายการที่เก็บไว้ในคอมพิวเตอร์ของคุณ เมื่อเวลาผ่านไปคุณจะลืมบางคนได้อย่างง่ายดาย และเมื่อคุณจำได้ว่าตรวจสอบในบางจุดคุณจะพบว่าไม่สามารถเข้าถึงได้ จากนั้นคุณควรหันไปใช้เครื่องมือทันที ซ่อมแซมเอกสาร.

บทนำผู้เขียน:

Vera Chen เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ แก้ไข xlsx และ pdf ซ่อมแซมผลิตภัณฑ์ซอฟต์แวร์ ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.