使用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; 

解决方案 »

  1.   

    请参考下面的代码
          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;