用vba把excel文件发布转化为pdf格式文件

Sub aliensky()
 Dim asy As Worksheet
 Dim spath As String
 spath = Excel.ThisWorkbook.Path
 For Each asy In Excel.ThisWorkbook.Worksheets
 sName = spath & "\" & asy.Name & ".pdf"
 asy.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sName
 Next
End Sub

Sub aliensky1()
spatch = Excel.ThisWorkbook.Path
sName = spatch & "\" & ActiveWorkbook.Name & ".pdf"
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sName
End Sub