如何在VBA中将相对超链接更改为绝对超链接[英] How to change relative hyperlink to absolute hyperlink in VBA

问题描述

我想使用 CDO.Message 从 MS Access 发送几个附件.
当我使用"objMessage.AddAttachment"时我需要指出文件的完整路径,但所有指向存储在我的查询(记录集)的单独列中的文件的超链接,但仅作为相对链接.怎么改成绝对超链接?
完整代码如下:

展开|选择|Wrap|行号
解决方案
能否提供一个例子相对链接?我相当肯定你在做什么;但是,有这个例子会证实.

当我在表中添加超链接时,我看到它是"Folder1\testfile.txt",
使用 VBA 代码 Trim(rst(8)) 我得到它
"#Folder1\testfile.txt#",
但实际路径是 C:\DOCUMENTS\Folder1\testfile.txt

似乎我得到了这个带有超链接属性的链接.
我只需要没有#-signs 和任何其他信息的完整路径(绝对路径).

我的基地位于 C:\DOCUMENTS

CostasM:
我只需要没有#-signs 和任何其他信息的完整路径(绝对路径).
恐怕这不是真的.没有井号 (#) 字符就没有超链接.请参阅 错误 7980:HyperlinkAddress 或 HyperlinkSubAddress 读取仅适用于超链接,了解有关超链接如何工作以及如何在需要时在代码中设置它们的更多信息.

对于您的情况,您将需要提取相对的地址(除非您已经在某处拥有该信息).修正地址.除非每次运行时都相同,否则您将需要使用只有您拥有的知识.最后,按照链接线程中的说明重做超链接.请记住,任何电子邮件的收件人都必须能够从超链接中的任何内容访问文件,因此驱动器号只有在他们的 PC 上必须相同时才足够.否则,您需要考虑 UNC (\\Server\Share\folders...\File).

本文地址:https://www.itbaoku.cn/post/1050598.html