如何将工作表批量拆分为独立工作簿时直接以某一列数据命名？

[Pinkaya]

用以下代码拆分完的文件是直接以Sheet Name命名的，但是最终想要的文件名因为超过了31个字符的限制，所以想请问下如何在批量生成的时候就直接以某一个工作表的某一列数据对应命名呢？请大神赐教！


Sub BatchConvertWorkSheetToPDF()

For Each sh In Worksheets

If sh.Name <> "" Then

sh.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ActiveWorkbook.Path & "\" & sh.Name & ".pdf",Quality:=xlQualityStandard, _IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

End If

Next

End Sub