如何将Excel中的所有命名区域导出到单独的CSV文件？

Sub ExportNamedRangesToCSV()
    Dim NamedRange As Name
    Dim Worksheet As Worksheet
    Dim Range As Range
    Dim ExportPath As String
    
    ExportPath = "指定导出CSV文件的路径" ' 替换为实际的导出路径
    
    For Each NamedRange In ThisWorkbook.Names
        Set Range = NamedRange.RefersToRange
        Set Worksheet = Range.Worksheet
        
        Worksheet.Copy
        With ActiveSheet
            .Cells.Copy
            .Cells.PasteSpecial Paste:=xlPasteValues
            .Cells.PasteSpecial Paste:=xlPasteFormats
            .Cells(1).Select
            .SaveAs ExportPath & "\" & NamedRange.Name & ".csv", FileFormat:=xlCSV, CreateBackup:=False
            .Close SaveChanges:=False
        End With
    Next NamedRange
End Sub