如何保存当前工作表指定区域的文档？代码无法运行求助

你的代码报错核心原因是**Range对象没有SaveAs方法**，SaveAs是工作簿（Workbook）或工作表（Worksheet）级别的方法，不能直接用在单元格区域上。下面是两种可行的实现方案：

方案一：复制区域到新工作簿后保存 #

Sub SaveSpecifiedRange()
    Dim FN As String
    Dim newWB As Workbook
    
    ' 生成文件名
    FN = Sheets("COA").Range("C7").Value & "_" & Sheets("COA").Range("B1").Value & "_" & Sheets("COA").Range("C6").Value
    
    ' 复制指定区域到新工作簿
    ThisWorkbook.ActiveSheet.Range("A1:I50").Copy
    Set newWB = Workbooks.Add
    newWB.Sheets(1).Range("A1").PasteSpecial Paste:=xlPasteAll ' 粘贴所有内容（含格式）
    
    ' 保存新工作簿并关闭
    newWB.SaveAs Filename:="C:\Users\Sadirun\Documents\" & FN & ".xlsx", FileFormat:=51 ' 51对应xlsx格式
    newWB.Close SaveChanges:=False
End Sub

方案二：保存当前工作表的指定区域为单独文件（临时工作表中转） #

如果需要先在当前工作簿内中转再单独保存：

Sub SaveRangeAsSheet()
    Dim FN As String
    Dim newSheet As Worksheet
    
    FN = Sheets("COA").Range("C7").Value & "_" & Sheets("COA").Range("B1").Value & "_" & Sheets("COA").Range("C6").Value
    
    ' 新建临时工作表并复制区域
    Set newSheet = ThisWorkbook.Sheets.Add
    ThisWorkbook.ActiveSheet.Range("A1:I50").Copy newSheet.Range("A1")
    
    ' 将临时工作表单独保存为文件
    newSheet.Copy
    ActiveWorkbook.SaveAs Filename:="C:\Users\Sadirun\Documents\" & FN & ".xlsx", FileFormat:=51
    ActiveWorkbook.Close SaveChanges:=False
    
    ' 删除临时工作表
    Application.DisplayAlerts = False
    newSheet.Delete
    Application.DisplayAlerts = True
End Sub

额外注意事项 #

• 确保生成的文件名FN不包含Windows禁止的字符（比如/ \ : * ? " < > |），若单元格内容可能含此类字符，需提前替换处理。
• 确认保存路径C:\Users\Sadirun\Documents\实际存在，否则会触发路径不存在的错误。

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