★★Delphi操作Excel的问题，与网上的文章有不同★★

Question

自从改用了Dephi7后，操作Excel就出了问题，如ExcelApplication1.WorkSheets[1].ActivateExcelApplication1.Cells[1,4].Value := '第一行第四列';ExcelApplication1.ActiveSheet.Columns[1].ColumnsWidth := 5;ExcelApplication1.ActiveSheet.Rows[2].RowHeight := 1/0.035;等等将不能继续使用，谁能给我一个适用于Delphi7的操作Excel的例子？*******注意不要再贴些Delphi5的例子，我有一大堆*******

Answer 1

可以阿
uses 
excelxp;....
自己看看
oc/server/下的excelxp.pas单元就知道了

Answer 2

放了Sever-->TExcelApplication控件了吗？

Answer 3

各位老大，真的不行：ExcelApplication1.WorkSheets[1].Activate//根本就不存在Activate方法ExcelApplication1.Cells[1,4].Value := '第一行第四列';//改成ExcelApplication1.Cells.item[1,4]:= '第一行第四列';ExcelApplication1.ActiveSheet.Columns[1].ColumnsWidth := 5;//Columns里就不能加参数麻烦在D7下试一下，发给我看看[email protected]（或贴出来）

Answer 4

我用的是D7+Win2000+OfficeXp,测试通过
var aE : Variant;
begin
  with ExcelApplication1 do
  begin
    Visible[0] := True;
    WorkBooks.Add(xlWBATWorkSheet,0);
    aE := WorkSheets.Item[1];
    aE.Cells[1,1].Value := 'sss';
    aE.SaveAs('C:\aE.xls');
  end;

Answer 5

ljmanage(过客) 给我发个一行不行？
[email protected].

Answer 6

sz1008(dot) 的代码给了我很大的启发，就是这一句：aE := WorkSheets.Item[1];其实用控件（ExcelApplication1、ExcelWorkbook1、ExcelWorksheet1）不能操作Excel“设置”类型的命令，而用Variant则可以实现诸如：设置行高、列宽、页眉页脚等不知道我得出的结论是否正确！

Answer 7

var
 ve,bookA:Variant;try
   ve:= CreateOleObject('Excel.Application');
    ve.Workbooks.open(ExtractFilePath(application.ExeName)+'EXCEL\bzbj.xls',0); //add(xlWBatWorkSheet)
    ve.Visible:=true;    
   bookA:=ve.workbooks[1].worksheets['sheet1'];//['sheet']
   booka.cells[1,4]:='dddddddd';  
    except
    ve.DisplayAlerts:=false;
    ve.Quit;
    exit;
  end;