Tukar Borang Pengguna VBA Excel kepada VB

borang pengguna vba excel ke vb

Buka fail FRM dengan penyunting teks,

VERSI 5.00

Mulakan {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 'Ini perlu diubah suai untuk Begin VB.Form Form1

Kapsyen = "UserForm1"

ClientHeight = 3120

KlienKiri = 45

ClientTop = 435

Lebar Pelanggan = 4710

OleObjectBlob = "UserForm1.frx":0000 'Alih keluar baris ini

StartUpPosition = 1 'Pusat Pemilik

Tamat

Atribut VB_Name = "UserForm1"

Atribut VB_GlobalNameSpace = Palsu

Atribut VB_Creatable = Palsu

Atribut VB_PredeclaredId = Benar

Atribut VB_Exposed = Palsu

'Objek lain juga membuat pengubahsuaian yang serupa

Import data dari excel ke dalam VB

Untuk memanggil Excel dalam VB, anda perlu membuka item "Rujukan" dalam menu "Projek" persekitaran pengaturcaraan VB dan pilih item "Perpustakaan objek MicrosoftExcel 11.0" dalam projek. Oleh kerana versi Excel anda berbeza, nombor versi pilihan ini juga berbeza.

Oleh kerana EXCEL menyusun objek dalam struktur hierarki, model objeknya mengandungi banyak elemen objek yang berbeza.

Lapisan pertama: Objek aplikasi, iaitu, Excel sendiri

Lapisan kedua: set objek buku kerja, merujuk kepada fail buku kerja Excel

Lapisan ketiga: set objek lembaran kerja, yang mewakili lembaran kerja dalam Excel

Tahap 4: Sel dan objek Julat, menunjuk ke sel dalam lembaran kerja Excel.

Malapkan xlapp Sebagai Excel.Aplikasi 'objek Excel

Malapkan xlbook Sebagai Excel.Workbook 'Workbook

Malapkan lembaran xlse sebagai Excel.Lembaran Kerja 'Lembaran Kerja

Tetapkan xlapp = CreateObject(＂Excel.Application＂) 'Buat objek EXCEL

Tetapkan xlbook = xlapp.Workbooks.Open("D:data.xls") 'Buka fail buku kerja data.xls sedia ada

xlapp.Visible = Benar 'Tetapkan objek EXCEL untuk kelihatan (atau tidak kelihatan)

Tetapkan xlsheet = xlbook.Worksheets(1) 'Tetapkan lembaran kerja aktif''

''~~~Helaian pertama buku kerja semasa, anda juga boleh menukarnya di sini kepada "nama helaian" seperti "Helaian1"

【Anda boleh menentukan sendiri bahagian tatasusunan】

Tetapkan nilai dalam sel dalam jadual kepada pembolehubah, seperti elemen dalam tatasusunan

arr(1,1)=xlsheet.Julat(＂B2＂).Nilai

……

Penutupan terakhir:

xlbook.Tutup

xlapp.quit

Kemudian tetapkan ketiga-tiga objek itu kepada tiada

Bagaimana untuk memperkenalkan data excel ke dalam tatasusunan dua dimensi vb

Gunakan kaedah pertanyaan pangkalan data

Baca dan masukkan ke dalam tatasusunan dua dimensi

Malapkan cnn2 Sebagai ADODB.Sambungan Baharu

Malapkan rs2 Sebagai ADODB.Recordset Baharu

cnn2.Open ＂Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Sumber Data=＂ & Text1.Teks & ＂;Extended＂

rs2.Buka "Pilih nama, jantina Daripada [sheet1$]", cnn2, adOpenKeyset, adLockOptimistic

i=0

s = rs2.ields.Item(0).Nilai 'Baca nama dan jantina dalam helaian1

Jika IsNull(s) Kemudian Keluar Lakukan

a(i)=rs2.fields.Item(0).Nilai 'Nama

b(i)=rs2.Fields.Item(1).Nilai 'Jantina

i=i+1

rs2.MoveNext

Gelung

Set rs2 = Tiada

Set cnn2 = Tiada

Pakar VB mengajar: Cara mengimport data daripada hamparan ke dalam VB

Kod untuk membaca sel A2: (Data adalah dalam pembolehubah R, PERPUSTAKAAN OBJEK MICROSOFT EXCEL perlu dipetik sebelum projek)

Aplikasi excel persendirian Sebagai excel.Application

Sub Perintah Peribadi2_Klik()

Tetapkan excelApp = Excel.Application baharu

excelApp.Visible = Benar

excelApp.Workbooks.Buka Nama Fail:=＂C:pelajar.xls＂

excelApp.Range(＂A2＂).Pilih

r = excelApp.ActiveCell.FormulaR1C1

Nyahpepijat.Cetak r

excelApp.Quit

Tetapkan excelApp = Tiada apa-apa

Tamat Sub

'Jika anda tidak mahu semua orang melihat antara muka EXCEL, cuma alih keluar excelApp.Visible = True.

Atas ialah kandungan terperinci Tukar Borang Pengguna VBA Excel kepada VB. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!