Z zfp Unregistered / Unconfirmed GUEST, unregistred user! 2003-06-16 #1 请问在Delphi中,如何打开一个Excel文件(要求可以看的见Excel中的内容),最重要的是 如何给Excel中一个单元格中的内容加一个超级链接?最好有源代码。waiting……
R realLearning Unregistered / Unconfirmed GUEST, unregistred user! 2003-06-16 #2 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;
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;
W wfzha Unregistered / Unconfirmed GUEST, unregistred user! 2003-06-16 #4 不是delphi的类型,你加上ExcelApplication控件就有了