使用Delphi 控件方法在Form中分别放入ExcelApplication, ExcelWorkbook和ExcelWorksheet。 打开已存在的工作簿:
ExcelApplication1.Workbooks.Open (c:\a.xls
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,0)
以上还正确
但加上这一句,编译通不过,提示无Activate属性
ExcelApplication1.WorkSheets[2].Activate;
ExcelApplication1.Workbooks.Open (c:\a.xls
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,0)
以上还正确
但加上这一句,编译通不过,提示无Activate属性
ExcelApplication1.WorkSheets[2].Activate;
try
ExcelApplicationSell.Connect;
ExcelApplicationSell.WorkBooks.Open (FileName,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);
ExcelApplicationSell.Visible[0]:=True;
ExcelApplicationSell.Disconnect;
except
on E: exception do
begin
Application.MessageBox(Pchar('打开'+FileName+'失败!'),'错误',MB_ICONERROR + MB_OK);
Exit;
end;
end;
end;