Cara Menyalin Barisan Sel Excel ke dalam File Dokumen Word dengan Macro VBA

Tip berikut ini akan menjelaskan Anda cara menyalin barisan sel atau range Excel ke file Word yang sudah ada di komputer.

Sebagai contoh, anggap saja Anda telah membuat sebuah contoh file dokumen Word bernama Doc1.docx, file tersebut nantinya akan menerima suatu salinan dari barisan sel A1:C43 di Sheet1 workbook Anda tanpa harus membuka file Word tersebut di layar.

Adapun alur penugasan pada kode macro Anda adalah pertama-tama membuka aplikasi Word terlebih dahulu, lalu membuka dokumen Doc1.docx, kemudian mengirim data dari tabel Excel ke dalam dokumen tersebut, selanjutnya menyimpan dokumen lalu terakhir menutup aplikasi.

Berikut ini langkah-langkah penyusunan kode macro agar menuntaskan tugas tersebut dengan cepat. 

1. Dari worksheet di workbook Excel Anda, buka VBE dengan cara tekan Alt+F11.

2. Dari VBE buka menu Insert > Module.

3. Ketik kode macro berikut lalu tekan Enter:

Sub SalinDariExcel()

4. Matikan variabel ScreenUpdating untuk mempercepat kode macro:

Application.ScreenUpdating = False

5. Salin barisan sel yang akan dikirim ke Word, contohnya barisan sel A1:C43, Anda bisa menyalin barisan sel pilihan Anda sendiri:

Worksheets("Sheet1").Range("A1:C43").Copy

6. Tetapkan contoh variabel berikut:

Dim A As Object, B As Object

7. Buka aplikasi Word:

Set A = CreateObject("Word.Application")

8. Buka file Word yang akan menerima kiriman data di komputer Anda:

Set B = A.Documents.Open(Filename:="C:\Alamat\File\Anda\Doc1.docx")

9. Paste-kan data salinan dari Excel ke dokumen Word:

B.Range.Paste

10. Tutup file Word lalu simpan perubahan:

B.Close savechanges:=True

11. Hentikan aplikasi Word dengan kode:

A.Quit

12. Lepaskan memori sistem pada variabel objek berikut:

Set B = Nothing
Set A = Nothing

13. Keluar dari mode Copy dengan kode:

Application.CutCopyMode = False

14. Hidupkan kembali variabel ScreenUpdating:

Application.ScreenUpdating = True

Kode lengkapnya sebagai berikut:

Sub SalinDariExcel()
Application.ScreenUpdating = False
Worksheets("Sheet1").Range("A1:C43").Copy
Dim A As Object, B As Object
Set A = CreateObject("Word.Application")
Set B = A.Documents.Open(Filename:="C:\Alamat\File\Anda\Doc1.docx")
B.Range.Paste
B.Close savechanges:=True
A.Quit
Set B = Nothing
Set A = Nothing
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Demikian cara menyalin barisan sel Excel ke file dokumen Word yang sudah ada di komputer Anda. 

Silakan Anda mencoba mempraktekkan sendiri membuat kode macro SalinDariExcel tersebut dan semoga bermanfaat.

Share :