怎样在Delphi中使用Excel中的函数

Question

我的连接是这样的:
  ExcelApplication1.Connect ;  EXcelApplication1.Workbooks.Open('D:\a.xls',EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);
  ExcelWorkBook1.ConnectTo(EXcelApplication1.Workbooks.Item[1]);
  ExcelWorkSheet1.ConnectTo (ExcelWorkBook1.ActiveSheet as _Worksheet );

Answer 1

查询vba
var ExcelApp: Variant;
  try
    ExcelApp := CreateOleObject( 'Excel.Application' );
    ExcelApp.WorkBooks.Open(path2);
    ExcelApp.Visible:=True;
  Except
    Application.MessageBox('您的机器里未安装Microsoft Excel','提示',MB_OK+MB_ICONINFORMATION);
    Exit;
  end;

Answer 2

var ExcelApp: Variant;
  try
    ExcelApp := CreateOleObject( 'Excel.Application' );
    ExcelApp.WorkBooks.Open(path2);
    ExcelApp.Visible:=True;
    // 使用Sum函數
    ExcelApp.Cells[5, 6] := '=SUM(C1:C4)';
  Except
    Application.MessageBox('您的机器里未安装Microsoft Excel','提示',MB_OK+MB_ICONINFORMATION);
    Exit;
  end;

Answer 3

var ExcelApp: Variant;
  try
    ExcelApp := CreateOleObject( 'Excel.Application' );
    ExcelApp.WorkBooks.Open(path2);
    ExcelApp.Visible:=True;
    // 使用Sum函數
    ExcelApp.Cells[5, 6] := '=SUM(C1:C4)';
  Except
    Application.MessageBox('您的机器里未安装Microsoft Excel','提示',MB_OK+MB_ICONINFORMATION);
    Exit;
  end;

Answer 4

有两中方法:
   1如上所显示的代码,ExcelApp := CreateOleObject( 'Excel.Application' );
    这些代码都是WINDOWS OLE 所提供的函数,
   2 用DELPHI 自己携带的控件包,

Answer 5

我想统计表中一共有多少记录,并将这些记录有序而不重复地保存于 n 个新建的 *.txt 文件当中,而 n 的取值,取决于每个 *.txt 的 B 列的和.这个 B 列的和 不能 大于 一个 指定的常数.ExcelApp.Cells[5, 6] := '=SUM(B1:B4)'; 这个对于固定行是可行,但对于不能确定多少行的情况下是不行的.ExcelApp.Cells.Count 这个也不行,出来的值很大,都不知是什么值;ExcelApp.Rows.Count 这个也不行,出来的值是65535,显然是最大行数.如能将这些Excel表能导入Access表中,那就不存在这个问题了.本贴将在 9月18日前结贴.

Answer 6

怎么这个 ExcelApp. 没有它的属性和方法显示出来的,哪叫人怎样用啊???????

Answer 7

请问 SampsonDyh(【 戴尔斐 】) 是不是想把一个 *.xls 文件,分成多个 *.txt 文件?
分割的规则按 B 列 n 条记录的和不于某一个数?