使用VBA在单个Excel单元中添加多个超链接

Question

我目前使用的是一个包含Form和Button的宏，以及包含路径字符串的数组，如下例所示：

array(0)="C:\Users\Dylan\Desktop\Hi.PDF"
array(1)="C:\Users\Dylan\Desktop\Bye.PDF"
array(2)="C:\Users\Dylan\Desktop\Welcome.PDF"

单击“按钮”，数组的内容将连接起来并放在一个句子中，在链接之间用逗号（，）分隔。只有1个路径/链接[array（0）]我可以使用VBA代码：

ThisWorkbook.Worksheets("Sheet1").Cells(1, 1).Hyperlinks.Add array(0)

但是由于字符串中有多个链接，VBA技术将它们作为单独的链接添加到同一个单元格中的同一个句子中是什么？

现在我有：

for i = 0 to 2
    ThisWorkbook.Worksheets("Sheet1").Cells(1, 1).Value = ThisWorkbook.Worksheets("Sheet1").Cells(1, 1).Value & array(i)
next i

我需要在一个单元格中添加所有链接。

Answer 1

您可以在单元格中添加包含多个链接的嵌入HTML页面。或者，您可以绘制透明框并删除所有填充，并使用链接添加信息。两者实际上并没有在单元格中添加多个链接，而是一种解决方法。 :-)