如何从excel导出pdf文件,当文件名已经存在,然后有一个消息框是/否与VBA?
请建议,以便与消息框,我可以选择是否是或不是取代它和另一个“cust”这是一个子文件夹,我希望有一个消息框太,如果没有找到子文件夹。
谢啦,谢啦
Sub PrintToPDF()
Dim strFilename As String
Dim rngRange As Range
Dim cust As Range
Dim strcust As String
Set cust = Worksheets("Sheet1").Range("B2")
Set rngRange = Worksheets("Sheet1").Range("C4")
strcust = cust.Value
strFilename = rngRange.Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\test inv\" & cust & "\" & strFilename & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub
2条答案
按热度按时间wko9yo5t1#
活动工作表转换为PDF(
Dir
)djmepvbi2#
要检查1个文件是否存在:
检查1个文件夹是否存在:
要显示消息确认: