delphi7如何给excel单元格设置超链接地址
发布网友
发布时间：2025-01-04 21:51
共1个回答
热心网友
时间：2025-01-04 23:21
首先,uses ComObj;
在表单中建立一个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.
