Excel VBA - 提取/打开动态超链接URL /地址

时间:2016-05-10 20:23:35

标签: excel vba excel-vba dynamic hyperlink

问候!

我正在尝试使用excel vba从OR中提取动态超链接,或者使用excel vba打开工作表中的动态超链接。我可以单击超链接,它将正确打开。到目前为止,我无法找到任何有关如何提取超链接指向的URL或仅打开超链接的相关信息。

以下是用于根据模型选择构建动态超链接的公式。

<div style='position: relative;' id='imageContainer'>
  <img src='http://i.stack.imgur.com/k9vQS.jpg'/>
</div>

<script>
var letter = {
  label: '5',
  top: 80,
  left: 5
}

var letter_elem = document.createElement('span');
letter_elem.style.top = letter.top + '%';
letter_elem.style.left = letter.left + '%';
letter_elem.innerHTML = letter.label;
letter_elem.className = 'number';

document.getElementById('imageContainer').appendChild(letter_elem);
</script>

<style>
.number {

    position: absolute;
    top: -1000px;
    left: -1000px;
    font-size: 28px;
    min-width: 32px;
    background: #fff;
    text-align: center;

}
</style>

因此,根据选择,用户会使用此公式,并找到将用于创建超链接的相应链接。

我想要的:使用按钮 - 打开文件(PDF)以允许用户从一个按钮轻松打印所需的文件。我正在努力减少人为接触,以消除人为错误的可能性。

我还尝试录制一个宏来打开链接,但它只需要我将工程表放入超链接。

以下是无法解决我的问题的其他帖子的链接,但提供了良好的信息...... Excel VBA Get hyperlink address of specific cell

Extract URL From Excel Hyperlink Formula

谢谢,我期待一些有用的回应c:

让我知道我是否需要详细说明或澄清任何事情!

1 个答案:

答案 0 :(得分:0)

您无法在VBA中运行vlookup的任何原因。然后,您将链接地址作为字符串,然后您可以执行以下操作:

Sub GetLink()
    Dim ReturnedAddress As String
    ReturnedAddress = Application.WorksheetFunction.VLookup(ThisWorkbook.Sheets("S.O.P.").Range("D3"), ThisWorkbook.Sheets("Models").Range("C2:G296"), 4, 0)
end sub