帮我写一个vba代码，实现把一个名为‘测试表’的表生成pdf版到桌面

以下是可以实现你所需功能的VBA代码：

Sub ExportToPDF()
    Dim ws As Worksheet
    Dim savePath As String
    
    '设置要保存的文件路径
    savePath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\测试表.pdf"
    
    '获取要导出为PDF的工作表
    Set ws = ThisWorkbook.Sheets("测试表")
    
    '将工作表导出为PDF格式
    ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=savePath, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

你只需要将代码复制到Excel的VBA编辑器中，然后执行即可。它会将名为“测试表”的工作表导出为PDF格式，并将其保存在桌面上。如果你需要更改表格名称或保存路径，只需修改代码中相应的部分即可。