使用VBA将超链接插入到Excel 2007中

我的工作表“input”范围“ B11 ”已生成目标url:

 file:///C:/Results/H1230-01%20VEF%201288.doc 

我的工作表“input”范围“ B10 ”已生成文本:

 H1230-01 VEF 1288 

如何自动插入目标url的超链接与单元格中显示的文本?

 Worksheets("VEF").Range("m65536").End(xlUp).Offset(1, 0).Select 

使用HyperLink公式示例:

 =HYPERLINK("path","Text To Display") 

或者用代码:

 Range.Formula = "=HYPERLINK(""path"",""Text To Display"") 

或使用您的实际参考使用这个公式:

 =HYPERLINK(B11,B10) 

你也可以使用Hyperlink.Add方法,就像这个例子中的Excel-Help一样

 With Worksheets("VEF") .Hyperlinks.Add Anchor:=.Range("m65536").End(xlUp).Offset(1, 0), _ Address:=.Range("B11"), _ ScreenTip:="Microsoft Web Site", _ TextToDisplay:=.Range("B10") End With With Worksheets(1) .Hyperlinks.Add Anchor:=.Range("a5"), _ Address:="http://example.microsoft.com", _ ScreenTip:="Microsoft Web Site", _ TextToDisplay:="Microsoft" End With