delphi操作excel技巧 文档.docVIP

DEPHI操作EXCEL的例子 var? Form1: TForm1; ? ExcelApp: Variant; implementation {$R*.dfm} procedure TForm1.FormCreate(Sender: TObject); begin ExcelApp := 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); begin excelapp.workbooks.close; end; procedure TForm1.Button3Click(Sender: TObject); begin ExcelApp.ActiveWorkBook.Sheets[Sheet2].Select end; procedure TForm1.Button4Click(Sender: TObject); begin excelapp.activeworkbook.sheets[edit1.Text].select; excelapp.activeworkbook.sheets[edit1.Text].range[edit2.Text].select; edit3.Text :=excelapp.ActiveCell.value; //取公式 excelapp.ActiveCell.FormulaR1C1 //取值? excelapp.ActiveCell.value end; procedure TForm1.Button5Click(Sender: TObject); begin memo1.Clear; excelapp.activeworkbook.sheets[edit4.Text].select; excelapp.activeworkbook.sheets[edit4.Text].range[edit5.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) thenmemo