Cara Mengonversi Lembar Kerja Excel ke Tabel Kata Asli melalui VBA

Pada artikel ini, kami dengan senang hati menawarkan cara untuk mengonversi lembar kerja Excel ke tabel Word asli melalui VBA.

File perkantoran memiliki berbagai format. Sesekali, Anda akan membutuhkan konversi format file dari satu format ke format lainnya. Misalnya, konversi antara file Excel dan dokumen Word adalah salah satu yang paling sering dibutuhkan. Sebenarnya, kami telah membahas topik ini di salah satu artikel kami sebelumnya: 5 Cara Mudah Mentransfer Data Tabular Excel ke Word Anda

Saat ini, ada cara makro yang jauh lebih cepat untuk mengekstrak buku kerja Excel ke dokumen Word. Dan semua konten di lembar kerja akan dikonversi ke tabel Word asli.

Instal dan Jalankan Word Macro

Kita akan menjalankan makro di Word. Karena sebagian kode dalam makro melibatkan pemicuan objek Excel, Anda harus menambahkan referensi pustaka objek.

1. Pertama dan terpenting, buka dokumen Word kosong yang baru.
2. Dan tekan "Alt + F11" untuk membuka editor VBA di Word.
3. Kemudian klik "Normal" di kolom kiri.
4. Selanjutnya klik "Sisipkan" dan pilih "Modul".
5. Sekarang Anda sudah mendapat modul baru. Klik dua kali di atasnya untuk membuka.
6. Kemudian klik tab "Alat" di bilah menu.
7. Pilih "Referensi" pada menu drop-down.
8. Di jendela “Referensi-Normal”, centang kotak “Pustaka Objek Microsoft Excel 14.0” dan klik “OK”.
9. Selanjutnya salin dan tempel kode 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 "Run" atau tekan "F5".
11. Sekarang ada jendela "Jelajahi". Cukup pilih file Excel dan klik "OK".

Inilah hasilnya:

Pastikan Dokumen Anda Masih Berfungsi

Mungkin ada ratusan dokumen yang disimpan di komputer Anda. Seiring berjalannya waktu, mudah untuk melupakan beberapa di antaranya. Dan ketika Anda ingat memeriksanya di beberapa titik, Anda hanya menemukan mereka tidak dapat diakses. Maka Anda harus segera menggunakan alat perbaikan doc.

Pengantar Penulis:

Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk perbaiki xlsx ke pdf memperbaiki produk perangkat lunak. Untuk informasi lebih lanjut kunjungi www.datanumen.com