VBA代码问题：打开工作簿另存新文件失败，原工作簿未关闭

看你的VBA代码里有几处逻辑漏洞，才导致新工作簿为空、原工作簿关不掉的问题，咱们一步步来搞定：

原代码的核心问题 #

• 没先判断用户是否取消选择：如果用户点了取消，GetOpenFilename会返回False，这时候硬执行Workbooks.Open(R)会直接报错，后续逻辑全乱套。
• 缺少明确的另存为路径/文件名处理：没有基于原文件路径生成新文件名，导致另存为操作可能没正确执行。
• 原工作簿关闭逻辑缺失：没明确指定关闭时不保存修改，所以原文件会一直留着。

修正后的完整代码 #

Sub SaveAsNewWorkbook()
    Dim selectedPath As Variant
    Dim originalWb As Workbook
    Dim newFileName As String
    
    ' 弹出对话框让用户选择目标工作簿
    selectedPath = Application.GetOpenFilename( _
        Title:="Please choose file", _
        FileFilter:="Excel Files (*.xls*; *.csv), *.xls*; *.csv")
    
    ' 先判断用户是否取消了选择，避免后续报错
    If selectedPath = False Then
        MsgBox "No file selected. Exiting procedure."
        Exit Sub
    End If
    
    ' 打开选中的工作簿，并赋值给变量方便操作
    Set originalWb = Workbooks.Open(selectedPath)
    
    ' --------------------------
    ' 这里替换成你实际的修改操作
    ' 举个例子：修改Sheet1的A1单元格内容
    ' originalWb.Sheets("Sheet1").Range("A1").Value = "Updated content"
    ' --------------------------
    
    ' 自动生成新文件名：原文件名后加"_new"，保留原扩展名
    newFileName = Left(originalWb.FullName, InStrRev(originalWb.FullName, ".") - 1) & "_new" & Right(originalWb.FullName, Len(originalWb.FullName) - InStrRev(originalWb.FullName, "."))
    
    ' 将修改后的内容另存为新工作簿，沿用原文件格式
    originalWb.SaveAs Filename:=newFileName, FileFormat:=originalWb.FileFormat
    
    ' 关闭原工作簿，不保存修改（修改已经存在新文件里了）
    originalWb.Close SaveChanges:=False
    
    MsgBox "New workbook saved successfully: " & newFileName
End Sub

关键细节说明 #

• 先处理取消操作：在打开文件前先检查用户是否取消选择，从根源避免报错。
• 用变量引用工作簿：originalWb变量让操作原工作簿更清晰，不会搞混。
• 自动生成新文件名：不用手动输入路径，直接基于原文件生成带_new后缀的新文件名，省心还不容易错。
• 明确关闭时不保存：Close SaveChanges:=False确保原工作簿保持修改前的状态，完全符合你的需求。

记得把代码里的修改操作区块换成你实际需要的内容（比如修改单元格数据、调整格式等），这样新工作簿就会包含你的修改内容，不会是空的了。

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