Properti dan Metode Penting Delphi untuk Mengontrol Excel

Properti dan Metode Penting Delphi untuk Mengontrol Excel

Ada empat cara untuk memanggil Excel di Delphi.

Pertama, kami memberikan beberapa langkah kode utama yang dibuat melalui OLE untuk deskripsi singkat:

Buat Objek OLE:

Var Olecon: Tolecontainer;

Olecon: = Tolecontainer.create (self);

Olecon.oleObject: = olecon.createObject ('excel.sheet', false);

Atau memilih untuk mengimpor file Excel untuk membuat objek OLE:

Olecon.oleObject: = olecon.createObjectFromFile (xlsname, false);

Yang terbaik adalah menyembunyikan beberapa toolbar Excel, sehingga hanya meja yang tertanam dalam program Anda:

Olecon.oleobject.application.CommandBars ['Standard']. Terlihat: = false;

Olecon.oleobject.application.CommandBars ['formatting']. Terlihat: = false;

Olecon.oleObject.application.CommandBars ['Review']. Terlihat: = false;

Kemudian tampilkan dan aktifkan tabel Excel ke objek yang ditentukan oleh tolecontainer:

Olecon.Show;

Olecon.Doverb (0);

Ini pada dasarnya ok, tetapi ada hal yang buruk tentang tolecontainer, yaitu ketika Anda mengklik kontrol lain, itu kehilangan fokus dan kemudian secara otomatis keluar Kuncinya adalah ketika kehilangan fokus, objek Excel menghilang. Jelaskan secara rinci.

Selanjutnya, kita akan mulai berbicara tentang sifat umum dan metode antarmuka di Excel_tlb, terutama untuk mengekspor dan menetapkan format laporan.

Baca dan tulis sifat sel:

olecon.oleobject.application.cells.item [1,1];

olecon.oleobject.application.cells (1,1);

olecon.oleobject.application.cells [1,1] .value;

Ketiga hal di atas dapat membaca dan menulis unit 'A1' dari lembar kerja.

Di Delphi, operasi pada sel (set), area, lembar kerja, dll. Diimplementasikan oleh varian.

Tetapkan area yang dipilih dalam program Anda sendiri untuk berkisar:

Var Range, Sheet: Varian;

Rentang: = olecon.oleobject.application.range ['a1: c3'];

atau:

Sheet: = Olecon.oleObject.Application.activesheet;

Rentang: = olecon.oleobject.application.range [sheet.cells [1,1], sheet.cells [3,3]];

Gabungkan sel untuk kisaran di atas:

Range.merge;

Rentang 1c 1: = 'Area Gabungan'; // Tulis Teks Setelah Gabungkan

Perhatikan bahwa di masa depan, teks dalam sel gabungan adalah teks di sudut kiri atas area gabungan.

Tetapkan area yang dipilih di tabel Excel untuk berkisar:

rentang: = excel_grid1.oleobject.application.selection;

Sel terpisah:

Range.unmerge;

Setelah bergabung, atur format sel (set):

Range.horizontalAlignment: = xlcenter; // Metode Pusat Horizontal Teks

Range.verticalAntignment: = XlCenter // Metode Pusat Vertikal Teks

Range.wraptext: = true; // teks bungkus secara otomatis

Range.borders.linestyle: = 1 // Tambahkan perbatasan

Range.interior.colorIndex: = 39; // Isi warna adalah lilac

Range.font.name :='lishu';//font

Range.font.color: = clblue; // warna font

Ini adalah format umum, dan di atas juga berlaku untuk satu sel.

Cari sel di tabel Excel:

Var u1, u2, u3, u4, u5: varian;

U1: = olecon.oleobject.application.activeCell; // Dapatkan sel saat ini;

U2: = u1.previous; // Dalam kasus non-khusus, itu adalah satu kisi di sebelah kiri U1;

U3: = ui.next; // Dalam kasus non-khusus, itu adalah kisi-kisi di sisi kanan U2;

U4: = olecon.oleobject.application.cells [u1.cells.row-1, u1.cells.column]; // tidak ada kasus khusus yang di atas kisi di atas

U5: = olecon.oleobject.application.cells [u1.cells.row+1, u1.cells.column]; // tidak ada kasus khusus yang menjadi kisi -kisi berikut

Hapus dan masukkan baris dan kolom:

Olecon.oleobject.application.rows [2] .delete;

Olecon.oleobject.application.columns [2] .delete;

Olecon.oleobject.application.rows [2] .insert;

Olecon.oleobject.application.columns [2] .insert;

Salin area yang ditentukan:

Olecon.oleobject.application.range ['a1: c 3 ' ].menyalin;

Mulailah menempel dari sel yang ditentukan:

Olecon.oleobject.application.range ['a 4 ' ] .Pastespecial;

Ini adalah yang umum, yang berlaku untuk kontrol Exel di bawah panel server di Delphi dan cara untuk membuat objek COM Excel.Application.

Penulis: Feiya

waktu: 2004-9-14