在Excel中，使用VBA用Unicode“文件夹”符号创建超链接

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

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

在这种情况下，文件夹符号的字符代码为128193，因此超出此功能的范围。

根据该问题的建议答案之一（来自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")

另外，请确保您添加了对Microsoft HTML对象库的引用。