VBA复制工作表生成新工作簿后无法按指定路径保存问题求助

代码存在的问题 #

• 未定义文件名变量：December是未声明的变量，VBA会将其识别为空值，导致SaveAs无法定位有效文件名。
• 路径不完整：savePath仅设置为C:\Users\，未结合完整文件名与文件扩展名（如.xlsx），系统无法确定具体保存位置和文件类型。
• 变量未显式声明：代码中多个变量未声明，容易引发隐式错误，建议开启强制变量声明机制。

修复后的代码 #

Option Explicit ' 强制声明变量，避免隐式错误

Sub Copysheetandsave()
    Dim sourceWs As Worksheet
    Dim savePath As String
    Dim newWb As Workbook
    Dim fullFileName As String
    
    ' 指定源工作表
    Set sourceWs = ThisWorkbook.Sheets("150")
    
    ' 拼接完整保存路径：根路径 + 文件名 + 扩展名
    savePath = "C:\Users\"
    fullFileName = savePath & "December.xlsx"
    
    ' 复制工作表到新工作簿
    sourceWs.Copy
    Set newWb = ActiveWorkbook
    
    ' 保存并关闭新工作簿
    newWb.SaveAs Filename:=fullFileName
    newWb.Close SaveChanges:=False
End Sub

关键修改说明 #

1. 添加Option Explicit：强制所有变量必须提前声明，减少因变量名拼写错误导致的异常。
2. 构建完整文件路径：将根路径、文件名和扩展名拼接成完整的fullFileName，确保系统能准确定位保存位置。
3. 明确文件扩展名：指定.xlsx（若需保存为启用宏的工作簿，需改为.xlsm），避免系统默认格式引发的兼容性问题。
4. 优化关闭逻辑：添加SaveChanges:=False，因已通过SaveAs完成保存，关闭时无需重复提示。

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