初学者：找不到Excel2000.pas

Question

想看Excel2000 Namespace,却提示unable to locate file "Excel2000.pas"
它在哪里？
谢谢

Answer 1

建议不要用Delphi的Excel组件，通过Com方法访问，程序通用性好。  try
    try
      Book := CreateOLEObject('Excel.Application');  // 创建一个Excel对象
      Book.WorkBooks.Open(_DIR_APP + 'QABB',,,,_PSW_ACCESS);  // 打开Excel中的WorkBooks（带口令）
      Book.DisplayAlerts := False;
      Book.Visible := False;      if Sender = bn_Print then
        begin
          for i := 1 to Book.WorkBooks[1].WorkSheets.Count do
            Book.WorkBooks[1].WorkSheets[i].PrintOut;
        end
      else if Sender = bn_Preview then
        begin
          Book.Visible := True;  //Excel服务器可视化
          Book.WorkBooks[1].WorkSheets.PrintPreview;    //打印预览
        end
      else begin
        Book.WorkBooks[1].SaveAs(ed_FilePath.Text + ed_FileName.Text,,'');  // 保存为一个EXCEL文件
        Application.MessageBox('保存为 Excel 文件','YGQA 提示',64);
      end;
      Book.Quit;
    except
      on EE: Exception do begin
        Application.MessageBox(PAnsiChar(hGetExcelErrorHint(EE)),'YGQA 提示',16)
      end;
    end;
  finally
    Book.Quit;
    Book  := UnAssigned;
    Sheet := UnAssigned;
  end;