如何将工作表指定区域（E6:V100）导出为CSV文件

要实现导出每个可见工作表的E6:V100区域为独立CSV文件，你需要调整原代码中"复制整个工作表"的逻辑，改为仅复制目标区域到新工作簿后保存。以下是修改后的完整代码及关键说明：

修改后的完整代码 #

Option Explicit

Sub WriteCSVs()
    Dim mySheet As Worksheet
    Dim myPath As String
    Dim newWB As Workbook
    
    myPath = SelectFolder
    If myPath = "" Then Exit Sub ' 用户取消选择文件夹时直接退出
    
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False ' 关闭屏幕刷新，提升运行效率
    
    For Each mySheet In ActiveWorkbook.Worksheets
        If mySheet.Visible = xlSheetVisible Then
            ' 创建仅含单个工作表的新工作簿
            Set newWB = Workbooks.Add(xlWBATWorksheet)
            
            ' 将目标区域E6:V100复制到新工作簿的A1起始位置
            mySheet.Range("E6:V100").Copy
            newWB.Sheets(1).Range("A1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats ' 保留数值和数字格式，避免格式错乱
            
            ' 以原工作表B2单元格内容为文件名保存CSV
            newWB.SaveAs Filename:=myPath & mySheet.Range("B2").Value, FileFormat:=xlCSV
            newWB.Close SaveChanges:=False ' 关闭新工作簿（已完成保存）
        End If
    Next mySheet
    
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

Function SelectFolder() As String
    Dim FldrPicker As FileDialog
    Dim myFolder As String

    Set FldrPicker = Application.FileDialog(msoFileDialogFolderPicker)
    With FldrPicker
        .Title = "选择目标文件夹"
        .AllowMultiSelect = False
        If .Show <> -1 Then Exit Function
        SelectFolder = .SelectedItems(1) & "\"
    End With
End Function

关键修改说明 #

• 替换原"复制整个工作表"的逻辑：改为创建仅含单个工作表的新工作簿，避免多余内容干扰
• 精准复制目标区域：直接将E6:V100区域复制到新工作簿的A1位置，使用xlPasteValuesAndNumberFormats确保导出的CSV保留正确数值和格式，避免公式或格式错乱
• 优化运行体验：增加Application.ScreenUpdating = False减少屏幕闪烁，提升运行速度
• 增加容错逻辑：用户取消文件夹选择时直接退出，避免后续报错

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