以下是一个保存Excel表格为PDF文件的VBA代码示例：

Sub SaveAsPDF()
    Dim ws As Worksheet
    Dim savePath As String
    
    ' 设置保存路径和文件名
    savePath = "C:\路径\文件名.pdf"
    
    ' 设置要转换为PDF的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 打开PDF导出选项
    ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=savePath, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False
    
    ' 提示保存成功
    MsgBox "PDF文件保存成功！"
End Sub

在这个示例中，我们首先定义了一个工作表变量ws，并设置要转换为PDF的工作表。然后，我们定义了保存路径和文件名savePath。接下来，我们使用ExportAsFixedFormat方法将工作表保存为PDF文件。最后，我们弹出一个消息框，提示保存成功。

请注意，ExportAsFixedFormat方法的第一个参数Type指定了要保存的文件类型，这里我们指定为xlTypePDF表示要保存为PDF文件。根据需要，您还可以设置其他选项，如导出质量Quality、是否包含文档属性IncludeDocProperties和是否忽略打印区域IgnorePrintAreas。

您可以根据自己的需求修改保存路径、文件名和要转换的工作表。将上述代码复制到VBA编辑器中的模块中，并运行SaveAsPDF过程，即可将Excel表格保存为PDF文件。