Kategorie: com & activex
(I) Verwenden Sie die dynamische Erstellungsmethode
Erstellen Sie zuerst ein Excel -Objekt mit Comobj:
var excelapp: variante;
ExcelApp: = createLoBject ('excel.application');
1) Zeigen Sie das aktuelle Fenster an:
ExcelApp.vissible: = true;
2) Ändern Sie die Excel -Titelleiste:
ExcelApp.Caption: = 'Anwendungsaufrufe Microsoft Excel';
3) Fügen Sie eine neue Arbeitsmappe hinzu:
Excelapp.workbooks.add;
4) Öffnen Sie eine vorhandene Arbeitsmappe:
Excelapp.workbooks.open ('c: /excel/demo.xls');
5) Legen Sie das zweite Arbeitsblatt als aktives Arbeitsblatt fest:
Excelapp.Worksheets [2] .ACTIVATE;
oder
Excelapp.Workssheets ['Sheet2'] .ACTIVATE;
6) Zellen Werte zuweisen:
Excelapp.cells [1,4] .Value: = 'Erste Zeile, vierte Spalte';
7) Stellen Sie die Breite der angegebenen Spalte (Einheit: Anzahl der Zeichen) ein und nehmen Sie die erste Spalte als Beispiel:
Excelapp.activeSheet.Columns [1] .ColumnSwidth: = 5;
8) Stellen Sie die Höhe der angegebenen Zeile (Einheit: Pfund) (1 Pfund = 0,035 cm) ein und verwenden Sie das zweite Verhaltensbeispiel:
ExcelApp.ActiveSheet.Rows [2] .RowHeight: = 1/0,035;
9) Seitenpause vor Zeile 8 einfügen:
ExcelApp.Worksheets [1] .Rows [8]. PageBreak: = 1;
10) Löschen Sie den Seitenumbruch vor Spalte 8:
ExcelApp.ActiveSheet.Columns [4] .PageBreak: = 0;
11) Geben Sie die Grenzlinienbreite an:
Excelapp.activeSheet.Range ['b3: d4'] .borders [2] .gewicht: = 3;
1-links 2-rechts 3-Top 4-Bottom 5-Slant ( /) 6-Slant ( /)
12) Löschen Sie die Zellformel der ersten Zeile und die vierte Spalte:
Excelapp.activeSheet.cells [1,4] .Clearcontents;
13) Stellen Sie die Schrifteigenschaften der ersten Zeile fest:
Excelapp.activeSheet.rows [1] .font.name: = 'lishu';
Excelapp.activeSheet.rows [1] .font.Color: = clbblue;
Excelapp.activeSheet.rows [1] .font.bold: = true;
Excelapp.activeSheet.rows [1] .Font.Unterline: = true;
14) Seitungseinstellungen erstellen:
a.
ExcelApp.ActiveSheet.Pagesetup.Centerheader: = 'Report Demo';
b.
Excelapp.activeSheet.pagesetup.Centerfoter: = 'Seite & P';
c.
Excelapp.activeSheet.pageSetup.headeMargin: = 2/0.035;
d.
Excelapp.activeSheet.pageSetup.headeMargin: = 3/0,035;
e.
Excelapp.activeSheet.pagesetup.topmargin: = 2/0.035;
f.
Excelapp.activeSheet.pagesetup.bottommargin: = 2/0.035;
G.Left Margin 2cm:
ExcelApp.ActiveSheet.Pagesetup.leftmargin: = 2/0.035;
h.
ExcelApp.ActiveSheet.Pagesetup.Rightmargin: = 2/0,035;
i.
ExcelApp.ActiveSheet.Pagesetup.CenterHorizontal: = 2/0,035;
j. Die Seite ist vertikal zentriert:
ExcelApp.ActiveSheet.Pagesetup.Centervertisch: = 2/0,035;
k.
Excelapp.activeSheet.pagesetup.printgridlines: = true;
15) Kopiervorgang:
a. Kopieren Sie das gesamte Arbeitsblatt:
Excelapp.activeSheet.Used.Range.copy;
b. Kopieren Sie den angegebenen Bereich:
Excelapp.activeSheet.Range ['A1: e2'] .Copy;
c.
Excelapp.activeSheet.Range. ['A1'] .pastePecial;
d.
Excelapp.activeSheet.Range.pastePecial;
16) Fügen Sie eine Zeile oder Spalte ein:
a.
b.
17) Löschen Sie eine Zeile oder Spalte:
a.
b.
18) Arbeitsblatt Vorschau drucken:
Excelapp.activeSheet.printpreview;
19) Arbeitsblatt ausdruckend:
Excelapp.activeSheet.printout;
20) Arbeitsblattsparen:
Wenn nicht excelapp.activeworkbook.saved dann
Excelapp.activeSheet.printpreview;
21) Speichern Sie das Arbeitsblatt als:
Excelapp.saveas ('c: /excel/demo1.xls');
22) Aufsparen aufgeben:
Excelapp.ActiveWorkbook.Saved: = True;
23) Schließen Sie die Arbeitsmappe:
Excelapp.workbooks.close;
24) Excel beenden:
Excelapp.quit;
(Ii) Verwenden Sie die Delphi -Kontrollmethode
Fügen Sie Excelapplication, Excelworkbook und Excelworksheet in Form ein.
1) Excel öffnen
ExcelApplication1.Connect;
2) Zeigen Sie das aktuelle Fenster an:
ExcelApplication1.vissible [0]: = True;
3) Ändern Sie die Excel -Titelleiste:
ExcelApplication1.Caption: = 'Anwendungsaufrufe Microsoft Excel';
4) Fügen Sie eine neue Arbeitsmappe hinzu:
Excelworkbook1.Connectto (ExcelApplication1.Workbooks.Add (leerparam, 0));
5) Fügen Sie ein neues Arbeitsblatt hinzu:
var temp_worksheet: _worksheet;
Beginnen
Temp_worksheet: = excelworkbook1.
Worksheets.Add (leereparam, leerparam, leerparam, leerparam, 0) als _worksheet;
Excelworksheet1.connectto (temp_worksheet);
Ende;
6) Öffnen Sie eine vorhandene Arbeitsmappe:
ExcelApplication1.Workbooks.open (c: /a.xls
Leereparam, leerparam, leerparam, leerparam, leerparam,
Leereparam, leerparam, leerparam, leerparam, leerparam,
Leereparam, leerparam, leerparam, leerparam, 0)
7) Legen Sie das zweite Arbeitsblatt als aktives Arbeitsblatt fest:
ExcelApplication1.Worksheets [2] .ACTIVATE;
ExcelApplication1.Workssheets ['Sheet2'] .ACTIVATE;
8) Zellen Werte zuweisen:
ExcelApplication1.Cells [1,4] .Value: = 'Erste Zeile, vierte Spalte';
9) Stellen Sie die Breite der angegebenen Spalte (Einheit: Anzahl der Zeichen) ein und nehmen Sie die erste Spalte als Beispiel:
ExcelApplication1.ActiveSheet.Columns [1] .Columnswidth: = 5;
10) Stellen Sie die Höhe der angegebenen Zeile (Einheit: Pfund) (1 Pfund = 0,035 cm) fest und verwenden Sie das zweite Verhaltensbeispiel:
ExcelApplication1.ActiveSheet.Rows [2] .RowHeight: = 1/0,035;
11) Seitenpause vor Zeile 8 einfügen:
ExcelApplication1.Worksheets [1] .Rows [8]. PageBreak: = 1;
12) Löschen Sie den Seitenumbruch vor Spalte 8:
ExcelApplication1.ActiveSheet.Columns [4] .PageBreak: = 0;
13) Geben Sie die Grenzlinienbreite an:
ExcelApplication1.ActiveSheet.Range ['b3: d4'] .borders [2] .gewicht: = 3;
1-links 2-rechts 3-Top 4-Bottom 5-Slant ( /) 6-Slant ( /)
14) Löschen Sie die Zellformel der ersten Zeile und die vierte Spalte:
ExcelApplication1.ActiveSheet.cells [1,4] .Clearcontents;
15) Stellen Sie die Schrifteigenschaften der ersten Zeile fest:
ExcelApplication1.ActiveSheet.rows [1] .font.name: = 'lishu';
ExcelApplication1.ActiveSheet.rows [1] .font.Color: = clblue;
ExcelApplication1.ActiveSheet.rows [1] .font.bold: = true;
ExcelApplication1.ActiveSheet.rows [1] .Font.Unterline: = true;
16) Seiteneinstellungen erstellen:
a.
ExcelApplication1.ActiveSheet.Pagesetup.CenterHeader: = 'Report Demo';
b.
ExcelApplication1.ActiveSheet.Pagesetup.Centerfoter: = 'Seite & P';
c.
ExcelApplication1.ActiveSheet.Pagesetup.headeMargin: = 2/0,035;
d.
ExcelApplication1.ActiveSheet.Pagesetup.headeMargin: = 3/0,035;
e.
ExcelApplication1.ActiveSheet.Pagesetup.topmargin: = 2/0,035;
f.
ExcelApplication1.ActiveSheet.Pagesetup.Bottommargin: = 2/0,035;
G.Left Margin 2cm:
ExcelApplication1.ActiveSheet.Pagesetup.Leftmargin: = 2/0,035;
h.
ExcelApplication1.ActiveSheet.Pagesetup.Rightmargin: = 2/0,035;
i.
ExcelApplication1.ActiveSheet.Pagesetup.CenterHorizontal: = 2/0.035;
j. Die Seite ist vertikal zentriert:
ExcelApplication1.ActiveSheet.Pagesetup.Centervertisch: = 2/0,035;
k.
ExcelApplication1.ActiveSheet.Pagesetup.printgridlines: = true;
17) Kopiervorgang:
a. Kopieren Sie das gesamte Arbeitsblatt:
ExcelApplication1.ActiveSheet.UseD.Range.copy;
b. Kopieren Sie den angegebenen Bereich:
ExcelApplication1.ActiveSheet.Range ['A1: e2'] .Copy;
c.
ExcelApplication1.ActiveSheet.Range. ['A1'] .pastePecial;
d.
ExcelApplication1.ActiveSheet.Range.pastePecial;
18) Fügen Sie eine Zeile oder Spalte ein:
a.
b.
19) Löschen Sie eine Zeile oder Spalte:
a.
b.
20) Arbeitsblatt Vorschau drucken:
ExcelApplication1.ActiveSheet.printPreview;
21) Arbeitsblatt ausdruckend:
ExcelApplication1.ActiveSheet.printout;
22) Arbeitsblattsparen:
wenn nicht excelapplication1.activeworkbook.saved dann dann
ExcelApplication1.ActiveSheet.printPreview;
23) Speichern Sie das Arbeitsblatt als:
ExcelApplication1.Saveas ('c: /excel/demo1.xls');
24) Geben Sie das Speichern auf:
ExcelApplication1.ActiveWorkbook.Saved: = True;
25) Schließen Sie die Arbeitsmappe:
ExcelApplication1.Workbooks.close;
26) Excel beenden:
ExcelApplication1.quit;
ExcelApplication1.Disconnect;
(Iii) Verwenden Sie Delphi, um Excel -2D -Diagramme zu kontrollieren
Fügen Sie Excelapplication, Excelworkbook und Excelworksheet in Form ein
var Shell1, Acart, Bereich: Variante;
1) Wählen Sie das erste Arbeitsblatt bei der ersten Arbeitsmappe aus
Shell1: = ExcelApplication1.Workbooks [1] .Worksheets [1];
2) Fügen Sie ein zweidimensionales Diagramm hinzu
Achart: = Sheet1.ChartObjects.add (100.100.200.200);
3) Wählen Sie die Form des zweidimensionalen Diagramms aus
Achart.Chart.chartType: = 4;
4) Weisen Sie einem zweidimensionalen Diagramm Werte zu Werten zu
Serie: = acart.chart.SerieScollection;
Bereich: = Sheet1! R2C3: R3C9;
Series.Add (Bereich, wahr);
5) Fügen Sie den Titel des zweidimensionalen Diagramms hinzu
Achart.chart.hastitle: = true;
achart.chart.charttitle.characters.text: = 'excle 2D -Diagramm' '
6) Ändern Sie die Titelschrift der Titelschrift des zweidimensionalen Graphen
Achart.Chart.ChartTitle.font.Size: = 6;
7) Fügen Sie der zweidimensionalen Figur eine Beschreibung hinzu
Achart.Chart.axes (xlcategory, xlprimary). Hastitle: = true;
Achart.Chart.axes (xlcategory, xlPrimary) .Axistitle.Characters.text: = 'SubScript Beschreibung';
8) Fügen Sie der zweidimensionalen Figur eine linke Marke hinzu
Achart.Chart.axes (xlValue, xlprimary). Hastitle: = true;
Achart.Chart.axes (xlValue, xlprimary) .Axistitle.characters.text: = 'Linksmarke Beschreibung';
9) Fügen Sie der zweidimensionalen Figur eine rechte Marke hinzu
Achart.Chart.axes (xlValue, xlSecondary). Hastitle: = true;
Achart.Chart.axes (xlValue, xlSecondary) .Axistitle.characters.text: = 'Right Mark Beschreibung';
10) Ändern Sie die Größe der Anzeigefläche des zweidimensionalen Diagramms
Achart.Chart.PlotArea.Left: = 5;
Achart.Chart.PlotArea.Width: = 223;
Achart.Chart.PlotArea.Height: = 108;
11) Fügen Sie der Koordinatenachse des zweidimensionalen Diagramms Anweisungen hinzu
Achart.Chart.SerieScollection [1] .Name: = 'Axis Beschreibung';