用VB编写一段EXCEL转PDF文件的程序

以下是一个简单的VB程序，实现将Excel文件转换为PDF文件：

Sub ConvertToPDF()
    Dim ExcelFile As String
    Dim PDFFile As String
    
    '选择Excel文件
    ExcelFile = Application.GetOpenFilename("Excel Files (*.xls*), *.xls*", , "Select Excel File")
    
    '确定PDF文件路径和文件名
    PDFFile = Left(ExcelFile, InStrRev(ExcelFile, ".")) & "pdf"
    
    '保存Excel文件为PDF格式
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PDFFile, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    
    '提示转换成功
    MsgBox "Conversion complete!"
End Sub

使用方法：

1. 打开Excel文件，按下Alt+F11打开VBA编辑器；
2. 在VBA编辑器中，依次选择“插入”->“模块”，在新建的模块中粘贴上述代码；
3. 按下F5或点击工具栏上的“运行”按钮，执行程序；
4. 选择要转换的Excel文件，点击“确定”；
5. 程序会将Excel文件自动保存为PDF格式，保存路径和文件名同Excel文件相同，只是扩展名为.pdf；
6. 转换完成后会弹出提示窗口。

注意事项：

1. 要确保程序中的文件路径、文件名和文件格式等参数正确；
2. 转换过程可能需要一些时间，取决于Excel文件的大小和复杂度；
3. 如果发生错误或程序执行失败，可能需要检查系统中是否已安装Adobe Acrobat等PDF阅读器和打印机驱动。