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

Question

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

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

Sub Macro9()

Sheets("Charts").Select
i = 1

For Each myChart In ActiveSheet.ChartObjects
    myChart.Activate
    myPDF = "\stchsfs\arboari$\Profile-Data\Desktop\Export Trial1\Graph Export_" & i & ".pdf"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=myPDF, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    i = i + 1
Next myChart

End Sub

谢谢！

Answer 1

尝试下面的代码，code/s 评论中的解释：

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

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

Unique File Name when exporting based on cell values

excel

filenames

vba

export-to-pdf