Question

delphi7如何给excel单元格设置超链接地址

如题，想用delphi给excel的指定单元格动态设置一个超链接的地址，比如链接到sheet2。可追加财富值，求教大神。

Answer 1

1. 首先,uses ComObj;

2. 在表单中建立一个button1,双击编辑,代码如下:

procedure TForm1.Button1Click(Sender: TObject);

var ExcelApp: Variant;

begin

  ExcelApp:=CreateOleObject('Excel.Application');

  ExcelApp.Visible:=True;

  ExcelApp.WorkBooks.Add;

  ExcelApp.Cells[1,4].Value:='=hyperlink("[Book1]sheet2!C1","sss")';

end;

此方法存在一个问题,就是不能先打开一个excel表,不然代码中的链接就会指向先前打开的excel表的sheet2.

追问

还请问，[Book1]是什么意思？

追答

book1就是你新建的工作簿呀

[Book1]sheet2!C1这句的意思就是指向工作簿Book1的Sheet2工作表的C1单元格

Answer 2

右键点击单元格，最后一个就是

追问

我说的是用delphi7的代码实现。

追答

不好意思啊，那我不知道了。。。