Categoría: COM y ActiveX
(I) Usar método de creación dinámica
Primero cree un objeto Excel, usando Comobj:
var Excelapp: variante;
Excelapp: = createOleObject ('Excel.Application');
1) Muestre la ventana actual:
Excelapp.Visible: = True;
2) Cambie la barra de título de Excel:
Excelapp.Caption: = 'Aplicación Llama a Microsoft Excel';
3) Agregue un nuevo libro de trabajo:
Excelapp.WorkBooks.Add;
4) Abra un libro de trabajo existente:
Excelapp.workbooks.open ('c: /excel/demo.xls');
5) Establezca la segunda hoja de trabajo como la hoja de trabajo activa:
Excelapp.Worksheets [2] .Activate;
o
Excelapp.WorksSheets ['sheet2'] .Activate;
6) Asignar valores a las celdas:
Excelapp.Cells [1,4] .Value: = 'Primera fila, cuarta columna';
7) Establezca el ancho de la columna especificada (unidad: número de caracteres), tomando la primera columna como ejemplo:
Excelapp.Activesheet.Columns [1] .Columnswidth: = 5;
8) Establezca la altura de la fila especificada (unidad: libra) (1 libra = 0.035 cm) y use el segundo ejemplo de comportamiento:
Excelapp.Activesheet.rows [2] .RowHeight: = 1/0.035;
9) Inserte la ruptura de la página antes de la línea 8:
Excelapp.Worksheets [1] .ROWS [8] .PageBreak: = 1;
10) Elimine el descanso de la página antes de la columna 8:
Excelapp.Activesheet.Columns [4] .PageBreak: = 0;
11) Especifique el ancho de la línea del borde:
Excelapp.activesheet.range ['b3: d4'] .borders [2] .weight: = 3;
1-izquierda 2-Right 3-Top 4-Bottom 5-slant ( /) 6-slant ( /)
12) Borre la fórmula celular de la primera fila y la cuarta columna:
Excelapp.Activesheet.cells [1,4] .ClearContents;
13) Establezca las propiedades de la fuente de la primera línea:
Excelapp.activesheet.rows [1] .font.name: = 'lishu';
Excelapp.activesheet.rows [1] .font.color: = clblue;
Excelapp.Activesheet.rows [1] .font.bold: = true;
Excelapp.Activesheet.rows [1] .font.underline: = true;
14) Haga la configuración de la página:
a.
Excelapp.activesheet.pagesetup.centerheader: = 'informar demo';
b.
Excelapp.activesheet.pagesetup.centerfooter: = 'Page & P';
c. El margen de la parte superior es de 2 cm:
Excelapp.Activesheet.pagesetup.headermargin: = 2/0.035;
d.
Excelapp.activesheet.pagesetup.headermargin: = 3/0.035;
e.
Excelapp.activesheet.pagesetup.topmargin: = 2/0.035;
f. Margen inferior de 2 cm:
Excelapp.activesheet.pagesetup.bottommargin: = 2/0.035;
G. MARGEN DE LEFT 2CM:
Excelapp.activesheet.pagesetup.leftmargin: = 2/0.035;
H.
Excelapp.Activesheet.pagesetup.rightMargin: = 2/0.035;
i.
Excelapp.activesheet.pagesetup.centerhorizontalmente: = 2/0.035;
J.
Excelapp.Activesheet.pagesetup.centerverticamente: = 2/0.035;
k.
Excelapp.activesheet.pagesetup.printgridLines: = true;
15) Operación de copia:
A. Copiar toda la hoja de trabajo:
Excelapp.activesheet.used.range.copy;
b. Copiar el área especificada:
Excelapp.Activesheet.Range ['a1: e2'] .copy;
C.
Excelapp.Activesheet.Range. ['A1'] .pastespecial;
D.
Excelapp.activesheet.range.pastespecial;
16) Inserte una fila o columna:
a.
b.
17) Eliminar una fila o columna:
a.
b.
18) Impresión de hojas de trabajo de vista previa:
Excelapp.activesheet.printpreview;
19) Hoja de trabajo de impresión:
Excelapp.Activesheet.printout;
20) Guardar la hoja de trabajo:
Si no es Excelapp.ActiveWorkBook.Saved, entonces
Excelapp.activesheet.printpreview;
21) Guarde la hoja de trabajo como:
Excelapp.saveas ('c: /excel/demo1.xls');
22) Renuncia a salvar:
Excelapp.activeworkbook.saved: = true;
23) Cierre el libro de trabajo:
Excelapp.WorkBooks.close;
24) Salir Excel:
Excelapp.quit;
(Ii) Use el método de control de Delphi
Ponga Excelapplication, ExcelworkBook y Excelworksheet en forma respectivamente.
1) Abra Excel
Excelapplication1.connect;
2) Muestre la ventana actual:
Excelapplication1.visible [0]: = true;
3) Cambie la barra de título de Excel:
Excelapplication1.Caption: = 'Aplicación Llama a Microsoft Excel';
4) Agregue un nuevo libro de trabajo:
ExcelworkBook1.connectto (Excelapplication1.workbooks.add (EmpActyParam, 0));
5) Agregue una nueva hoja de trabajo:
var temp_worksheet: _worksheet;
Comenzar
Temp_worksheet: = ExcelworkBook1.
Worksheets.Add (Sacparam, SacyParam, SacyParam, VacyParam, 0) como _worksheet;
Excelworksheet1.ConnectTO (TEMP_WORKSEET);
Fin;
6) Abra un libro de trabajo existente:
Excelapplication1.workbooks.open (c: /a.xls
SewyParam, VacyParam, SacyParam, SacyParam, VacyParam,
SewyParam, VacyParam, SacyParam, SacyParam, VacyParam,
SewyParam, VacyParam, VacyParam, VacyParam, 0)
7) Establezca la segunda hoja de trabajo como la hoja de trabajo activa:
Excelapplication1.Worksheets [2] .Activate;
Excelapplication1.WorksSheets ['sheet2'] .Activate;
8) Asignar valores a las celdas:
Excelapplication1.Cells [1,4] .Value: = 'Primera fila, cuarta columna';
9) Establezca el ancho de la columna especificada (unidad: número de caracteres), tomando la primera columna como ejemplo:
Excelapplication1.Activesheet.columns [1] .Columnswidth: = 5;
10) Establezca la altura de la fila especificada (unidad: libra) (1 libra = 0.035 cm) y use el segundo ejemplo de comportamiento:
Excelapplication1.Activesheet.rows [2] .RowHeight: = 1/0.035;
11) Inserte la ruptura de la página antes de la línea 8:
Excelapplication1.Worksheets [1] .ROWS [8] .PageBreak: = 1;
12) Elimine el descanso de la página antes de la columna 8:
Excelapplication1.Activesheet.columns [4] .PageBreak: = 0;
13) Especifique el ancho de la línea de borde:
Excelapplication1.Activesheet.Range ['b3: d4'] .borders [2] .weight: = 3;
1-izquierda 2-Right 3-Top 4-Bottom 5-slant ( /) 6-slant ( /)
14) Borre la fórmula celular de la primera fila y la cuarta columna:
ExcelApplication1.Activesheet.cells [1,4] .ClearContents;
15) Establezca las propiedades de la fuente de la primera línea:
Excelapplication1.Activesheet.rows [1] .font.name: = 'lishu';
Excelapplication1.Activesheet.rows [1] .font.color: = clblue;
ExcelApplication1.ActivesHheet.Rows [1] .Font.Bold: = True;
ExcelApplication1.ActivesHheet.Rows [1] .font.underline: = true;
16) Haga la configuración de la página:
a.
Excelapplication1.Activesheet.pagesetup.CenterHeader: = 'Report Demo';
b.
Excelapplication1.Activesheet.pagesetup.centerfooter: = 'Page & P';
c. El margen de la parte superior es de 2 cm:
ExcelApplication1.Activesheet.pagesetup.headermargin: = 2/0.035;
d.
ExcelApplication1.Activesheet.pagesetup.headermargin: = 3/0.035;
e.
Excelapplication1.Activesheet.pagesetup.topmargin: = 2/0.035;
f. Margen inferior de 2 cm:
Excelapplication1.Activesheet.pagesetup.bottommargin: = 2/0.035;
G. MARGEN DE LEFT 2CM:
Excelapplication1.Activesheet.pagesetup.leftmargin: = 2/0.035;
H.
Excelapplication1.Activesheet.pagesetup.rightMargin: = 2/0.035;
i.
Excelapplication1.Activesheet.pagesetup.centerhorizontalmente: = 2/0.035;
J.
Excelapplication1.Activesheet.pagesetup.centerverticamente: = 2/0.035;
k.
Excelapplication1.Activesheet.pagesetup.printgridLines: = true;
17) Operación de copia:
A. Copiar toda la hoja de trabajo:
Excelapplication1.Activesheet.used.range.copy;
b. Copiar el área especificada:
Excelapplication1.Activesheet.Range ['a1: e2'] .copy;
C.
Excelapplication1.Activesheet.Range. ['A1'] .pastespecial;
D.
Excelapplication1.ActivesHeet.Range.Pastespecial;
18) Inserte una fila o columna:
a.
b.
19) Eliminar una fila o columna:
a.
b.
20) Impresión de hojas de trabajo de vista previa:
Excelapplication1.Activesheet.printPreview;
21) Hoja de trabajo de impresión:
Excelapplication1.Activesheet.printout;
22) Guardar la hoja de trabajo:
Si no es Excelapplication1.activeWorkBook.Saved entonces
Excelapplication1.Activesheet.printPreview;
23) Guarde la hoja de trabajo como:
Excelapplication1.saveas ('c: /excel/demo1.xls');
24) Deja de salvar:
Excelapplication1.ActiveWorkBook.Saved: = True;
25) Cierre el libro de trabajo:
Excelapplication1.workbooks.close;
26) Salir Excel:
Excelapplication1.quit;
Excelapplication1.Disconnect;
(Iii) Use Delphi para controlar los diagramas de Excel 2D
Poner Excelapplication, ExcelworkBook y Excelworksheet en forma respectivamente
var shell1, acart, rango: variante;
1) Seleccione la primera hoja de trabajo cuando el primer libro de trabajo
shell1: = Excelapplication1.WorkBooks [1] .Worksheets [1];
2) Agregar un gráfico bidimensional
Achart: = sheet1.chartoBjects.add (100,100,200,200);
3) Seleccione la forma del gráfico bidimensional
Achart.chart.chartType: = 4;
4) Asignar valores a un gráfico bidimensional
serie: = acart.chart.seriesCollection;
Rango: = Hoja1! R2C3: R3C9;
serie.Add (rango, verdadero);
5) Agregue el título del gráfico bidimensional
achart.chart.hastitle: = true;
achart.chart.charttitle.characters.text: = 'Excle 2d Diagram'
6) Cambie el tamaño de fuente de título del gráfico bidimensional
achart.chart.charttitle.font.size: = 6;
7) Agregue una descripción a la figura bidimensional
achart.chart.axes (xlcategory, xlprimary) .hastitle: = true;
achart.chart.axes (xlCategory, xlprimary) .axistitle.character.text: = 'subscript Descripción';
8) Agregue una marca izquierda a la figura bidimensional
achart.chart.axes (xlValue, xlprimary) .hastitle: = true;
achart.chart.axes (xlValue, xlprimary) .axistitle.characters.text: = 'descripción de la marca izquierda';
9) Agregue una marca derecha a la figura bidimensional
Achart.chart.axes (xlValue, xlSecundary) .hastitle: = true;
Achart.chart.axes (xlValue, xlSecundary) .axistitle.characters.text: = 'Right Mark Descripción';
10) Cambie el tamaño del área de visualización del gráfico bidimensional
Achart.chart.Plotarea.left: = 5;
Achart.chart.Plotarea.Width: = 223;
Achart.chart.Plotarea.Height: = 108;
11) Agregue instrucciones al eje coordinado del gráfico bidimensional
Achart.chart.SeriesCollection [1] .name: = 'Axis Descripción';