[搞定]导出EXCEL的问题**

wnlx0626

var
sFileName,sFileExt:String;
begin
  SaveDialog.FileName :=Caption;
  if SaveDialog.Execute then
  begin
    sFileName := SaveDialog.FileName;
    sFileExt := SysUtils.UpperCase(SysUtils.ExtractFileExt(sFileName));
    if sFileExt='' then
    begin
      sFileExt := '.xls';
      sFileName := sFileName+sFileExt;
    end;
    if SysUtils.FileExists(sFileName) then
    if Jsdialogs.ConfirmBox('该文件已经存在，是否要覆盖该文件？','询问',2)=False then
       Exit;
    try
      TSheetDoclib.CopySheetToExcel(DocView2,sFileName);
    except
       Jsdialogs.ShowError('生成文件时发生异常，可能您指定的文件正被使用！','错误');
       Exit;
    end;
    if Jsdialogs.ConfirmBox('“' + sFileName + '”已生成。' + #13#10 + '要立即打开吗？','询问',2)=True then
      Borland.Delphi.ShellAPI.ShellExecute(0, 'Open', sFileName, '', '', borland.Delphi.Windows.SW_SHOWMAXIMIZED);
  end;

atiger

不会呀，我把你代码拷贝进去，测试是正常的。

你用的是哪个版本，Studio的版本号是多少？我用的是2805

yancm

是2827版本的缺陷。已经提交。

wnlx0626

我的版本是2809

atiger

哦，那后续版本来完善吧。

yancm

咳咳，我的意思是，直到最新版本这个缺陷都还存在。
先临时解决一下：
现在您在导出之前纪录一下RecNo,导出后手动给RecNo赋一下值。

wnlx0626

啊,不是定位的问题,而是导出EXCEL,要的数据不对的问题

wnlx0626

那有没有办法帮我解决下?

yancm

5楼您不是说打印是正确的吗？又不对了？
怎么个不对法？详细的说一下。

wnlx0626

看清下啊,打印是没问题,我说的是导出EXECL不对