Simpan data ke spreadsheet Excel menggunakan VBA.
Membuat lembar bentang Excel di Access dapat menghemat waktu Anda saat Anda perlu mengekspor data ke lembar bentang Excel. Visual Basic for Applications (VBA) dapat menjadi alat yang ampuh untuk mengotomatisasi proses dalam aplikasi Microsoft Office. Dengan VBA Anda dapat menggunakan objek Aplikasi Microsoft Excel untuk membuat lembar bentang Excel dari Access. Objek aplikasi Excel adalah titik masuk ke model objek lainnya. Ekspor data lebih cepat ke Excel dengan menyimpan data langsung ke spreadsheet Excel.
Langkah 1
Luncurkan Microsoft Office Access, klik "Blank Database" dan klik tombol "Create" untuk membuat database kosong. Klik tab "Alat Basis Data" dan klik "Visual Basic" untuk membuka Jendela Microsoft Visual Basic. Klik menu "Sisipkan" dan klik "Modul" untuk memasukkan modul kode baru.
Video Hari Ini
Langkah 2
Klik menu "Alat" dan klik "Referensi." Gulir ke bawah dan centang kotak di samping "Microsoft Excel
Langkah 3
Mulailah dengan mengetikkan kode VBA berikut untuk membuat sub prosedur baru:
Sub pribadi createSpreadSheet()
Langkah 4
Lanjutkan dengan mengetik kode berikut untuk membuat tiga objek variabel baru yang akan digunakan untuk membuat spreadsheet Excel:
Redupkan ExcelApp baru Sebagai Excel. Aplikasi. Redupkan Wbk baru Sebagai Excel. buku kerja. Redupkan WkSheet baru Sebagai Excel. lembar kerja
Langkah 5
Tambahkan kode berikut untuk meluncurkan Excel dan menampilkannya:
Setel newExcelApp = Excel. Aplikasi
baruExcelApp. Terlihat = Benar
Langkah 6
Ketik berikut ini untuk menambahkan buku kerja dan lembar kerja baru:
Setel newWbk = newExcelApp. Buku kerja. Menambahkan
Setel newWkSheet = newWbk. Lembar Kerja (1)
Langkah 7
Tambahkan data ke spreadsheet baru Anda dengan mengetik berikut ini:
lembarWk baru. Sel (1, 1).Nilai = "Lembar kerja baru..."
Langkah 8
Simpan buku kerja baru yang dibuat dengan mengetikkan kode berikut:
lembarWk baru. SaveAs ("C:\myworksheet.xlsx")Langkah 9
Edit jalur pada langkah sebelumnya dan ketik jalur dan nama file pilihan Anda.
Langkah 10
Ketik berikut ini untuk mengakhiri sub prosedur:
Akhir Sub
Langkah 11
Tekan "F5" untuk menjalankan prosedur Anda dan membuat spreadsheet Excel baru.
