Delphi Control Excel2000

Auteur：Eve Cole Date de mise à jour：2025-02-27 21:16:01

Catégorie: com & activex

(I) Utiliser la méthode de création dynamique

Créez d'abord un objet Excel, en utilisant comobj:

var excelapp: variante;

ExcelApp: = CreateoMObject ('Excel.Application');

1) Afficher la fenêtre actuelle:

ExcelApp.Visible: = true;

2) Changer la barre de titre Excel:

ExcelApp.caption: = 'Appels d'application Microsoft Excel';

3) Ajouter un nouveau classeur:

ExcelApp.WorkBooks.Add;

4) Ouvrez un classeur existant:

Excelapp.workBooks.open ('c: /excel/demo.xls');

5) Définissez la deuxième feuille de calcul en tant que feuille de calcul active:

ExcelApp.Worksheets [2] .Activate;

ExcelApp.WorksSheets ['Sheet2'] .Activate;

6) attribuer des valeurs aux cellules:

ExcelApp.Cells [1,4] .Value: = 'First Row, quatrième colonne';

7) Définissez la largeur de la colonne spécifiée (unité: nombre de caractères), en prenant la première colonne à titre d'exemple:

ExcelApp.ActiveSheet.Columns [1] .ColumnSwidth: = 5;

8) Réglez la hauteur de la ligne spécifiée (unité: livre) (1 livre = 0,035 cm) et utilisez le deuxième exemple de comportement:

ExcelApp.ActiveSheet.Rows [2] .RowHeight: = 1 / 0,035;

9) Insérez la pause de la page avant la ligne 8:

ExcelApp.Worksheets [1] .Rows [8] .Pagebreak: = 1;

10) Supprimer la pause de la page avant la colonne 8:

ExcelApp.ActiveSheet.Columns [4] .Pagebreak: = 0;

11) Spécifiez la largeur de la ligne de bordure:

ExcelApp.ActiveSheet.Range ['B3: D4'] .BORDERS [2] .WEMBRE: = 3;

1 laft 2 droit 3-top 4-pied 5-Slant (/) 6-Slant (/)

12) Effacer la formule cellulaire de la première ligne et de la quatrième colonne:

ExcelApp.ActiveSheet.Cells [1,4] .ClearContents;

13) Définissez les propriétés de la police de la première ligne:

ExcelApp.ActiveSheet.Rows [1] .font.name: = 'lisu';

Excelapp.activesheet.Rows [1] .font.color: = clblue;

ExcelApp.ActiveSheet.Rows [1] .font.Bold: = True;

ExcelApp.ActiveSheet.Rows [1] .font.underline: = true;

14) Faire des paramètres de la page:

ExcelApp.ActiveSheet.PagesEtup.CenterHeader: = 'Rapport Demo';

ExcelApp.ActiveSheet.PagesEtup.CenterFooter: = 'Page & P';

ExcelApp.ActiveSheet.PageSetup.HeasherMargin: = 2 / 0,035;

ExcelApp.ActiveSheet.PageSetup.HeasherMargin: = 3 / 0,035;

ExcelApp.ActiveSheet.PagesEtup.Topmargin: = 2 / 0,035;

ExcelApp.ActiveSheet.PagesEtup.Bottommargin: = 2 / 0,035;

G.Left Marge 2cm:

ExcelApp.ActiveSheet.PagesEtup.leftMargin: = 2 / 0,035;

ExcelApp.ActiveSheet.PagesEtup.RightMargin: = 2 / 0,035;

ExcelApp.ActiveSheet.PagesEtup.CenterHorizontally: = 2 / 0,035;

ExcelApp.ActiveSheet.PagesEtup.Centervertical: = 2 / 0,035;

Câble en filet de cellule d'impression K.

Excelapp.activesheet.pagesEtup.printGridlines: = true;

15) Opération de copie:

ExcelApp.ActiveSheet.Used.Range.copy;

ExcelApp.ActiveSheet.Range ['a1: e2'] .copy;

ExcelApp.ActiveSheet.Range. ['A1'] .PasteSpecial;

ExcelApp.ActiveSheet.Range.PasteSpecial;

16) Insérez une ligne ou une colonne:

17) Supprimer une ligne ou une colonne:

