求助：编写VBA宏复制当前工作簿工作表并保存为同路径CSV文件

问题说明 #

需要编写VBA宏，完成从当前工作簿复制指定工作表，并将该工作表保存为与原工作簿同路径的CSV文件。

现有代码存在的问题 #

• 未指定单元格所属工作表：Range("V2").Value 未明确关联目标工作表，默认会引用当前活动工作表，可能导致获取错误的文件名内容
• 未处理工作簿未保存的情况：如果原工作簿从未保存过，ThisWorkbook.Path 会返回空字符串，导致保存路径无效
• SaveAs参数顺序错误：SaveAs 方法的正确参数顺序应为先指定Filename，再指定FileFormat
• 未关闭新建工作簿：复制工作表后生成的新工作簿在保存后未关闭，会遗留打开的窗口

修正后的代码 #

Option Explicit

Sub exportFirst()
    ' 检查原工作簿是否已保存，避免路径为空
    If ThisWorkbook.Path = "" Then
        MsgBox "请先保存当前工作簿，再执行此宏！", vbExclamation
        Exit Sub
    End If
    
    Const NewFilePath As String = ThisWorkbook.Path
    Dim SourceSheet As Worksheet
    Set SourceSheet = ThisWorkbook.ActiveSheet
    
    exportWorksheet SourceSheet, NewFilePath
End Sub

Sub exportWorksheet(SourceSheet As Worksheet, NewFilePath As String)
    Dim NewFileName As String
    Dim SaveLocation As String
    
    ' 明确从目标工作表获取V2单元格的值
    NewFileName = SourceSheet.Range("V2").Value & " " & SourceSheet.Name
    ' 处理路径末尾斜杠，避免出现无效的双斜杠
    SaveLocation = NewFilePath & IIf(Right(NewFilePath, 1) = "\", "", "\") & NewFileName & ".csv"
    
    ' 复制工作表到新工作簿
    SourceSheet.Copy
    
    With ActiveWorkbook
        ' 按正确顺序传递SaveAs参数
        .SaveAs Filename:=SaveLocation, FileFormat:=xlCSVUTF8
        ' 保存后关闭新工作簿，无需再次提示保存
        .Close SaveChanges:=False
    End With
End Sub

关键修改说明 #

1. 增加原工作簿未保存的判断，提前拦截无效操作
2. 将Range("V2")改为SourceSheet.Range("V2")，确保从目标工作表读取文件名内容
3. 用IIf处理路径末尾的斜杠问题，避免生成无效路径
4. 调整SaveAs参数顺序，符合VBA语法规范
5. 保存后自动关闭新建工作簿，清理遗留窗口

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