Vba 基于单元格值导出时的唯一文件名

我正在尝试使用VBA将多个图表导出为单独的pdf文件，但我想知道是否每个pdf文件的文件名可能不同，并从某个范围（例如A2-A6）的单元格值中提取，以便文件名基于相应的单元格（A2），下一个将基于其下方的单元格（A3）等等

这就是我目前所拥有的。基本上，名称是唯一的，但我仅限于更改数字（I=1）

---

谢谢

尝试下面的代码，代码注释中的解释：

Option Explicit

Sub Macro9()

Dim myChart As ChartObject
Dim myPDF As String
Dim i As Long

With Sheets("Charts")  '<-- use With instead of using Select 
    i = 1    
    For Each myChart In .ChartObjects
        myChart.Activate
        myPDF = "\\stchsfs\arboari$\Profile-Data\Desktop\Export Trial1\Graph Export_" & Sheets("Master Sheet").Range("A" & i + 1).Value2 & ".pdf" '<-- modifed this line
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=myPDF, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

        i = i + 1
    Next myChart
End With

End Sub

选项显式
亚宏观经济9（）
将myChart变暗为ChartObject
将myPDF设置为字符串
我想我会坚持多久
使用工作表（“图表”）”尝试下面的代码，代码注释中的解释：

Option Explicit

Sub Macro9()

Dim myChart As ChartObject
Dim myPDF As String
Dim i As Long

With Sheets("Charts")  '<-- use With instead of using Select 
    i = 1    
    For Each myChart In .ChartObjects
        myChart.Activate
        myPDF = "\\stchsfs\arboari$\Profile-Data\Desktop\Export Trial1\Graph Export_" & Sheets("Master Sheet").Range("A" & i + 1).Value2 & ".pdf" '<-- modifed this line
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=myPDF, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

        i = i + 1
    Next myChart
End With

End Sub

选项显式
亚宏观经济9（）
将myChart变暗为ChartObject
将myPDF设置为字符串
我想我会坚持多久
有了表格（“图表”）就行了！还有一件事，如果“A”值来自另一个名为“主工作表”的工作表，我将如何插入该工作表？它可以工作！还有一件事，如果“A”值来自另一个称为“主工作表”的工作表，我将如何插入该工作表？