18) Imprimer la feuille de calcul de l'aperçu:

ExcelApp.ActiveSheet.printPreview;

19) Feuille de calcul d'impression:

ExcelApp.ActiveSheet.printout;

20) Économie de feuille de travail:

Sinon ExcelApp.ActiveWorkBook.Saved alors

ExcelApp.ActiveSheet.printPreview;

21) Enregistrez la feuille de travail comme:

ExcelApp.saveas ('c: /excel/demo1.xls');

22) Abandonnez l'épargne:

Excelapp.activeworkbook.saved: = true;

23) Fermez le classeur:

Excelapp.workbooks.close;

24) Exit Excel:

ExcelApp.quit;

(Ii) Utiliser la méthode de contrôle Delphi

Mettez respectivement ExcelApplication, ExcelWorkBook et Excelworksheet en forme.

1) Ouvrez Excel

ExcelApplication1.Connect;

2) Afficher la fenêtre actuelle:

ExcelApplication1.Visible [0]: = true;

3) Changer la barre de titre Excel:

ExcelApplication1.Caption: = 'Application appelle Microsoft Excel';

4) Ajouter un nouveau classeur:

ExcelworkBook1.ConnectTo (ExcelApplication1.WorkBooks.Add (videParam, 0));

5) Ajouter une nouvelle feuille de calcul:

var temp_worksheet: _Worksheet;

Commencer

Temp_worksheet: = ExcelworkBook1.

Feuilles de calcul.add (videParam, videParam, videParam, videParam, 0) comme _Worksheet;

Excelworksheet1.connectTo (temp_worksheet);

Fin;

6) Ouvrez un classeur existant:

ExcelApplication1.WorkBooks.open (c: /a.xls

Videparam, videparam, videparam, videparam, videParam,

VideParam, videParam, videParam, videParam, 0)

7) Définissez la deuxième feuille de calcul en tant que feuille de calcul active:

ExcelApplication1.Worksheets [2] .Active;

ExcelApplication1.WorksSheets ['Sheet2'] .Activate;

8) Attribuer des valeurs aux cellules:

ExcelApplication1.Cells [1,4] .Value: = 'Première ligne, quatrième colonne';

9) Définissez la largeur de la colonne spécifiée (unité: nombre de caractères), en prenant la première colonne à titre d'exemple:

ExcelApplication1.ActiveSheet.Columns [1] .ColumnSwidth: = 5;

10) Réglez la hauteur de la ligne spécifiée (unité: livre) (1 livre = 0,035 cm) et utilisez le deuxième exemple de comportement:

ExcelApplication1.ActiveSheet.Rows [2] .RowHeight: = 1 / 0,035;

11) Insérez la pause de la page avant la ligne 8:

ExcelApplication1.Worksheets [1] .Rows [8] .Pagebreak: = 1;

12) Supprimer la pause de la page avant la colonne 8:

ExcelApplication1.ActiveSheet.Columns [4] .PageBreak: = 0;

13) Spécifiez la largeur de la ligne de bordure:

ExcelApplication1.ActiveSheet.Range ['B3: D4'] .BORDERS [2] .weight: = 3;

1 laft 2 droit 3-top 4-pied 5-Slant (/) 6-Slant (/)

14) Effacer la formule cellulaire de la première ligne et de la quatrième colonne:

ExcelApplication1.ActiveSheet.Cells [1,4] .ClearContents;

15) Définissez les propriétés de la police de la première ligne:

ExcelApplication1.ActiveSheet.Rows [1] .font.name: = 'lisu';

ExcelApplication1.ActiveSheet.Rows [1] .font.Color: = ClBlue;

ExcelApplication1.ActiveSheet.Rows [1] .Font.Bold: = True;

ExcelApplication1.ActiveSheet.Rows [1] .font.underline: = true;

16) Faire des paramètres de la page:

ExcelApplication1.ActiveSheet.PagesEtup.CenterHeader: = 'Rapport Demo';

ExcelApplication1.ActiveSheet.PagesEtup.CenterFooter: = 'Page & P';

ExcelApplication1.ActiveSheet.PagesEtup.HeasherMargin: = 2 / 0,035;

ExcelApplication1.ActiveSheet.PageSetup.HeasherMargin: = 3 / 0,035;

