Excel宏单工作表另存异常：代码仅生成工作表未完成保存求助

你的VBA代码存在语法结构混乱和方法调用错误，导致无法完成保存操作。我来拆解问题并给出修正后的代码：

原代码的核心问题 #

• Worksheets("Sheet1").Copy 执行后会生成一个包含Sheet1的新工作簿，但你没有正确引用这个新工作簿，反而错误嵌套With Worksheets("Sheet1")，导致后续操作都指向原工作表而非新工作簿
• SaveAs 的路径拼接完全错误，字符串语法混乱，且缺少文件格式参数（默认格式可能不符合预期）
• 缺少End With闭合With块，Close0是无效语法，正确的关闭方法是Close并指定保存参数

修正后的代码 #

Sub SaveSheetAsExcel()
    ' 复制Sheet1到新工作簿
    Worksheets("Sheet1").Copy
    
    ' 引用新生成的工作簿
    Dim newWB As Workbook
    Set newWB = ActiveWorkbook
    
    ' 定义保存路径和文件名（自动获取当前用户名，用Sheet1名称作为文件名）
    Dim savePath As String
    savePath = "C:\Users\" & Environ("USERNAME") & "\" & newWB.Sheets(1).Name & ".xlsx"
    
    ' 保存为标准Excel格式（.xlsx）
    newWB.SaveAs Filename:=savePath, FileFormat:=xlOpenXMLWorkbook
    
    ' 关闭已保存的新工作簿
    newWB.Close SaveChanges:=False
End Sub

关键细节说明 #

• Worksheets("Sheet1").Copy 会自动创建仅包含Sheet1的新工作簿，复制后新工作簿处于激活状态，用ActiveWorkbook可以直接获取它的引用
• Environ("USERNAME") 自动读取当前系统用户名，避免硬编码用户名导致的路径错误
• 指定FileFormat:=xlOpenXMLWorkbook确保保存为通用的.xlsx格式；如果需要兼容Excel 97-2003版本，可以替换为xlExcel8（对应.xls格式）
• 因为已经执行过SaveAs，所以关闭时用SaveChanges:=False避免重复弹窗询问

你直接运行这段修正后的代码，就能成功将Sheet1的内容另存为独立的Excel文件了。

内容的提问来源于stack exchange，提问作者user1234