请问OleContainer1控件的一个问题?(30分)

  • 主题发起人 主题发起人 liuzhi
  • 开始时间 开始时间
L

liuzhi

Unregistered / Unconfirmed
GUEST, unregistred user!
我在OleContainer1中加入EXCEL对象,我想把EDIT控件中的值通过程序动态添加到EXCEL对象的一个工作表中但是我不知道怎么添加,就是不知道怎么确定单元格和赋值,还有就是单元格合并后怎么确定合并的单元格的位置,请大家指教。
 
我在OleContainer1里插入了EXCEL对象,我想请问如何确定EXCEL对象的单元格,特别是合并后的单元格
 
procedure TForm1.Button2Click(Sender: TObject);
var
MSExcel : Variant;
begin
MSExcel:=CreateOLEObject('Excel.Application');
MSExcel.WorkBooks.Add;
MSExcel.Visible := True;
MSEXCEL.Sheets[2].Cells[1,1].Value:=12345;
// MSExcel.WorkBooks.Close;
// MSExcel.Quit;
// MSExcel := Null;
end;
合并的单元个用单元格的MergeArea属性来访问他所在的合并单元格
 
请具体教下我,我以前没用过,谢谢大虾了
 
不知道要多详细,大概写了一下。
procedure TForm1.Button1Click(Sender: TObject);
var
Cell1,Cell2 : Variant;
R : Excel2000.Range;
App : ExcelApplication;
Sheet : _WorkSheet;
Intf : IunKnown;
begin
Ole.DoVerb(0);
Intf := Ole.OleObject.Application;
App := Intf as ExcelApplication;
Sheet := App.WorkSheets.Item[1] as _WorkSheet;
Cell1 := Sheet.Cells.Item[1,1];
Cell2 := Sheet.Cells.Item[5,5];
Sheet.Range[Cell1,Cell2].Merge(False);
Sheet.Cells.Item[1,1].MergeArea.Value := Edit1.Text;
Sheet.Cells.Item[6,6].MergeArea.Value := Edit2.Text;
end;
 
大虾,我双击OLEOleContainer后,选择由文件创建后,再选择链接后运行时程序报错,interface not support,指向这句代码-》Intf :=OleContainer1.OleObject.Application;我的目的是要使我在excel里的改动可以用excel保存,所以要选链接。还有就是那里有介绍这方法的书我在DELPHI的帮助里查不到,谢谢
 
接受答案了.
 
后退
顶部