记住:
  ExcepApplication.WorkBooks是对象数组,你的语句应该是:excelapplication1.WorkBooks[1].Open(OpenDialog1.FileName今天我心情好,才给你回答这个问题!!!!!

解决方案 »

  1.   

    procedure TForm1.Button1Click(Sender: TObject);
    begin
              ExcelApplication1.Connect;
            
            OpenDialog1.Filter:='*.XLS¦*.XLS';
            OpenDialog1.DefaultExt:='XLS';
            if OpenDialog1.Execute then
            begin
                    ExcelApplication1.WorkBooks[1].Open(OpenDialog1.FileName);
                    ExcelApplication1.Visible:=true;
            end;end.
    错误信息:
    [Error] Unit1.pas(43): Undeclared identifier: 'Open'
    [Error] Unit1.pas(44): '[' expected but ':=' found
    [Error] Unit1.pas(47): ';' expected but '.' found
    [Error] Unit1.pas(49): Declaration expected but end of file found
    [Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'