如何在VBA中提取&8&P对应的实际有效值？

你获取到的&8&P是Excel页眉的特殊格式代码，并非最终显示的实际内容，各代码含义：

• &P：代表当前页码
• &8：代表设置字号为8号

要得到渲染后的真实页眉内容，可使用Excel的ExecuteExcel4Macro函数解析这些特殊代码，修改后的VBA代码如下：

Sub GetDecodedRightHeader()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets(1)
    
    ' 获取带特殊代码的原始页眉字符串
    Dim rawHeader As String
    rawHeader = ws.PageSetup.RightHeader
    
    ' 用Excel 4.0宏函数解码，得到实际显示的内容
    Dim decodedHeader As String
    decodedHeader = ExecuteExcel4Macro("GET.DOCUMENT(62,""" & ws.Name & """)")
    
    MsgBox "解码后的RightHeader值: " & decodedHeader
End Sub

补充说明 #

• GET.DOCUMENT(62, 工作表名)是专门用于获取渲染后页眉页脚的函数，参数62对应右页眉，其他常用参数：
  • 60：左页眉
  • 61：中页眉
  • 63：左页脚
  • 64：中页脚
  • 65：右页脚
• 如果仅需处理简单场景，也可手动替换特殊代码，示例：

  ' 仅替换页码和字号的简单示例
  decodedHeader = Replace(rawHeader, "&8", "")
  decodedHeader = Replace(decodedHeader, "&P", ws.PageSetup.Page)
  

  但复杂格式（如字体、颜色、日期时间等）建议使用ExecuteExcel4Macro更可靠。

常见页眉页脚特殊代码参考 #

• &P：当前页码
• &N：总页数
• &F：工作簿名称
• &A：工作表名称
• &D：当前日期
• &T：当前时间
• &+数字：设置字号（如&8对应8号字）
• "&""字体名"""：设置字体（如&""微软雅黑""）
• &U：下划线开关
• &B：粗体开关
• &I：斜体开关

内容的提问来源于stack exchange，提问作者Kiến Lệ