Excel VBA：如何利用单元格存储的地址导出指定区域为PDF？

问题背景 #

需根据三个参数（赛事轮次：3/5、赛制：Regular/Handicap、当日赛事数量：6/8/10等）动态确定目标工作表和导出区域，将对应内容导出为PDF。目前已通过逻辑代码将目标区域的字符串表达式写入单元格DZ1，但直接调用该单元格值执行ExportAsFixedFormat方法失败。

错误原因 #

单元格DZ1中存储的是字符串形式的VBA代码片段，并非实际的Range对象。直接对字符串调用ExportAsFixedFormat方法会报错，因为字符串类型没有该方法。

解决方案 #

方案1：使用Eval解析字符串为Range对象（快速适配现有逻辑） #

通过VBA的Eval函数将单元格中的字符串解析为真正的Range对象，再执行导出：

Dim targetRange As Range
Set targetRange = Eval(ThisWorkbook.Sheets("Race Meeting Information").Range("DZ1").Value)

targetRange.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=myFile, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

注意：Eval函数存在一定安全风险，若单元格内容被篡改可能执行恶意代码，仅建议在可控环境下使用。

方案2：重构逻辑直接获取Range对象（推荐，更安全可靠） #

放弃将字符串写入单元格的方式，直接在代码中根据参数判断并赋值目标Range，避免字符串解析的风险：

Dim targetSheet As Worksheet
Dim targetRange As Range

' 根据轮次和赛制确定目标工作表
Select Case True
    Case HEATS = 5 And HC_REG = "Regular"
        Set targetSheet = ThisWorkbook.Sheets("C2 - 5 Heat Team Sheet")
    ' 可添加其他赛制/轮次的判断分支
    ' Case HEATS = 3 And HC_REG = "Handicap"
    '     Set targetSheet = ThisWorkbook.Sheets("对应工作表名称")
End Select

' 根据当日赛事数量确定导出区域
If Not targetSheet Is Nothing Then
    Select Case True
        Case TeamRaces < 7
            Set targetRange = targetSheet.Range("B2:AL61")
        Case TeamRaces > 6 And TeamRaces < 13
            Set targetRange = targetSheet.Range("B2:AL61,B67:AL126")
        ' 可添加其他赛事数量的分支
    End If
End Select

' 执行导出
If Not targetRange Is Nothing Then
    targetRange.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=myFile, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
End If

原代码问题说明 #

之前尝试的导出代码错误地将单元格的字符串值当作Range对象调用方法，属于类型不匹配导致的执行失败，上述两种方案均可解决该问题。

内容的提问来源于stack exchange，提问作者Frankie