Delphi的Excel导出有关问题

Delphi的Excel导出问题
XE2，想看看Excel2000.pas 的内容，找不到在哪.
uses后面加上Excel2000.pas没报错就是打不开。右键点open file in cursor也打不开。
还有就是 ComObj不能直接引用
如图： Delphi的Excel导出有关问题

必须这样：

另，会这样：

和这样：

请救急.
------解决方案--------------------
WorkBooks后面去掉[1]试试
------解决方案--------------------

引用:

WorkBooks后面去掉[1]试试

我搞错了，没看二楼。。。
你一楼的引用不是对的吗？为什么要改成楼那样的引用。System.Win.ComObj这样是对的吧。
------解决方案--------------------
如果是操作EXCEL的导入导出、单元格统计等功能，我建议你使用第三方控件XlsReadWriteII

下载地址：
XLSReadWriteII v5.10.25 Cracked for XE2-XE4 (Win32)
http://download.csdn.net/detail/wozengcong/6886915

安装步骤：
1、在Embarcadero RAD Studio XE2主菜单中依次点击"Component->Install Packages"添加（Add）XLSRWII5_DXE2.bpl
2、在Embarcadero RAD Studio XE4主菜单中依次点击“Toosl->Options->Delphi Options->Library->Library Path”分别添加Library Path：
Obj和XLSReadWriteII的完整路径

使用步骤：
XlsReadWriteII在Delphi中读取Excel文件
http://blog.csdn.net/zengcong2013/article/details/18714417

参考步骤：
Samples文件夹里面的Delphi文件夹里面有很多源码可以参考

------解决方案--------------------
xe5 也没有啊。d7在server标签页哦。顶

------解决方案--------------------
这个后续版本接的少这个应该系统环境问题,加上就加上呗,另EXCEL 操作还是看一下最新的VBA 这个操作和不同版本的EXCEL 有关
------解决方案--------------------

function ExportStrGridToExcel(Args: array of const): Boolean;

var

  iCount, jCount: Integer;

  XLApp: Variant;

  Sheet: Variant;

  I: Integer;

begin

  Result := False;

  if not VarIsEmpty(XLApp) then

  begin

    XLApp.DisplayAlerts := False;

    XLApp.Quit;

    VarClear(XLApp);

  end;


  try

    XLApp := CreateOleObject('Excel.Application');

  except

    Exit;

  end;


  XLApp.WorkBooks.Add;

  XLApp.SheetsInNewWorkbook := High(Args) + 1;


  for I := Low(Args) to High(Args) do

  begin

    with TStringGrid(Args[I].VObject) do

    begin

      XLApp.WorkBooks[1].WorkSheets[I+1].Name := Name;

      Sheet := XLApp.Workbooks[1].WorkSheets[Name];


      for jCount := 0 to RowCount - 1 do

      begin

        for iCount := 0 to ColCount - 1 do

        begin

          Sheet.Cells[jCount + 1, iCount + 1] := Cells[iCount, jCount];

        end;

      end;

    end;

  end;

  XlApp.Visible := True;

end;

StringGrid1导出到excel
编辑版本 delphi xe5
------解决方案--------------------
这个只是版本的差异引起的，稍微改一下即可。目前还没有用XE
------解决方案--------------------
版本差异，自行修改代码

Delphi的Excel导出有关问题

相关推荐