如何从excel超链接中提取完整路径
如何从excel超链接中提取完整路径
提问于 2015-12-15 03:56:55
我有一个工作表，其中我维护了一个列，其中包含指向其他工作表的超链接。
Set rngx = Worksheets("Sheet2").Range("C1:C10000").Find("Power Plant 1", lookat:=xlPart)
BR2 = rngx.Hyperlinks(1).Address在以前的BR2中，我使用特殊的超链接路径作为“项目\发电厂\发电厂EPC1.xlsm”
后来，我进入了info->属性，并将超链接库更改为C:\，在提到超级链接库之后，我现在得到的超链接路径为“User\inkapb\AppData\Local\Temp\ EPC AutoTool\Projects\Power电厂EPC 1.xlsm”。
我的问题是，我需要C:驱动器中的路径，比如" C:\ Users\inkapb\AppData\Local\Temp\EPC AutoTool\Projects\Power from \Power 1.xlsm“--在代码中不添加C：\是否可以实现这一点。
回答 2
Stack Overflow用户
回答已采纳
发布于 2015-12-15 04:24:25
使用%LOCALAPPDATA%环境变量设置超链接地址。
'as a formula
=HYPERLINK("%LOCALAPPDATA%\Temp\EPC AutoTool\Projects\Power Plant\Power Plant EPC 1.xlsm", "Power Plant 1")
'as VBA
rngx.Hyperlinks(1).Address = Environ("LOCALAPPDATA") & _
"\Temp\EPC AutoTool\Projects\Power Plant\Power Plant EPC 1.xlsm"
'or,
rngx.Hyperlinks(1).Address = "%LOCALAPPDATA%\Temp\EPC AutoTool\Projects\Power Plant\Power Plant EPC 1.xlsm"从.Address或超链接对象检索超链接函数应该检索正确的完整路径和文件名。
BR2 = rngx.Hyperlinks(1).AddressStack Overflow用户
发布于 2015-12-15 04:21:17
我有一条完整的道路。它没有用"C:\“作为超级链接库，而是将其改为"x"，它的工作原理就像一种魅力。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/34280883
复制相关文章
相似问题
腾讯云开发者
