关于Excel，，为何无人问津？[70分]

Question

1。知道某个单元格的行列号，如何根据行列号返回
  自己根据行列号处理，因为列号肯定是数字就不用处理了；关键是行号，每26行就要转换一次，只要定义好规则，用判断处理就可以了3。在print事件中强行加入列标题
       
4.WordApp.DisplayAlerts := True;  // 7Discard unsaved files....

Answer 1

你可以先建立一个空的带有格式的Excel工作薄，在工作薄中设置好打印标题，确保每页都打印.在程序中用wookbooks.add(文件名,id号)打开往里面填写数据,如果不想存盘，设置activewookboob.saved=true然后关闭wookbook.

Answer 2

如果需要在关闭前确定是否存盘，加入： v.DiaplayAlert:=true; //确定存盘 
v.DiaplayAlert:=false;//不存盘，直接退出 格式的设置 var 
　Range: Variant; 
begin 
　Range := v.Workbooks[1].WorkSheets['数据录入'].Range['A2:M2’]; //单元格从A2到M2 Range.Merge; //合并单元格 
　Range.Rows.RowHeight := 20; //设置行高 
　Range.Borders.LineStyle := 1; //加边框 
　Range.Columns[2].ColumnWidth := 12; // 设置列宽 
　Range.FormulaR1C1 := '标题'; 
　Range.HorizontalAlignment := xlCenter; //水平对齐方式  
　Range.VerticalAlignment := xlCenter; //垂直对齐方式 
　Range.Characters.Font.Name := '宋体'; //字体 
　Range.Characters.Font.FontStyle := '加粗'; 
　Range.Characters.Font.Size := 12; 
　Range.Characters.Font.OutlineFont := False; //是否有下划线 
　Range.Characters.Font.ColorIndex := xlAutomatic; //颜色 
end; 　　其他的属性可以察看MSDN或者其他资料。 

Answer 3

//给点提示吧，自己改：
1：
  //将编辑框的数据写入Excel
  with ExcelWorksheet1.Cells do
  begin
    Item[2,ord('B')-ord('A') + 1]:=DateToStr(dtp_date.date);
    Item[2,ord('D')-ord('A') + 1]:=edt_fazhan.text;
    Item[2,ord('H')-ord('A') + 1]:=edt_daozhan.text;
    Item[2,ord('L')-ord('A') + 1]:=cmb_yunzhong.text;
    Item[3,ord('B')-ord('A') + 1]:=edt_yunshuHao.text;
    Item[3,ord('F')-ord('A') + 1]:=edt_yunfei.text;  end;
//----------------------
4：  ExcelWorkbook1.Saved[1]:= true;

Answer 4

回复人：　cobi(我是小新)　(2001-12-24 8:42:29)  得0分 
1。知道某个单元格的行列号，如何根据行列号返回
  自己根据行列号处理，因为列号肯定是数字就不用处理了；关键是行号，每26行就要转换一次，只要定义好规则，用判断处理就可以了3。在print事件中强行加入列标题
      
4.WordApp.DisplayAlerts := True;  // 7Discard unsaved files...听小新的没错