delphi操作excel.doc

DEPHI操作EXCEL的例子var Form1: TForm1; ExcelApp: Variant;implementation$R*.dfmprocedure TForm1.FormCreate(Sender: TObject);beginExcelApp := CreateOleObject( Excel.Application );end;procedure TForm1.Button1Click(Sender: TObject);begin/ExcelApp.WorkBooks.Open(c:1.xls );ExcelApp.WorkBooks.Open(ExtractFileDir(application.ExeName)+2.xls);ExcelApp.Visible := True;end;procedure TForm1.Button2Click(Sender: TObject);beginexcelapp.workbooks.close;end;procedure TForm1.Button3Click(Sender: TObject);beginExcelApp.ActiveWorkBook.SheetsSheet2.Selectend;procedure TForm1.Button4Click(Sender: TObject);beginexcelapp.activeworkbook.sheetsedit1.Text.select;excelapp.activeworkbook.sheetsedit1.Text.rangeedit2.Text.select;edit3.Text :=excelapp.ActiveCell.value;/取公式 excelapp.ActiveCell.FormulaR1C1/取值 excelapp.ActiveCell.valueend;procedure TForm1.Button5Click(Sender: TObject);beginmemo1.Clear;excelapp.activeworkbook.sheetsedit4.Text.select;excelapp.activeworkbook.sheetsedit4.Text.rangeedit5.Text.select;memo1.Lines.Add(字体:+excelapp.Selection.F);ifnot VarIsNull(excelapp.Selection.Font.size) thenmemo1.Lines.Add(字号:+inttostr(excelapp.Selection.Font.size);memo1.Lines.Add(字形:+excelapp.Selection.Font.FontStyle);ifnot VarIsNull(excelapp.Selection.Font.Underline) thenmemo1.Lines.Add(下划线:+inttostr(excelapp.Selection.Font.Underline);ifnot VarIsNull(excelapp.Selection.Font.ColorIndex) thenmemo1.Lines.Add(字体颜色:+inttostr(excelapp.Selection.Font.ColorIndex);ifnot VarIsNull(excelapp.Selection.Interior.ColorIndex) thenmemo1.Lines.Add(填充颜色:+inttostr(excelapp.Selection.Interior.ColorIndex);ifnot VarIsNull(excelapp.Selection.HorizontalAlignment) thenmemo1.Lines.Add(文本水平对齐方式:+inttostr(excelapp.Selection.HorizontalAlignment);ifnot VarIsNull(excelapp.Selection.VerticalAlignment) thenmemo1.Lines.Add(文本垂直对齐方式:+inttostr(excelapp.Selection.VerticalAlignment);ifnot VarIsNull(excelapp.Selection.MergeCells) thenmemo1.Lines.Add(合并单元格:+inttostr(excelapp.Selection.MergeCells);ifnot VarIsNull(excelapp.Selection.WrapText) thenmemo1.Lines.Add(自动换行:+inttostr(excelapp.Selection.WrapText);/ 1: Left, 2: Right, 3: Top, 4: bottom/ 5: , 6: / (斜线)/ 7: Left, 8: Top, 9: bottom, 10: Right （不包括内部单元格)/ 11, 12 , 内部单元格线条 (分别是竖线和横线，12我用了没效果)ifnot VarIsNull(excelapp.Selection.Borders1.LineStyle) thenmemo1.Lines.Add(区域活动单元格左边框（线性：大小：颜色）:+inttostr(excelapp.Selection.Borders1.LineStyle)+:+inttostr(excelapp.Selection.Borders1.Weight)+:+inttostr(excelapp.Selection.Borders1.ColorIndex);ifnot VarIsNull(excelapp.Selection.Borders2.LineStyle) thenmemo1.Lines.Add(区域活动单元格右边框（线性：大小：颜色）:+inttostr(excelapp.Selection.Borders2.LineStyle)+:+inttostr(excelapp.Selection.Borders2.Weight)+:+inttostr(excelapp.Selection.Borders2.ColorIndex);ifnot VarIsNull(excelapp.Selection.Borders3.LineStyle) thenmemo1.Lines.Add(区域活动单元格上边框（线性：大小：颜色）:+inttostr(excelapp.Selection.Borders3.LineStyle)+:+inttostr(excelapp.Selection.Borders3.Weight)+:+inttostr(excelapp.Selection.Borders3.ColorIndex);ifnot VarIsNull(excelapp.Selection.Borders4.LineStyle) thenmemo1.Lines.Add(区域活动单元格下边框（线性：大小：颜色）:+inttostr(excelapp.Selection.Borders4.LineStyle)+:+inttostr(excelapp.Selection.Borders4.Weight)+:+inttostr(excelapp.Selection.Borders4.ColorIndex);ifnot VarIsNull(excelapp.Selection.Borders5.LineStyle) thenmemo1.Lines.Add(区域左右斜边框（线性：大小：颜色）:+inttostr(excelapp.Selection.Borders5.LineStyle)+:+inttostr(excelapp.Selection.Borders5.Weight)+:+inttostr(excelapp.Selection.Borders5.ColorIndex);ifnot VarIsNull(excelapp.Selection.Borders6.LineStyle) thenmemo1.Lines.Add(区域右左斜边框（线性：大小：颜色）:+inttostr(excelapp.Selection.Borders6.LineStyle)+:+inttostr(excelapp.Selection.Borders6.Weight)+:+inttostr(excelapp.Selection.Borders6.ColorIndex);ifnot VarIsNull(excelapp.Selection.Borders7.LineStyle) thenmemo1.Lines.Add(区域左边框（线性：大小：颜色）:+inttostr(excelapp.Selection.Borders7.LineStyle)+:+inttostr(excelapp.Selection.Borders7.Weight)+:+inttostr(excelapp.Selection.Borders7.ColorIndex);ifnot VarIsNull(excelapp.Selection.Borders8.LineStyle) thenmemo1.Lines.Add(区域上边框（线性：大小：颜色）:+inttostr(excelapp.Selection.Borders8.LineStyle)+:+inttostr(excelapp.Selection.Borders8.Weight)+:+inttostr(excelapp.Selection.Borders8.ColorIndex);ifnot VarIsNull(excelapp.Selection.Borders9.LineStyle) thenmemo1.Lines.Add(区域下边框（线性：大小：颜色）:+inttostr(excelapp.Selection.Borders9.LineStyle)+:+inttostr(excelapp.Selection.Borders9.Weight)+:+inttostr(excelapp.Selection.Borders9.ColorIndex);ifnot VarIsNull(excelapp.Selection.Borders10.LineStyle) thenmemo1.Lines.Add(区域右边框（线性：大小：颜色）:+inttostr(excelapp.Selection.Borders10.LineStyle)+:+inttostr(excelapp.Selection.Borders10.Weight)+:+inttostr(excelapp.Selection.Borders10.ColorIndex);ifnot VarIsNull(excelapp.Selection.Borders11.LineStyle) thenmemo1.Lines.Add(区域内部垂直边框（线性：大小：颜色）:+inttostr(excelapp.Selection.Borders11.LineStyle)+:+inttostr(excelapp.Selection.Borders11.Weight)+:+inttostr(excelapp.Selection.Borders11.ColorIndex);ifnot VarIsNull(excelapp.Selection.Borders12.LineStyle) thenmemo1.Lines.Add(区域内部水平边框（线性：大小：颜色）:+inttostr(excelapp.Selection.Borders12.LineStyle)+:+inttostr(excelapp.Selection.Borders12.Weight)+:+inttostr(excelapp.Selection.Borders12.ColorIndex);memo1.Lines.Add(数字类型:+excelapp.Selection.NumberFormatLocal);memo1.Lines.Add(行高:+inttostr(excelapp.Selection.RowHeight);memo1.Lines.Add(列宽:+inttostr(excelapp.Selection.ColumnWidth);memo1.Lines.Add(工作表名称:+excelapp.activeworkbook.sheetsedit4.T);end;procedure TForm1.Button6Click(Sender: TObject);beginmemo2.Clear;excelapp.activeworkbook.sheetsedit6.Text.select;memo2.Lines.Add(图表标题:+excelapp.sheetsedit6.Text.ChartObjects1.chart.ChartTitle.Characters.Text);end;procedure TForm1.Button7Click(Sender: TObject);begin ExcelApp.ActiveWorkbook.SheetsSheet3.Select;ExcelApp.ActiveWorkbook.PivotCaches.Add(1,Sheet1!R1C2:R5C4).CreatePivotTable(1.xlsSheet3!R2C1,数据透视表1); ExcelApp.ActiveWorkbook.ShowPivotTableFieldList :=True;ExcelApp.ActiveSheet.PivotTables(数据透视表1).PivotFields(姓名).Orientation:=1;ExcelApp.ActiveSheet.PivotTables(数据透视表1).PivotFields(姓名).Position:=1;ExcelApp.ActiveSheet.PivotTables(数据透视表1).PivotFields(语文).Orientation:=2;ExcelApp.ActiveSheet.PivotTables(数据透视表1).PivotFields(语文).Position:=1;ExcelApp.ActiveSheet.PivotTables(数据透视表1).PivotFields(数学).Orientation:=2;ExcelApp.ActiveSheet.PivotTables(数据透视表1).PivotFields(数学).Position:=1; ExcelApp.ActiveSheet.PivotTables(数据透视表1).DisplayImmediateItems:=True;ExcelApp.ActiveSheet.PivotTables(数据透视表1).AddDataField(ExcelApp.ActiveSheet.PivotTables(数据透视表1).PivotFields(语文),求和项:语文,-4157); /说明，对于宏录制的代码中的，xlRowField ，xlColumnField ，xlSum没有相应的说明， /可以EXCEL的宏中调试时，跟踪出相关的值如 xlSum=-4157,其它的根据要求，自己跟踪 /以下是录制的宏命令，以供参考 Sub Macro1()Macro1 Macro宏由 MS User 录制，时间: 2006-5-19 ActiveWorkbook.PivotCac