循环遍历单元格时获取超链接

Question

我有一个包含日期的列和包含一些信息的其他列。其他列之一是带有超链接的列。到达日期后，我想获取超链接并将其添加到字符串中，超链接是指向另一个 excel 文件的链接。我想通过邮件发送所有这些信息，并且超链接应该可以点击并打开 excel 文件。

除了超链接之外，我一切正常。 现在我有 2 个问题：

• 这甚至可能吗？如果是，怎么做？
• 我只能在电脑上打开链接，还是在手机上也可以访问？ （手机只有outlook app，没有excel文件）

这是我目前所拥有的。

Dim nr As Integer
Dim nrString As String
Dim device As String
Dim link As Hyperlink
Dim subj As String
Dim msg As String

Sub Maillijst_verlopen_PO()

    Sheets("PO").Select
    For Each Cell In Range("o2", Range("o2").End(xlDown))
        If Cell.Value < Date And Cell.Value <> "" And Cell.Offset(0, 2) = "actief" Then
            nr = Cell.Offset(, -14).Value
            nrString = CStr(nr)
            device = Cell.Offset(0, -9).Value

            link= "<A href=" & Cell.Offset(0, -6).Value & ">test link</A>"

            subj = "nr " + nrString + ": " + device '+ " " + link
            msg = msg + vbCrLf + subj
        End If
    Next

    msg = "De volgende zaken hebben onderhoud nodig: " + vbCrLf + msg
    Call Mail_small_Text_Outlook
    msg = ""

End Sub


Sub Mail_small_Text_Outlook()

    Dim xOutApp As Object
    Dim xOutMail As Object

    Set xOutApp = CreateObject("Outlook.Application")
    Set xOutMail = xOutApp.CreateItem(0)

    With xOutMail
    .To = "....@h....."
    .CC = ""
    .BCC = ""
    .Subject = "PO verlopen"
    .Body = msg
    .Send
    End With

    Set xOutMail = Nothing
    Set xOutApp = Nothing
End Sub

Answer 1

您需要将Dim link As Hyperlink 更改为Dim hyperlink As String，然后您的超链接将作为字符串保存到您的hyperlink 变量中。

当然，您可以继续将其与其余部分连接起来，并在撤消评论时将其放在subj...