Tutorial VB6: Eksport pangkalan data ACCESS ke jadual EXCEL

Bagaimana untuk mengeksport pangkalan data ACCESS ke dalam jadual EXCEL menggunakan VB6

VB sendiri menyediakan fungsi automasi yang boleh membaca dan menulis jadual EXCEL Caranya adalah seperti berikut:

1 Rujuk perpustakaan jenis Microsoft Excel dalam projek:

Pilih lajur "Rujukan" daripada menu "Projek" pilih Perpustakaan Objek Microsoft Excel 9.0 (EXCEL2000), dan kemudian pilih "OK". Menunjukkan bahawa perpustakaan jenis EXCEL harus dirujuk dalam projek.

2. Tentukan objek EXCEL semasa proses pengisytiharan objek umum:

Malapkan xlApp Sebagai Excel.Application

Malapkan xlBook Sebagai Excel.WorkBook

Malapkan xlHelaian Sebagai Excel.Lembaran Kerja

3 Arahan biasa untuk mengendalikan jadual EXCEL dalam program:

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

Tetapkan xlBook = xlApp.Workbooks.Open ("Nama fail") 'Buka fail buku kerja EXCEL sedia ada

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

Tetapkan xlSheet = xlBook.Worksheets("nama helaian") 'Tetapkan lembaran kerja aktif

xlSheet.Cells(row, col) =nilai 'Tetapkan nilai pada sel (baris, kol)

xlSheet.PrintOut 'Cetak lembaran kerja

xlBook.Tutup (Benar) 'Tutup buku kerja

xlApp.Keluar 'Keluar objek EXCEL

Tetapkan xlApp = Tiada apa-apa 'Lepaskan objek xlApp

xlBook.RunAutoMacros (xlAutoOpen) 'Jalankan makro permulaan EXCEL

xlBook.RunAutoMacros (xlAutoClose) 'Jalankan EXCEL tutup makro

4. Apabila menggunakan arahan VB di atas untuk mengendalikan jadual EXCEL, melainkan objek EXCEL ditetapkan menjadi tidak kelihatan, program VB boleh terus melakukan operasi lain, menutup EXCEL dan mengendalikan EXCEL pada masa yang sama. Walau bagaimanapun, apabila objek EXCEL ditutup semasa operasi EXCEL, program VB tidak dapat mengetahui Jika objek EXCEL digunakan pada masa ini, program VB akan menghasilkan ralat automasi. Ini mengakibatkan situasi di mana program VB tidak dapat mengawal EXCEL sepenuhnya, menyebabkan VB terputus sambungan daripada EXCEL.

Cara menggunakan VC untuk membaca jadual EXCEL ⑴ hakim 颍涑

EXCEL sebenarnya adalah pangkalan data Lajurnya adalah medan lajur jadual pangkalan data, dan baris adalah item jadual pangkalan data Saya mempunyai kod yang dimasukkan melalui ADO.

_ConnectionPtr m_pConnect; //objek ADO, sama di bawah

_RecordsetPtr m_pRecordset;

CString sql;

sql = ＂Provider=Microsoft.Jet.OLEDB.4.0;Sumber Data=＂;

sql+=strExcelFile;//laluan mutlak fail Excel + nama failnya sendiri.

sql+=＂;Extended Properties=Excel 8.0＂;

m_pConnect.CreateInstance(__uuidof(Sambungan));

m_pRecordset.CreateInstance(__uuidof(Recordset));

m_pConnect->Open((LPCSTR)sql,"＂","＂",adModeUnknown);

m_pRecordset->Buka("pilih * daripada [iomstats]", m_pConnect.GetInterfacePtr(),

adOpenDynamic, adLockOptimistic,adCmdText);//[iomstats] ialah nama [helaian] yang diubah suai di sudut kiri bawah excel.

semasa(!m_pRecordset->adoEOF)

{

// Ubah suai baris

jika((LPCSTR)_bstr_t(m_pRecordset->GetCollect(＂kali＂)) == strTime)

{

//_varian_t

ultoa(iomStats.dwNumOfDiskReads,charbuf,RADIX);

m_pRecordset->PutCollect(＂dwNumOfDiskReads＂,_variant_t(charbuf));

}

m_pRecordset->MoveNext();

}

m_pRecordset->Kemas kini();

m_pRecordset->Tutup();

m_pConnect->Close();

Cara membaca data excel dalam vb dan menyimpannya dalam tatasusunan

Baca dan tulis jadual EXCEL:

1 Rujuk perpustakaan jenis Microsoft Excel dalam projek:

Pilih lajur "Rujukan" daripada menu "Projek" pilih Perpustakaan Objek Microsoft Excel 12.0 (EXCEL2007), dan kemudian pilih "OK". Menunjukkan bahawa perpustakaan jenis EXCEL harus dirujuk dalam projek.

2. Tentukan objek EXCEL semasa proses pengisytiharan objek umum:

Malapkan xlApp Sebagai Excel.Application

Malapkan xlBook Sebagai Excel.WorkBook

Malapkan xlHelaian Sebagai Excel.Lembaran Kerja

3 Arahan biasa untuk mengendalikan jadual EXCEL dalam program:

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

Tetapkan xlBook = xlApp.Workbooks.Open ("Nama fail") 'Buka fail buku kerja EXCEL sedia ada

Tetapkan xlBook = xlApp.Workbooks.Add("Nama fail") 'Buat fail buku kerja EXCEL baharu

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

Tetapkan xlSheet = xlBook.Worksheets("nama helaian") 'Tetapkan lembaran kerja aktif

untuk i=1 hingga 100

untuk j=1 hingga 50

numArr(j,i)=xlSheet.Sel(j, i) '............................. .... .

seterusnya

seterusnya

xlBook.Tutup (Benar) 'Tutup buku kerja

xlApp.Keluar 'Keluar objek EXCEL

Tetapkan xlApp = Tiada apa-apa 'Lepaskan objek xlApp

Zhang Zhichen

Cara membaca excel baris demi baris dengan VB

1 Mula-mula buat Objek Excel dalam VB untuk mengakses fail Excel Jika Excel anda adalah CSV, anda hanya perlu membukanya dan membacanya dalam mod teks Txt

2 Buat acara Butang dan hantar data yang diperoleh ke dalam TextBox.

Rujuk kod berikut:

Syarat: Saya mempunyai fail Excel D:A.xls dengan 100 perkataan bermula dari A1 dalam Sheet1 dalam VB, terdapat TextBox bernama Text1 dalam Form1 dan butang bernama Command1 adalah seperti berikut:

Persendirian i Sebagai Integer

Sub Perintah Peribadi1_Klik()

Set ExcelApp = CreateObject(＂Excel.Application＂)

Set ExcelBook = ExcelApp.Workbooks.Open(＂D:A.xlsx＂)

Set ExcelSheet = ExcelBook.Worksheets(＂Sheet1＂)

Teks1.Teks = ExcelSheet.cells(i, 1)

i = i + 1

Jika i >100 Maka i = 1

Tamat Sub

Sub Borang Persendirian_Muat()

i = 1

Tamat Sub

Semoga ia membantu anda!

Atas ialah kandungan terperinci Tutorial VB6: Eksport pangkalan data ACCESS ke jadual EXCEL. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!