delphi7如何给excel单元格设置超链接地址
如题,想用delphi给excel的指定单元格动态设置一个超链接的地址,比如链接到sheet2。可追加财富值,求教大神。...
如题,想用delphi给excel的指定单元格动态设置一个超链接的地址,比如链接到sheet2。可追加财富值,求教大神。
展开
2个回答
展开全部
首先,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.
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询