用以下代码拆分完的文件是直接以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