Cara menggunakan VBA untuk mengimport data dari Excel ke Akses

Pengarang: Mark Sanchez
Tarikh Penciptaan: 27 Januari 2021
Tarikh Kemas Kini: 6 Julai 2024
Anonim
Import data Excel to Ms Access VBA | Menggunakan VBA untuk import data Excel ke Ms Access
Video.: Import data Excel to Ms Access VBA | Menggunakan VBA untuk import data Excel ke Ms Access

Kandungan

Belajar cara menggunakan Visual Basic untuk Aplikasi untuk mengimport data ke Akses boleh membuat aplikasi pangkalan data anda lebih dinamik. Dalam VBA, anda boleh menggunakan gabungan objek untuk membuka lembaran kerja Excel dan mengimport data ke dalam jadual Akses. Gunakan Perpustakaan Objek untuk Microsoft Excel di VBA untuk membuka lembaran kerja. Objek Recordset digunakan untuk membuka jadual dalam Akses dan menyimpan data yang diimport dari Excel. Menggunakan VBA untuk mengimport data dengan ketara mengurangkan masa yang dihabiskan untuk melakukan proses secara manual.


Arahan

Import data dari Excel ke Access menggunakan Excel Object Library (Jupiterimages / Photos.com / Getty Images)

  1. Buka Microsoft Excel dan ketik "data1" dalam A2 dan "data2" dalam B2. Tekan Ctrl + S untuk menyimpan dokumen. Simpan lembaran kerja dalam "C: Temp " dengan nama "dataToImport.xlsx". Klik Simpan, dan kemudian tutup Excel.

  2. Mula Akses Microsoft, klik "Pangkalan Data Baharu" dan klik "Buat." Klik "Alat Pangkalan Data" dan klik "Visual Basic" untuk membuka editor VB. Klik menu "Sisipkan" dan klik "Modul" untuk memasukkan modul kod baru. Klik menu "Alat" dan kemudian "Rujukan" dan tandakan kotak bersebelahan dengan "Perpustakaan Microsoft Excel Object '.

  3. Mula dengan menaip kod VBA berikut untuk membuat prosedur sub baru:


    Sub peribadi importExcelData ()

  4. Masukkan kod berikut untuk membuat pembolehubah yang akan digunakan untuk membaca Excel:

    Dim xlApp Sebagai Excel.Application Dim xlBk Sebagai Excel.Workbook Dim xlSht Sebagai Excel.Worksheet

  5. Masukkan kod berikut untuk membuat pembolehubah untuk digunakan dalam Akses:

    Dim dbRst As Recordset Dim dbs As Database Dim SQLStr As String

  6. Masukkan kod berikut untuk menentukan objek bank dan juga untuk menentukan lembaran kerja yang hendak digunakan:

    Set dbs = CurrentDb Set xlApp = Excel.Application Set xlBk = xlApp.Workbooks.Open ("C: Temp dataToImport.xlsx") Tetapkan xlSht = xlBk.Sheets (1)

  7. Buat jadual baru dengan dua lajur dalam Akses untuk mengimport data Excel. Masukkan kod berikut untuk membuat jadual menggunakan objek DoCmd:

    SQLStr = "CREATE TABLE excelData (columnOne TEXT, columnTwo TEXT)" DoCmd.SetWarnings False DoCmd.RunSQL (SQLStr)


  8. Buka jadual yang baru anda buat dengan menggunakan objek Recordset. Masukkan kod berikut untuk membuka jadual dan tambahkan baris baru:

    Tetapkan dbRst = dbs.OpenRecordset ("excelData") dbRst.AddNew

  9. Masukkan kod berikut untuk mendapatkan nilai dalam lembaran kerja Excel, simpannya di dalam jadual anda, dan kemas kini rekod:

    xlSht.Range ("A2") Pilih dbRst.Fields (0) .Value = xlSht.Range ("A2") Nilai xlSht.Range ("B2") Pilih dbRst.Fields (1) .Value = xlSht. Julat ("B2"). Nilai dbRst.Update

  10. Lengkapkan prosedur dengan menaip kod VBA berikut:

    dbRst.Close dbs.Close xlBk.Close End Sub

  11. Tekan F5 untuk melaksanakan prosedur. Data dalam lembaran kerja Excel akan diimport ke dalam jadual Akses anda.