Categoria: com & ActiveX
(I) Use o método de criação dinâmica
Primeiro, crie um objeto Excel, usando comobj:
var excelapp: variante;
Excelapp: = createoleObject ('Excel.Application');
1) Exibir a janela atual:
Excelapp.visible: = true;
2) Altere a barra de título do Excel:
Excelapp.caption: = 'Aplicativo chama Microsoft Excel';
3) Adicione uma nova pasta de trabalho:
Excelapp.workbooks.add;
4) Abra uma pasta de trabalho existente:
Excelapp.workbooks.open ('c: /excel/demo.xls');
5) Defina a segunda planilha como a planilha ativa:
Excelapp.Workheets [2] .Activate;
ou
Excelapp.workssheets ['Sheet2'] .Activate;
6) Atribuir valores às células:
Excelapp.Cells [1,4] .Value: = 'Primeira linha, quarta coluna';
7) Defina a largura da coluna especificada (unidade: número de caracteres), tomando a primeira coluna como exemplo:
Excelapp.ActiveSheet.Columns [1] .ColumnSwidth: = 5;
8) Defina a altura da linha especificada (unidade: libra) (1 libra = 0,035 cm) e use o segundo exemplo de comportamento:
Excelapp.ActiveSheet.Rows [2] .RowHeight: = 1/0.035;
9) Insira a quebra da página antes da linha 8:
Excelapp.Workheets [1] .Rows [8] .PageBreak: = 1;
10) Exclua a quebra da página antes da coluna 8:
Excelapp.ActiveSheet.Columns [4] .PageBreak: = 0;
11) Especifique a largura da linha de fronteira:
Excelapp.ActiveSheet.Range ['B3: d4'] .Borders [2] .Weight: = 3;
1-esquerda 2-Right 3-Right 4-Bottom 5-Flant ( / /) 6-Slant ( / /)
12) Limpe a fórmula celular da primeira linha e a quarta coluna:
Excelapp.ActiveSheet.Cells [1,4] .ClearContents;
13) Defina as propriedades da fonte da primeira linha:
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) Faça configurações de página:
a.
Excelapp.ActiveSheet.Pagesetup.CenterHeader: = 'Relatório Demo';
b.
Excelapp.ActiveSheet.PageSetup.CenterFooter: = 'Page & P';
c.
Excelapp.ActiveSheet.PageSetup.HeaderGin: = 2/0.035;
d.
Excelapp.ActiveSheet.PageSetup.HeaderGin: = 3/0.035;
e.
Excelapp.ActiveSheet.PageSetup.topmargin: = 2/0.035;
f.
Excelapp.ActiveSheet.PageSetup.BotTomMargin: = 2/0.035;
Margem G.Left 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.Centerverticticamente: = 2/0.035;
k.
Excelapp.ActiveSheet.PageSetup.printGridLines: = true;
15) Operação de cópia:
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) Insira uma linha ou coluna:
a.
b.
17) Exclua uma linha ou coluna:
a.
b.
18) Planilha de visualização de impressão:
Excelapp.ActiveSheet.printPreview;
19) Planilha de impressão:
Excelapp.ActiveSheet.printout;
20) Salvamento da planilha:
se não não Excelapp.activeWorkbook.Saved então
Excelapp.ActiveSheet.printPreview;
21) Salve a planilha como:
Excelapp.saveas ('c: /excel/demo1.xls');
22) Desista da economia:
Excelapp.ActiveWorkbook.Saved: = true;
23) Feche a pasta de trabalho:
Excelapp.workbooks.close;
24) Exit Excel:
Excelapp.Quit;
(Ii) Use o método de controle Delphi
Coloque o ExcelaPplication, Excelworkbook e Excelworkheet em forma, respectivamente.
1) Open Excel
ExceLApplication1.Connect;
2) Exibir a janela atual:
ExceLApplication1.Visible [0]: = true;
3) Mude a barra de título do Excel:
Excelapplication1.caption: = 'Aplicativo chama Microsoft Excel';
4) Adicione uma nova pasta de trabalho:
Excelworkbook1.ConnectTo (ExceLApplication1.workbooks.add (emapaparam, 0));
5) Adicione uma nova planilha:
var temp_worksheet: _worksheet;
Começar
Temp_worksheet: = Excelworkbook1.
Worksheets.add (esvaziado, esvaziPyparam, vazio, esvaziado, 0) como _worksheet;
Excelworksheet1.ConnectTo (temp_worksheet);
Fim;
6) Abra uma pasta de trabalho existente:
Excelapplication1.workbooks.open (c: /.xls
EsvaziPyparam, vazio, esvaziado, esvaziPyparam, vazio,
EsvaziPyparam, vazio, esvaziado, esvaziPyparam, vazio,
Esvaziado, esvaziPyparam, vazio, esvaziado, 0)
7) Defina a segunda planilha como a planilha ativa:
ExcelApplication1.worksheets [2] .Activate;
ExceLApplication1.WorkSheets ['Sheet2'] .Activate;
8) Atribuir valores às células:
Excelapplication1.Cells [1,4] .Value: = 'Primeira linha, quarta coluna';
9) Defina a largura da coluna especificada (unidade: número de caracteres), tomando a primeira coluna como exemplo:
Excelapplication1.Activheet.Columns [1] .ColumnSwidth: = 5;
10) Defina a altura da linha especificada (unidade: libra) (1 libra = 0,035 cm) e use o segundo exemplo de comportamento:
Excelapplication1.Activheet.Rows [2] .RowHeight: = 1/0.035;
11) Insira a quebra da página antes da linha 8:
Excelapplication1.worksheets [1] .Rows [8] .PageBreak: = 1;
12) Exclua a quebra da página antes da coluna 8:
ExceLApplication1.ActiveSheet.Columns [4] .PageBreak: = 0;
13) Especifique a largura da linha de fronteira:
Excelapplication1.Activheet.Range ['B3: D4'] .Borders [2] .Weight: = 3;
1-esquerda 2-Right 3-Right 4-Bottom 5-Flant ( / /) 6-Slant ( / /)
14) Limpe a fórmula celular da primeira linha e a quarta coluna:
ExceLApplication1.Activheet.Cells [1,4] .ClearContents;
15) Defina as propriedades da fonte da primeira linha:
ExceLApplication1.ActiveSheet.Rows [1] .Font.Name: = 'Lishu';
ExceLApplication1.ActiveSheet.Rows [1] .Font.Color: = ClBlue;
Excelapplication1.Activheet.Rows [1] .Font.Bold: = true;
Excelapplication1.Activheet.Rows [1] .Font.UnderLine: = true;
16) Faça configurações de página:
a.
ExceLApplication1.ActiveSheet.PageSetup.CenterHeader: = 'Relatório Demo';
b.
Excelapplication1.Activheet.PageSetup.CenterFooter: = 'Page & P';
c.
ExceLApplication1.ActiveSheet.PageSetup.HeaderGin: = 2/0.035;
d.
ExceLApplication1.ActiveSheet.Pagesetup.HeaderGin: = 3/0.035;
e.
ExceLApplication1.ActiveSheet.PageSetup.topmargin: = 2/0,035;
f.
ExceLApplication1.ActiveSheet.PageSetup.BotTomMargin: = 2/0.035;
Margem G.Left 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.Centervertictical: = 2/0.035;
k.
ExceLApplication1.ActiveSheet.PageSetup.printGridLines: = true;
17) Operação de cópia:
a.
ExceLApplication1.ActiveSheet.Used.Range.Copy;
b.
ExceLApplication1.ActiveSheet.Range ['A1: e2'] .copy;
c.
ExceLApplication1.Activheet.Range. ['A1'] .Pastespecial;
d.
ExceLApplication1.ActiveSheet.Range.Pastespecial;
18) Insira uma linha ou coluna:
a.
b.
19) Exclua uma linha ou coluna:
a.
b.
20) Planilha de visualização de impressão:
ExceLApplication1.ActiveSheet.printPreview;
21) Planilha de impressão:
ExceLApplication1.Activheet.printout;
22) Salvamento da planilha:
Se não for exceLApplication1.activeWorkbook.saved então
ExceLApplication1.ActiveSheet.printPreview;
23) Salve a planilha como:
ExceLApplication1.saveas ('c: /excel/demo1.xls');
24) Desista da economia:
ExceLApplication1.ActiveWorkbook.Saved: = true;
25) Feche a pasta de trabalho:
ExceLApplication1.workbooks.close;
26) Exit Excel:
ExceLApplication1.quit;
ExceLApplication1.disconnect;
(Iii) Use Delphi para controlar os diagramas do Excel 2D
Coloque o ExcelaPplication, Excelworkbook e Excelworkheet em forma, respectivamente
var shell1, acart, intervalo: variante;
1) Selecione a primeira planilha quando a primeira pasta de trabalho
Shell1: = Excelapplication1.workbooks [1] .Workheets [1];
2) Adicione um gráfico bidimensional
ACHART: = Sheet1.ChartoBjects.add (100.100.200.200);
3) Selecione a forma do gráfico bidimensional
achart.Chart.ChartType: = 4;
4) Atribuir valores a um gráfico bidimensional
Série: = acart.Chart.SeriesCollection;
intervalo: = Sheet1! R2C3: R3C9;
série.Add (Range, True);
5) Adicione o título do gráfico bidimensional
achart.chart.hastitle: = true;
achart.Chart.Charttitle.Characters.Text: = 'Excle 2D Diagrama'
6) Altere o tamanho da fonte do título do gráfico bidimensional
achart.Chart.Charttitle.Font.Size: = 6;
7) Adicione uma descrição à figura bidimensional
achart.chart.axes (xlcategory, xlPrimary) .hastitle: = true;
achart.Chart.axes (xlcategory, xlPrimary) .axistitle.characters.text: = 'Subscript Description';
8) Adicione uma marca esquerda à figura bidimensional
achart.Chart.axes (xlValue, xlPrimary) .Hastitle: = true;
achart.chart.axes (xlValue, xlPrimary) .axistitle.characters.text: = 'esquerda marca descrição';
9) Adicione uma marca direita à figura bidimensional
achart.Chart.axes (xlValue, xlSecondary) .HASTITLE: = true;
achart.Chart.axes (xlValue, xlSecondary) .axistitle.characters.text: = 'Marca direita Descrição';
10) Altere o tamanho da área de exibição do gráfico bidimensional
achart.Chart.Plotarea.left: = 5;
achart.Chart.Plotarea.width: = 223;
achart.Chart.Plotarea.Height: = 108;
11) Adicione instruções ao eixo de coordenadas do gráfico bidimensional
achart.Chart.SeriesCollection [1] .Nome: = 'Eixo Descrição';