在 Excel 中，使用 VBA 创建带有 unicode“文件夹”符号的超链接

Question

在 Excel 中，我正在尝试创建显示 unicode 文件夹图标（以及各种其他图标）的超链接。我可以通过右键单击 --> 超链接 --> 手动执行此操作，然后从 Web 浏览器“剪切并粘贴”字符。我的问题是我正在尝试使用 VBA 添加超链接，但我不知道该怎么做。这是我正在尝试的代码，但我得到了一个错误。 您可以在我的代码中看到，我使用 ChrW 函数和 TextToDisplay:=ChrW(&H1F4C1) 创建超链接。不幸的是，Excel 在到达该行时会引发错误。

'Purchase Orders Folder
    ActiveSheet.Range("ProjectTable[POs]").Cells(lastTblRowNum).Select                
    ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:=poPath, TextToDisplay:=ChrW(&H1F4C1)

Answer 1

ChrW 函数接受的字符代码有一个上限（请参阅MSDN documentation）。

charcode 的正常范围是 0–255。但是，在 DBCS 系统上， charcode 的实际范围是 -32768–65535。

在你的情况下，文件夹符号的字符代码是 128193，所以它超出了这个函数的范围。

采用this question 的建议答案之一（来自 Mark Tolonen），您的代码可能如下（如果您运行的是 Excel 2013 或更高版本）：

'Purchase Orders Folder
    ActiveSheet.Range("ProjectTable[POs]").Cells(lastTblRowNum).Select                
    ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:=poPath, TextToDisplay:=WorksheetFunction.Unichar(&H1F4C1)

如果您运行的是 Excel 2010 或更低版本，则必须使用上述问题中提供的其他答案之一。如果您选择使用 html 解决方法的 milevyo 的答案，则必须添加以下内容：

Function GetUnicode(CharCodeString As String) As String
    Dim Doc As New HTMLDocument
    Doc.Body.innerHTML = "&#x" & CharCodeString & ";"
    GetUnicode = Doc.Body.innerText
End Function

然后你的代码将是：

'Purchase Orders Folder
    ActiveSheet.Range("ProjectTable[POs]").Cells(lastTblRowNum).Select                
    ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:=poPath, TextToDisplay:=GetUnicode("1F4C1")

另外，请确保您 add a reference 访问 Microsoft HTML 对象库。