Excel问题,难!!!!(200分)

  • 主题发起人 主题发起人 zfp
  • 开始时间 开始时间
Z

zfp

Unregistered / Unconfirmed
GUEST, unregistred user!
请问在Delphi中,如何打开一个Excel文件(要求可以看的见Excel中的内容),最重要的是
如何给Excel中一个单元格中的内容加一个超级链接?最好有源代码。waiting……
 
procedure TForm1.Button1Click(Sender: TObject);
var
Sheet : _WorkSheet;
Rng : Range;
begin
ExcelApplication1.Connect ;
ExcelApplication1.Visible[0] := True;
ExcelApplication1.Workbooks.Add(EmptyParam,0);
Sheet := ExcelApplication1.ActiveSheet as _WorkSheet;
Rng := Sheet.Range[Sheet.Cells.Item[1,1],Sheet.Cells.Item[1,1]];
Rng.Hyperlinks.Add(Rng,'http://www.delphibbs.com',EmptyParam);
//记得使用完后关闭连结。
end;
 
Rng : Range;
delphi有这个类型吗?
 
不是delphi的类型,你加上ExcelApplication控件就有了
 
这个问题不怎么难呀
 
多人接受答案了。
 
后退
顶部