VBA代码仅在我的新工作簿中保存2张工作表中的1张

VBA代码是一种用于微软Office套件中的宏语言，可以通过编写代码来自动化执行各种任务。在Excel中，VBA代码可以用于创建、修改和操作工作簿、工作表、单元格等对象。

对于这个问题，你可以使用以下代码来实现在新工作簿中保存两张工作表中的一张：

Sub SaveWorksheet()
    Dim wb As Workbook
    Dim ws As Worksheet
    
    ' 创建新工作簿
    Set wb = Workbooks.Add
    
    ' 将第一张工作表复制到新工作簿
    ThisWorkbook.Sheets(1).Copy Before:=wb.Sheets(1)
    
    ' 关闭新工作簿中的其他工作表
    For Each ws In wb.Sheets
        If ws.Index <> 1 Then
            Application.DisplayAlerts = False
            ws.Delete
            Application.DisplayAlerts = True
        End If
    Next ws
    
    ' 保存新工作簿
    wb.SaveAs "C:\路径\文件名.xlsx" ' 替换为你想要保存的路径和文件名
    
    ' 关闭新工作簿
    wb.Close
    
    ' 释放对象
    Set ws = Nothing
    Set wb = Nothing
End Sub

这段代码首先创建了一个新的工作簿对象（wb），然后将当前工作簿中的第一张工作表复制到新工作簿中。接下来，通过循环遍历新工作簿中的所有工作表，将除第一张工作表外的其他工作表删除。最后，使用SaveAs方法将新工作簿保存到指定的路径和文件名，并关闭新工作簿。

这个代码示例中没有涉及到具体的腾讯云产品，因为VBA代码主要用于本地的Office套件中，与云计算关系不大。但是，如果你需要将Excel文件上传到腾讯云对象存储（COS）中，可以使用腾讯云提供的API和SDK来实现。具体的操作可以参考腾讯云COS的相关文档和示例代码。