急急急 请大家帮我解释一段代码 谢谢...

[Eagle_ice]

问题描述：delphi操作Excel，在delphi中把StringGrid中的内容导出到Excel中，这段代码能正常运行，但是好多知识点我不懂，
比如程序中的DisplayAlerts、Quit、WorkBooks、SheetsInNewWorkbook等，还有对二维数组求LOW和High是什么值，譬如：Low(Args)，
请大家帮忙解释，这要看哪方面的知识呢，是VBA吗？并说说delphi操作Excel、Word的原理或方法。

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;

[swayi21]

搜一下吧，一大堆的。

[de410]

怎么发两个帖子~~


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 // 测试变体是否为UNASSIGNED
begin
XLApp.DisplayAlerts := False;//boolean类型，如果是true（缺省值），Excel在你代码运行时，在必要时候会显示警告信息：比如删除一个表单的时候。将该值设置为false将跳过这些警告。Excel会认为你选择了每个警告中的缺省返回值。
XLApp.Quit;//调用Quit方法
VarClear(XLApp); //清除XLApp变体
end;
try
XLApp := CreateOleObject('Excel.Application');
except
Exit;
end;

XLApp.WorkBooks.Add; //添加返回所有打开的工作簿的引用的集合。

XLApp.SheetsInNewWorkbook := High(Args) + 1; //定义一个BOOK中有多少

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 // 数据导出到excel 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;

[de410]

http://tech.ddvip.com/2008-09/122172064766998.html

给你个资料参考

[kampan]

2楼解释很详细，耐心。