如何从Outlook VBA过程引用已命名的Excel列？

Dim xlApp As Object
Dim xlWorkbook As Object
Dim xlWorksheet As Object

Set xlApp = CreateObject("Excel.Application")
Set xlWorkbook = xlApp.Workbooks.Open("C:\路径\文件名.xlsx")
Set xlWorksheet = xlWorkbook.Worksheets("工作表名称")

Dim namedRange As Object
Set namedRange = xlWorksheet.Range("Column1")

Sub ReferenceNamedColumn()
    Dim xlApp As Object
    Dim xlWorkbook As Object
    Dim xlWorksheet As Object
    Dim namedRange As Object
    
    ' 创建Excel应用程序对象并打开Excel文件
    Set xlApp = CreateObject("Excel.Application")
    Set xlWorkbook = xlApp.Workbooks.Open("C:\路径\文件名.xlsx")
    Set xlWorksheet = xlWorkbook.Worksheets("工作表名称")
    
    ' 引用已命名的列
    Set namedRange = xlWorksheet.Range("Column1")
    
    ' 在Outlook中显示已命名的列的值
    MsgBox namedRange.Value
    
    ' 关闭Excel文件并释放对象
    xlWorkbook.Close
    xlApp.Quit
    Set xlWorksheet = Nothing
    Set xlWorkbook = Nothing
    Set xlApp = Nothing
    Set namedRange = Nothing
End Sub