Cara Menukar Lembaran Kerja Excel ke Jadual Kata Asli melalui VBA

Dalam artikel ini, kami dengan senang hati menawarkan cara untuk menukar lembaran kerja Excel ke jadual Word asli melalui VBA.

Fail pejabat menerima pelbagai format. Kadang-kadang, anda akan menghadapi permintaan untuk menukar format fail antara satu sama lain. Contohnya, penukaran antara fail Excel dan dokumen Word adalah salah satu yang paling diperlukan. Sebenarnya, kami telah membincangkan topik ini dalam salah satu artikel kami sebelum ini: 5 Cara Mudah Memindahkan Data Tabel Excel ke dalam Word Anda

Hari ini, terdapat kaedah makro yang lebih cepat untuk mengekstrak buku kerja Excel ke dokumen Word. Dan semua kandungan dalam lembaran kerja akan ditukar menjadi jadual Word asli.

Pasang dan Jalankan Makro Word

Kita akan menjalankan makro dalam Word. Memandangkan sebahagian daripada kod dalam makro melibatkan pencetusan objek Excel, anda perlu menambah rujukan pustaka objek.

1. Pertama sekali, buka dokumen Word kosong yang baharu.
2. Dan tekan "Alt + F11" untuk membuka editor VBA di Word.
3. Kemudian klik "Normal" di lajur kiri.
4. Seterusnya klik "Insert" dan pilih "Module".
5. Sekarang anda telah mendapat modul baru. Klik dua kali untuk membuka.
6. Kemudian klik tab "Alat" pada bar menu.
7. Pilih "Rujukan" pada menu lungsur.
8. Dalam tetingkap “Rujukan-Normal”, tandakan kotak “Perpustakaan Objek Microsoft Excel 14.0” dan klik “OK”.
9. Selanjutnya salin dan tampal kod berikut ke modul baru:

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 "Jalankan" atau tekan "F5".
11. Sekarang ada tetingkap "Browse". Cukup pilih fail Excel dan klik "OK".

Inilah hasilnya:

Pastikan Dokumen Anda Masih Berfungsi

Terdapat beratus-ratus dokumen yang tersimpan di komputer anda. Seiring berjalannya waktu, dengan mudah melupakan sebahagian daripadanya. Dan apabila anda ingat memeriksanya pada suatu ketika, anda hanya dapat melihatnya tidak dapat diakses. Maka anda harus segera menggunakan alat untuk membaiki dokumen.

Pengenalan Pengarang:

Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk betulkan xlsx dan pdf membaiki produk perisian. Untuk maklumat lebih lanjut, lawati www.datanumen.com