在给定的单元格中包装一个超链接

我想超链接单元格中的文字，但无法让它正常工作。 我得到“对象不支持这个属性”的错误。 我意识到格式不正确，但找不到正确的语法。 如果你有一个网站或build议的链接，非常感谢。 谢谢！

With wbk.Sheets(1) Set rngResults = .Range("A" & .Rows.Count).End(xlUp).Offset(1, 0) bingo = fld.Path & "\" & fl.Name ActiveSheet.Hyperlinks.Add Anchor:=rngResults, Address:=bingo, SubAddress:=aCell.Address, TextToDisplay:=strJackpot .WrapText = True End With 

Answer 1

WrapText与范围一起使用，而不是超链接或工作表，所以您需要完全限定它。

将.WrapText = True行更改为以下，以使其工作：

 rngResults.WrapText = True