如何用VBA将excel文件转为pdf文件

　　要使用VBA将Excel文件转换为PDF文件，可以使用以下代码：

　　```vba

　　Sub ConvertToPDF()

　　Dim filePath As String

　　Dim fileName As String

　　Dim pdfPath As String

　　' 设置文件路径和名称

　　filePath = "C:\\Path\ o\\your\\Excel\\File.xlsx"

　　fileName = "File.xlsx"

　　' 设置PDF保存路径和名称

　　pdfPath = "C:\\Path\ o\\save\\PDF\\File.pdf"

　　' 打开Excel文件

　　Workbooks.Open filePath

　　' 保存为PDF文件

　　ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False

　　' 关闭Excel文件

　　ActiveWorkbook.Close SaveChanges:=False

　　' 提示转换完成

　　MsgBox "Excel文件已成功转换为PDF文件。"

　　End Sub

　　```

　　将上述代码复制到Excel的VBA编辑器中(按下Alt+F11打开)，然后运行`ConvertToPDF`子过程即可将Excel文件转换为PDF文件。请确保在代码中正确设置文件路径和名称。转换完成后，将显示一个消息框确认转换成功。