Cara menulis makro di Word untuk membaca data Excel

Langkah 1

Buka Excel dan masukkan nilai di sel pertama dari lembar kerja pertama. Klik pada tombol perintah Office "Simpan" dan ketik "c: \ ReadFromExcel.xlsx" untuk nama file. Klik "Simpan" untuk menyimpan buku dan tutup Excel.

Langkah 2

Klik pada tombol Office di Word dan kemudian pada tombol "Opsi". Klik pada "Pengembang" kotak centang untuk menampilkan tab ini yang berisi perintah makro Word.

Langkah 3

Klik pada tab "Pengembang" dari "Visual Basic" untuk memasuki lingkungan pengembangan.

Langkah 4

Klik menu "Tools", lalu pada perintah "Referensi". Klik pada item "Microsoft Excel Objects", yang memungkinkan makro untuk mengakses objek virtual Excel.

Langkah 5

Tuliskan program berikut di jendela kode. Program ini akan membuat tautan ke aplikasi Excel, lalu menutupnya. Program ini masih tidak melakukan apa-apa dengan tautan yang ditetapkan. Sekarang mari gunakan tautan untuk membuka buku kerja Excel yang Anda buat pada Langkah 1.

Public Sub ReadExcelData () Dim pgmExcel As Excel.Application Set pgmExcel = CreateObject ("Excel.Application") pgmExcel.Quit End Sub

Langkah 6

Tuliskan pernyataan baru berikut setelah "Set". Pernyataan ini membuka buku kerja Excel yang Anda buat pada Langkah 1 dan menutupnya. Program yang direvisi belum membaca informasi apa pun dari buku ini. Pernyataan berikut yang Anda tulis akan membaca informasi dalam buku.

PgmExcel.Workbooks.Open "c: \ ReadFromExcel.xlsx"

Langkah 7

Tuliskan pernyataan berikut setelah "Buka". Instruksi ini menggunakan objek pgmExcel untuk membaca nilai sel pertama di buku kerja Langkah 1. Perintah "MsgBox" menunjukkan nilai itu.

MsgBox pgmExcel.ActiveWorkbook.Sheets (1) .Cell (1, 1)

Langkah 8

Klik pada salah satu bagian dari program dan perintah "Run" dari menu itu. "Program akan menjalankan dan menampilkan nilai sel tempat Anda menulis pada Langkah 1.