Excel VBA 宏: 将当前文档的表另存到桌面

在 Excel 中，可以使用 VBA 宏来将当前文档的表另存到桌面。以下是一个示例代码：

Sub SaveSheet2ToDesktop()
    Dim desktopPath As String
    Dim savePath As String
    
    ' 获取桌面路径
    desktopPath = CreateObject('WScript.Shell').SpecialFolders('Desktop')
    
    ' 设置保存路径
    savePath = desktopPath & "\" & ThisWorkbook.Name & '_Sheet2.xlsx'
    
    ' 另存表2到桌面
    ThisWorkbook.Sheets('Sheet2').Copy
    ActiveWorkbook.SaveAs savePath
    ActiveWorkbook.Close SaveChanges:=False
End Sub

将以上代码复制到 Excel 的 VBA 编辑器中（按下Alt + F11打开），然后可以通过运行SaveSheet2ToDesktop宏来执行另存操作。

注意，上述代码假设表2的名称为'Sheet2'，如果实际表名不同，请将代码中的'Sheet2'替换为实际的表名。