我有一个excel文件,可以根据模板生成订单。当这些订单获得批准后,它们都会变成PDF格式。我想找到一种方法来改变我的转换为pdf代码以忽略模板。
Sub SavePDF()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Select
PO = Range("C14").Value
Supplier = Range("B4").Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="Z:\Purchase Order Forms\Forms\" & PO, Quality _
:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False _
, OpenAfterPublish:=False
Next ws
End Sub
模板标签名为“PurchaseOrderForm”,其他标签名为 OrderNumber & UserName
欢呼任何帮助。
答案 0 :(得分:0)
然后使用IF语句检查名称:
If ws.Name <> "PurchaseOrderForm" Then
' do stuff
End If