
用以下代碼拆分完的檔案是直接以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
轉載請註明出處,本文鏈接:https://www.uj5u.com/gongcheng/13487.html
標籤:VBA
