(Excel 2010)超链接到与xlsx文件相同的目录中的文件

我想添加一个超链接到Excel单元格,导致与xlsx文件在同一目录中的文件。 我用这个做到了

=HYPERLINK("file.ext") 

但细胞看起来像这样

 file.ext (like link, blue and underlined) 

我想input其他的东西,例如

 Click here (like link, blue and underlined) 

我知道我可以使用“插入”选项卡的常规超链接来做到这一点,但我想用HYPERLINK函数或其他函数来做到这一点。

 =HYPERLINK("file.ext","Click here") 

要么

 =HYPERLINK("file.ext";"Click here") 

也许是这样的:

= HYPERLINK(“file:/// C:\ TestFolder \ Book1.xls#Sheet2!B9”,“click here”)

上面的答案不适用于较新版本的Office。 下面的解决scheme应该适用于旧版本和新版本的Office。 我用Office 2016testing了它。

多个单元格

首先我们得到当前电子表格的完整目录:

B1 =CELL("filename")

我的例子的单元格内容是“C:[Book1.xlsx] Sheet1”。 请注意,文件名称和工作表也包含在内。 要删除文件名和工作表,我使用了下面的代码:

C1 =LEFT(B1,FIND("|",SUBSTITUTE(B1,"\","|",LEN(B1)-LEN(SUBSTITUTE(B1,"\","")))))

结果是文件目录“C:\”。 当然这也适用于其他目录。 在下一个单元格中input目标文件名称:

D1 Test.txt

我通过将目录和文件名合并成一个超链接来完成:

E1 =HYPERLINK(C1&D1)

一个细胞

也可以把所有东西合并成一个单元格:

B3 =HYPERLINK(LEFT(CELL("filename"),FIND("|",SUBSTITUTE(CELL("filename"),"\","|",LEN(CELL("filename"))-LEN(SUBSTITUTE(CELL("filename"),"\","")))))&"Test.txt")

设置

根据你的窗口设置(列表分隔符),你必须用“;”replace所有的“,” 在代码中。 此外,您必须将“Test.txt”replace为目标文件。 目标文件必须与Excel文件在同一目录中。

资源

https://social.msdn.microsoft.com/Forums/office/en-US/5d94e756-2202-4bbc-8795-cc6ba28e8a1b/excel-hyperlinkfile-format-for-a-relative-file?forum=exceldev