Delphi - 操作Excel数据公式的实现

procedure TF_SMP_FT_NEW.RzBitBtn_StartToChangeClick(Sender: TObject);
var
    i, j, ni, nj, iRows, iCol, iCol_flag: Integer;
    T_DATE, T_LC, T_CP, T_FN, T_Row_Flag, T_sl, Data_Flag, New_Path_Flag, Warning_Flag: string;
    ApplicationSheet: variant;
    nArr: array[..] of Integer;
    mArr: array[..] of Integer;
begin
    if RzOpenDialog1.FileName <> '' then
    begin
        RzEdit_Status.Text := '文件正在被转换，请稍后！';
        if RzEdit_FileName.Text <> '' then
        begin
            try
                ApplicationSheet := Createoleobject('Excel.Application'); //创建工作表
                ApplicationSheet.Visible := false; //Excel不可见
                ApplicationSheet.Workbooks.Open(RzOpenDialog1.FileName); //打开Excel并且导入文件
                ApplicationSheet.WorkSheets[].activate; //设置第一页当前页
                New_Path_Flag := 'C:\Temp\' +'EX_'+ RzEdit_FileName.Text;
                Warning_Flag := '文件已保存到：C:\temp\'+'EX_'+ RzEdit_FileName.Text +#+ '请注意查看！谢谢';
                //Operating the sheet.
                T_DATE := ApplicationSheet.Cells[, ].Value; //缓存日期
                for i :=  to  do
                begin
                    if ApplicationSheet.Cells[, i].Value = '' then
                    begin
                        if ApplicationSheet.Cells[, i - ].Value <> '' then
                        begin
                            T_Row_Flag := ApplicationSheet.Cells[, i - ].Value; //列数标记
                        end;
                    end;
                end;
                T_sl := StringReplace(T_Row_Flag, 'T', '', [rfReplaceAll]);
                iCol_flag := StrToInt(T_sl) + ; //列数
                j := StrToInt(T_sl) + ;
                for i :=  to j do
                begin
                    ApplicationSheet.ActiveSheet.Columns[i].Delete; //把空白的列删除掉
                end;
                //asheet.Cells[16, 1].Value := 'Limit';     //先把格式规范化
                ApplicationSheet.Cells[, ].Value := 'Bias1'; //先把格式规范化
                ApplicationSheet.Cells[, ].Value := 'Bias2';
                ApplicationSheet.Cells[, ].Value := 'Bias3';

                ApplicationSheet.Cells[, ].Value := 'Min Limit';
                ApplicationSheet.Cells[, ].Value := 'Max Limit';
                ApplicationSheet.Cells[, ].Value := 'Average';
                ApplicationSheet.Cells[, ].Value := 'STDEV';
                ApplicationSheet.Cells[, ].Value := 'Min Data';
                ApplicationSheet.Cells[, ].Value := 'Max Data';

                ApplicationSheet.ActiveSheet.Rows[].Delete; //行的处理：从下向上
                for i :=  to  do
                begin
                    ApplicationSheet.ActiveSheet.Rows[].Delete;
                end;
                ApplicationSheet.Cells[, ].Value := 'Serial#';
                ApplicationSheet.Cells[, ].Value := 'Bin#';
                ApplicationSheet.ActiveSheet.Rows[].Delete;
                ApplicationSheet.ActiveSheet.Rows[].Delete;
                ApplicationSheet.ActiveSheet.Rows[].Delete;
                ApplicationSheet.ActiveSheet.Rows[].Delete;
                ApplicationSheet.ActiveSheet.Rows[].Delete;
                for i :=  to  do
                begin
                    ApplicationSheet.ActiveSheet.Rows[].Delete;
                end;
                ApplicationSheet.Cells[, ].Value := 'LotCode';
                ApplicationSheet.Cells[, ].Value := '';
                ApplicationSheet.Cells[, ].Value := 'CUSTOMER_Production';
                ApplicationSheet.Cells[, ].Value := 'TestFileName';
                ApplicationSheet.Cells[, ].Value := 'Parameter';
                ApplicationSheet.Cells[, ].Value := '';
                ApplicationSheet.Cells[, ].Value := 'Unit';
                ApplicationSheet.Cells[, ].Value := '';
                ApplicationSheet.ActiveSheet.Range['A2:E4'].Value := '';
                ApplicationSheet.ActiveSheet.Range['A16:E16'].Value := '';
                T_FN := RzEdit_FileName.Text;
                T_CP := Copy(T_FN, Pos('_', T_FN) + , );
                T_CP := Copy(T_CP, , Pos('_', T_CP) - ); //产品名称
                T_LC := Copy(T_FN, , Pos('_', T_FN) - ); //周记
                ApplicationSheet.Cells[, ].Value := T_LC;
                ApplicationSheet.Cells[, ].Value := T_CP;
                ApplicationSheet.Cells[, ].Value := RzEdit_FileName.Text;
                OraQuery_Tmp.Close;
                OraQuery_Tmp.Open;
                Oraquery_Tmp.First;
                i := ;
                while not Oraquery_Tmp.Eof do
                begin
                    ApplicationSheet.Cells[, i].Value := Oraquery_Tmp.FieldByName('CGCS').AsString;
                    ApplicationSheet.Cells[, i].Value := Oraquery_Tmp.FieldByName('CGDW').AsString;
                    ApplicationSheet.Cells[, i].Value := Oraquery_Tmp.FieldByName('MinLimit').AsString;
                    ApplicationSheet.Cells[, i].Value := Oraquery_Tmp.FieldByName('MaxLimit').AsString;
                    i := i + ;
                    Oraquery_Tmp.Next;
                end;
                //修改时间：20140924
                //增加功能：单位进一步转换达到测试要求
                iRows := ; //从100行开始
                Data_Flag := ApplicationSheet.Cells[iRows, ].Value;
                while Data_Flag <> '' do
                begin
                    iRows := iRows + ;
                    Data_Flag := ApplicationSheet.Cells[iRows, ].Value;
                end;
                iRows := iRows - ; //计算行数

                OraQuery_Tmp.Close;
                OraQuery_Tmp.Open;
                Oraquery_Tmp.First;
                i := ;
                while not Oraquery_Tmp.Eof do
                begin
                    mArr[i] := Oraquery_Tmp.FieldByName('ID').AsInteger + ;
                    i := i + ;
                    Oraquery_Tmp.Next;
                end;
                ni := i - ;

                for iCol :=  to ni do
                begin
                    for i :=  to iRows do
                    begin
                        Data_Flag := ApplicationSheet.Cells[i, mArr[iCol]].Value;
                        if Data_Flag = 'Untested' then
                        begin
                            Continue;
                        end
                        else
                        begin
                            ApplicationSheet.Cells[i, mArr[iCol]].Value := ApplicationSheet.Cells[i, mArr[iCol]].Value * ;
                        end;
                    end;
                end;
                OraQuery_Tmp.Close;
                OraQuery_Tmp.Open;
                Oraquery_Tmp.First;
                j := ;
                while not Oraquery_Tmp.Eof do
                begin
                    nArr[j] := Oraquery_Tmp.FieldByName('ID').AsInteger + ;
                    j := j + ;
                    Oraquery_Tmp.Next;
                end;
                nj := j - ;

                for iCol :=  to nj do
                begin
                    for i :=  to iRows do
                    begin
                        Data_Flag := ApplicationSheet.Cells[i, nArr[iCol]].Value;
                        if Data_Flag = 'Untested' then
                        begin
                            Continue;
                        end
                        else
                        begin
                            ApplicationSheet.Cells[i, nArr[iCol]].Value := ApplicationSheet.Cells[i, nArr[iCol]].Value * ;
                        end;
                    end;
                end;
                //修改时间：2014-12-16
                //公式的实现
                for j := iCol_flag downto  do
                begin
                    ApplicationSheet.Cells[, j].Value := '=AVERAGE(' + INDEX(, j) + ':' + INDEX(iRows, j) + ')'; //Average
                    ApplicationSheet.Cells[, j].Value := '=STDEVP(' + INDEX(, j) + ':' + INDEX(iRows, j) + ')'; //STDEVP
                    ApplicationSheet.Cells[, j].Value := '=MIN(' + INDEX(, j) + ':' + INDEX(iRows, j) + ')'; //MinDate
                    ApplicationSheet.Cells[, j].Value := '=MAX(' + INDEX(, j) + ':' + INDEX(iRows, j) + ')'; //MaxDate
                end;

                //修改时间：2014-10-24
                //删除相同栏位，满足客户要求
                //测试程序
                for i := iCol_flag downto  do
                begin
                    Data_Flag := ApplicationSheet.Cells[, i].Value;
                    if Data_Flag = 'N/A' then
                    begin
                        ApplicationSheet.ActiveSheet.Columns[i].Delete;
                    end;
                end;

                ApplicationSheet.Cells[, ].Value := 'DATE';
                ApplicationSheet.Cells[, ].Value := 'TEST TIME';
                ApplicationSheet.WorkSheets[].Columns.NumberFormatLocal := 'G/通用格式'; //格式设置
                ApplicationSheet.Cells[, ].Value := T_DATE;
                ApplicationSheet.Cells.Item[, ].NumberFormatLocal := 'YYYYMMDD';

                ApplicationSheet.DisplayAlerts := False; //不显示保存替换对话框
                ApplicationSheet.WorkBooks[].SaveAs(New_Path_Flag);
                ApplicationSheet.activeWorkBook.saved := True; //忽略保存
            except
                ApplicationSheet.Workbooks[].close(True);
            end;
            ApplicationSheet.Workbooks[].close(True);
            RzEdit_Status.Text := '文件已转换完成！';
            Application.MessageBox('文件已转换完成！', '提示',  + mb_iconinformation);
            ShowMessage(Warning_Flag);
        end;
    end
    else
    begin
        Application.MessageBox(' 请您先打开要操作的文件！', '提示',  + mb_iconinformation);
        Abort;
    end;
end;

end.

作者：Jeremy.Wu
  出处：https://www.cnblogs.com/jeremywucnblog/

  本文版权归作者和博客园共有，欢迎转载，但未经作者同意必须保留此段声明，且在文章页面明显位置给出原文连接，否则保留追究法律责任的权利。