写一段excel vba程序，将工作表名为New的工作表另存为PDF文件，文件名为NEW，并将pdf文件保存在d盘PO中

当然，我可以为你提供一个简单的Excel VBA宏示例，用于完成这个任务。请注意，VBA代码需要在Excel环境中运行，这里是一个基本的步骤：

Sub SaveAsPDF()
    Dim ws As Worksheet
    Dim pdfPath As String
    Dim fileName As String
    
    ' 设置工作表对象为 "New" 工作表
    Set ws = ThisWorkbook.Worksheets("New")
    
    ' 设置PDF文件名和路径
    fileName = "NEW"
    pdfPath = "D:\PO\" ' 确保路径已存在

    ' 创建完整的PDF文件名
    Dim fullPath As String
    fullPath = pdfPath & "\" & fileName & ".pdf"

    ' 将工作表另存为PDF
    ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fullPath, Quality:=xlQualityStandard

    ' 显示消息确认操作成功
    MsgBox "Worksheet has been saved as PDF at " & fullPath, vbInformation, "Save Successful"

End Sub

要运行此宏，请按以下步骤操作：
1. 打开包含 "New" 工作表的Excel文件。
2. 按 `Alt + F11` 进入VBA编辑器。
3. 如果没有 `Project Explorer`，点击 `插入` -> `模块` 来创建一个新的模块。
4. 复制上述VBA代码到新模块中。
5. 关闭VBA编辑器，然后按下 `F5` 或者从 `Developer` 菜单选择 `Run` 来执行 `SaveAsPDF` 宏。