Gunakan VBA untuk mengemas kini data secara automatik kepada ACCESS dalam EXCEL

Cara menggunakan VBA dalam EXCEL untuk mengemas kini data secara automatik kepada ACCESS

Ini ialah kod yang saya gunakan untuk mengimport data daripada Excel ke dalam Access Anda boleh merujuknya: (Pastikan fail Excel dan Access berada dalam folder yang sama) ```python import panda sebagai pd #Baca fail Excel excel_data = pd.read_excel('Laluan fail/nama fail.xlsx') # Sambung ke pangkalan data Akses access_conn = pyodbc.connect('DRIVER={Microsoft Access Driver (*.mdb, *.accdb)};DBQ=fail path/nama pangkalan data.accdb') kursor = access_conn.cursor() # Masukkan data Excel ke dalam jadual Access untuk indeks, baris dalam excel_data.iterrows(): cursor.execute("INSERT INTO

Pembekalan harga biasa pelanggan Sub Awam dan penyelenggaraan kelompok ()

Jika Sel(4, 6) = ＂＂Maka

MsgBox "Sila pilih sistem yang memerlukan harga penyelenggaraan dahulu!", vbInformation

Sel(4, 6).Pilih

Keluar Sub

Lain

Dim i As Integer, j As Integer, k As Integer, sht As Worksheet 'i,j,k ialah pembolehubah integer sht ialah pembolehubah objek lembaran kerja excel, menunjuk ke lembaran kerja tertentu

Dim cn As New ADODB.Connection 'Tentukan objek pautan data dan simpan maklumat pangkalan data sambungan sila tambah rujukan ADO dahulu

Malapkan rs Sebagai ADODB Baharu.Recordset 'Tentukan objek set rekod dan simpan jadual data

Malapkan strCn Sebagai String, strSQL Sebagai String 'String variable

Malapkan mdbFail Sebagai Rentetan

Pada Ralat GoTo add_err

mdbFile = ActiveWorkbook.Path & "DY_DATA.mdb"

strCn = ＂Provider=Microsoft.Jet.OLEDB.4.0;Sumber Data=＂ & mdbFile 'Tentukan rentetan pautan pangkalan data

cn.Buka strCn 'Buat sambungan dengan pangkalan data, jika berjaya, kembalikan objek sambungan cn

Set rs = ADODB.Recordset Baharu

rs.Buka "senarai harga biasa pelanggan langsung dbl", cn, adOpenKeyset, adLockOptimistic

k = Sel(4, 8) + 8

Untuk i = 9 Hingga k

Jika Sel(i, 7) = ＂＂Maka

Lain

rs.AddNew

rs(1) = Sel(i, 2)

rs(2) = Sel(i, 7)

rs(3) = Sel(i, 8)

rs.Update

Sel(i, 7) = ＂＂

Sel(i, 8) = ＂＂

Tamat Jika

Seterusnya

MsgBox "Rekod data berjaya ditambah!", vbInformation

Sel(4, 6).Pilih

ActiveWorkbook.RefreshAll

tambah_keluar:

Keluar Sub

Tamat Jika

tambah_err:

MsgBox Err() & vbCrLf & Error()

Sambung add_exit

Tamat Sub

Sila beritahu saya cara memuat semula lembaran kerja menggunakan Excel VBA

Anda boleh menunjukkan bahawa anda percaya pangkalan data adalah selamat dengan menambahkan tandatangan digital padanya dan kandungannya boleh dipercayai. Ini membantu pengguna pangkalan data menentukan sama ada untuk mempercayai pangkalan data dan kandungannya.

Proses yang digunakan untuk menandatangani pangkalan data secara digital bergantung pada sama ada pangkalan data menggunakan format fail Microsoft Office Access 2007 (seperti fail .accdb) atau format sebelumnya (seperti fail .mdb). Walau bagaimanapun, kedua-dua proses memerlukan penggunaan sijil keselamatan.

Anda boleh menggunakan sijil keselamatan komersial atau mencipta sijil anda sendiri. Topik ini menerangkan cara membuat sijil keselamatan anda sendiri.

Sebelum anda bermula

Untuk menambah tandatangan digital, anda mesti mendapatkan atau mencipta sijil keselamatan dahulu. Fikirkan sijil keselamatan sebagai pen tandatangan untuk tandatangan digital atau meterai lilin pengedap anda sendiri.

Jika anda tidak mempunyai sijil keselamatan, anda boleh menggunakan alat SelfCert (disertakan dengan Microsoft Office) untuk mencipta sijil.

Buat sijil yang ditandatangani sendiri

1 Dalam Microsoft Windows, klik butang "Mula", tuding ke "Semua Program", "Microsoft Office", "Alat Microsoft Office", dan kemudian klik "Sijil Digital untuk Projek VBA".

- atau -

Semak imbas ke folder di mana fail program Office Professional 2007 berada. Folder lalai ialah pemacu: Program FilesMicrosoft OfficeOffice12. Dalam folder ini, sila cari dan klik dua kali "SelfCert.exe".

Kotak dialog "Buat Sijil Digital" akan muncul.

2 Dalam kotak "Nama sijil anda", taipkan nama sijil ujian baharu.

3 Klik "OK" dua kali.

Nota Jika anda tidak melihat arahan Sijil Digital untuk Projek VBA atau anda tidak dapat mencari SelfCert.exe, anda mungkin perlu memasang SelfCert.

Atas ialah kandungan terperinci Gunakan VBA untuk mengemas kini data secara automatik kepada ACCESS dalam EXCEL. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!