ExcelApplication1.ActiveSheet.PagesEtup.Topmargin: = 2 / 0,035;

ExcelApplication1.ActiveSheet.PagesEtup.Bottommargin: = 2 / 0,035;

G.Left Marge 2cm:

ExcelApplication1.ActiveSheet.PagesEtup.leftMargin: = 2 / 0,035;

ExcelApplication1.ActiveSheet.PagesEtup.RightMargin: = 2 / 0,035;

ExcelApplication1.ActiveSheet.PagesEtup.CenterHorizontally: = 2 / 0,035;

ExcelApplication1.ActiveSheet.PagesEtup.Centervertical: = 2 / 0,035;

Câble en filet de cellule d'impression K.

ExcelApplication1.ActiveSheet.PagesEtup.printGridlines: = True;

17) Opération de copie:

ExcelApplication1.ActiveSheet.Used.Range.copy;

ExcelApplication1.ActiveSheet.Range ['a1: e2'] .copy;

ExcelApplication1.ActiveSheet.Range. ['A1'] .PasteSpecial;

ExcelApplication1.ActiveSheet.Range.PasteSpecial;

18) Insérez une ligne ou une colonne:

19) Supprimer une ligne ou une colonne:

20) Imprimer la feuille de calcul de l'aperçu:

ExcelApplication1.ActiveSheet.printPreview;

21) Feuille de calcul d'impression:

ExcelApplication1.ActiveSheet.printout;

22) Économie de feuille de travail:

Si non ExcelApplication1.ActiveWorkBook.Saved alors

ExcelApplication1.ActiveSheet.printPreview;

23) Enregistrez la feuille de travail comme:

ExcelApplication1.Saveas ('c: /excel/demo1.xls');

24) Abandonnez l'épargne:

ExcelApplication1.ActiveWorkBook.Saved: = true;

25) Fermez le classeur:

ExcelApplication1.WorkBooks.close;

26) Sortez Excel:

ExcelApplication1.quit;

ExcelApplication1.Disconnect;

(Iii) Utiliser Delphi pour contrôler les diagrammes Excel 2D

Mettez respectivement ExcelApplication, ExcelworkBook et Excelworksheet sous forme

var shell1, acart, plage: variante;

1) Sélectionnez la première feuille de calcul lorsque le premier classeur

shell1: = ExcelApplication1.WorkBooks [1] .Worksheets [1];

2) Ajouter un graphique bidimensionnel

ACHART: = Sheet1.ChartObjects.Add (100 100,200,200);

3) Sélectionnez la forme du graphique bidimensionnel

Achart.Chart.ChartType: = 4;

4) attribuer des valeurs à un graphique bidimensionnel

série: = acart.chart.seriesCollection;

plage: = sheet1! r2c3: r3c9;

série.add (gamme, true);

5) Ajouter le titre du graphique bidimensionnel

achart.chart.hastitle: = true;

Achart.chart.Charttitle.Characters.Text: = 'Excle 2D Diagram'

6) Modifier la taille de la police du titre du graphique bidimensionnel

achart.chart.charttitle.font.size: = 6;

7) Ajouter une description au chiffre bidimensionnel

Achart.Chart.Axes (xlcategory, xlprimary) .hastitle: = true;

achart.chart.axes (xlcategory, xlprimary) .axistitle.characters.text: = 'Description des indices';

8) Ajouter une marque gauche à la figure bidimensionnelle

Achart.chart.axes (xlvalue, xlprimary) .hastitle: = true;

Achart.chart.axes (xlvalue, xlprimary) .axistitle.Characters.Text: = 'Left Mark Description';

9) Ajoutez une note droite à la figure bidimensionnelle

achart.chart.axes (xlvalue, xlsecondary) .hastitle: = true;

Achart.chart.axes (xlvalue, xlsecondary) .axistitle.Characters.Text: = 'Destion des description de la marque de droite';

10) Modifier la taille de la zone d'affichage du graphique bidimensionnel

achart.chart.plotarea.left: = 5;

achart.chart.plotarea.width: = 223;

achart.chart.plotarea.height: = 108;

11) Ajouter des instructions à l'axe des coordonnées du graphique bidimensionnel

Achart.Chart.SeriesCollection [1] .name: = 'Axe Description';