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;
ou
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:
a.
ExcelApp.ActiveSheet.PagesEtup.CenterHeader: = 'Rapport Demo';
B.
ExcelApp.ActiveSheet.PagesEtup.CenterFooter: = 'Page & P';
c.
ExcelApp.ActiveSheet.PageSetup.HeasherMargin: = 2 / 0,035;
d.
ExcelApp.ActiveSheet.PageSetup.HeasherMargin: = 3 / 0,035;
E.
ExcelApp.ActiveSheet.PagesEtup.Topmargin: = 2 / 0,035;
f.
ExcelApp.ActiveSheet.PagesEtup.Bottommargin: = 2 / 0,035;
G.Left Marge 2cm:
ExcelApp.ActiveSheet.PagesEtup.leftMargin: = 2 / 0,035;
h.
ExcelApp.ActiveSheet.PagesEtup.RightMargin: = 2 / 0,035;
i.
ExcelApp.ActiveSheet.PagesEtup.CenterHorizontally: = 2 / 0,035;
J
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:
a.
ExcelApp.ActiveSheet.Used.Range.copy;
B.
ExcelApp.ActiveSheet.Range ['a1: e2'] .copy;
c.
ExcelApp.ActiveSheet.Range. ['A1'] .PasteSpecial;
d.
ExcelApp.ActiveSheet.Range.PasteSpecial;
16) Insérez une ligne ou une colonne:
a.
b.
17) Supprimer une ligne ou une colonne:
a.
b.
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, 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:
a.
ExcelApplication1.ActiveSheet.PagesEtup.CenterHeader: = 'Rapport Demo';
B.
ExcelApplication1.ActiveSheet.PagesEtup.CenterFooter: = 'Page & P';
c.
ExcelApplication1.ActiveSheet.PagesEtup.HeasherMargin: = 2 / 0,035;
d.
ExcelApplication1.ActiveSheet.PageSetup.HeasherMargin: = 3 / 0,035;
E.
ExcelApplication1.ActiveSheet.PagesEtup.Topmargin: = 2 / 0,035;
f.
ExcelApplication1.ActiveSheet.PagesEtup.Bottommargin: = 2 / 0,035;
G.Left Marge 2cm:
ExcelApplication1.ActiveSheet.PagesEtup.leftMargin: = 2 / 0,035;
h.
ExcelApplication1.ActiveSheet.PagesEtup.RightMargin: = 2 / 0,035;
i.
ExcelApplication1.ActiveSheet.PagesEtup.CenterHorizontally: = 2 / 0,035;
J
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:
a.
ExcelApplication1.ActiveSheet.Used.Range.copy;
B.
ExcelApplication1.ActiveSheet.Range ['a1: e2'] .copy;
c.
ExcelApplication1.ActiveSheet.Range. ['A1'] .PasteSpecial;
d.
ExcelApplication1.ActiveSheet.Range.PasteSpecial;
18) Insérez une ligne ou une colonne:
a.
b.
19) Supprimer une ligne ou une colonne:
a.
b.
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';