如何修改VBA宏，为导出的CSV文件名添加工作簿名称的指定前缀？

我来帮你搞定这个需求！你的现有宏已经能把每个工作表导出成独立的CSV文件，但要给文件名加上原工作簿的指定名称部分，其实只需要在生成文件名的环节做些小调整就行。下面分几种常见的场景给你对应的修改方案：

先搞清楚基础：获取原工作簿名称 #

首先我们需要从原工作簿中提取需要的名称部分，核心是用ThisWorkbook.Name获取当前宏所在工作簿的全名（带扩展名），再通过字符串处理得到我们需要的部分。

场景1：用原工作簿全名（不含扩展名）作为前缀 #

比如你的原工作簿叫SalesReport_2024.xlsx，导出的CSV就会变成SalesReport_2024_销售数据.csv这种格式。

修改后的完整宏代码：

Sub ExportSheetsToCSV()
    Dim xWs As Worksheet
    Dim xcsvFile As String
    Dim wbName As String
    
    ' 获取原工作簿名称（自动去掉扩展名）
    wbName = Left(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, ".") - 1)
    
    For Each xWs In Application.ActiveWorkbook.Worksheets
        xWs.Copy
        ' 拼接文件名：原工作簿名 + 分隔符 + 工作表名 + .csv
        xcsvFile = CurDir & "\" & wbName & "_" & xWs.Name & ".csv"
        Application.ActiveWorkbook.SaveAs Filename:=xcsvFile, _
            FileFormat:=xlCSV, CreateBackup:=False
        Application.ActiveWorkbook.Saved = True
        Application.ActiveWorkbook.Close
    Next
End Sub

场景2：取原工作簿名称的前N个字符作为前缀 #

如果原工作簿是2024Q3_MonthlyData.xlsx，你只想取前5个字符2024Q作为前缀，只需要修改wbName的赋值语句：

' 直接取原工作簿全名（带扩展名）的前5个字符
wbName = Left(ThisWorkbook.Name, 5)

' 如果你想取【不含扩展名】的前5个字符，就改成下面这样：
' Dim fullWbName As String
' fullWbName = Left(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, ".") - 1)
' wbName = Left(fullWbName, 5)

场景3：取原工作簿名称中特定分隔符前的部分作为前缀 #

比如原工作簿是Region_South_Q3.xlsx，你想要提取第一个下划线_之前的Region作为前缀，代码可以这么写：

' 取原工作簿全名中第一个下划线前的部分
wbName = Left(ThisWorkbook.Name, InStr(ThisWorkbook.Name, "_") - 1)

' 同样，如果要取【不含扩展名】的第一个下划线前的部分：
' Dim fullWbName As String
' fullWbName = Left(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, ".") - 1)
' wbName = Left(fullWbName, InStr(fullWbName, "_") - 1)

几个小提示 #

• 用ThisWorkbook代替ActiveWorkbook来获取原工作簿名称更可靠，避免你切换到其他工作簿时宏出错
• 代码里的_是分隔前缀和工作表名的符号，你可以改成-、空格或者其他你喜欢的分隔符
• 如果你的工作簿名称里没有扩展名（比如旧版Excel文件），可以去掉InStrRev那部分的处理，直接用wbName = ThisWorkbook.Name

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