Rumah > Artikel > Tutorial perisian > Tukar Borang Pengguna VBA Excel kepada 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
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
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
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!