中午好！谁知道ExcelApplication控件是怎么用的

Question

最好是有代码

Answer 1

你先增加三个控件：ExcelApplication1，ExcelWorksheet1，ExcelWorkbook1
程式例如下：
var
vstring:string;
v_row,j :integer;
Vdate,vdate1:integer;
vempl_code,vempl_name,vdept_name,Vstrdate:string;
vlastdate,Vfristdate,vadd:integer;
begin
BitBtn1Click(Sender);
try
  excelapplication1.connect;
except
  showmessage('Excel may not be install!');
  abort;
end;
vlastdate:=strtoint(copy(maskedit2.text,7,2));
Vfristdate:=strtoint(copy(maskedit1.text,7,2));
excelapplication1.visible[0]:=true;
excelapplication1.caption:='标题';
excelapplication1.workbooks.add(null,0);
excelworkbook1.connectto(excelapplication1.workbooks[1]);
excelworksheet1.connectto(excelworkbook1.worksheets[1] as _worksheet);
v_row:=0;
inc(v_row);
excelworksheet1.Cells.item[v_row,1]:='第一行';
excelworksheet1.Disconnect;
excelapplication1.Disconnect;
end;

Answer 2

用ExecelApplication倒入数据时：var
  WorkBook : _WorkBook;
  WorkSheet : _WorkSheet;
  LCID : Integer;
  s : String;  WorkBook := ExcelApplication1.Workbooks.Add(OpenDialog1.FileName, LCID); //加载Excel文件，
  WorkSheet := WorkBook.Sheets[1] as _WorkSheet; //取得当前Sheet
  对每个Sheet，可以从初行到末行读取纪录：
  For i := firstno to lastno do 
    ShowMessage(Trim(WorkSheet.Cells.Item[i, thevaluelieno]));

Answer 3

还有一个问题！在Delphi中操作Excel时,合并单元格，并画线.
应如何写那
我可以在Delphi中调入Excel表格在Delphi窗体中操作吗?
操作完之后，再存成Excel文件格式.
也就是说我可以打开Excel文件格式.对它进行操作但不是把Excel打开