Excel VBA使用另一个字段作为文件名将数据从表导出到文本文件

Sub ExportDataToTextFile()
    Dim ws As Worksheet
    Dim rng As Range
    Dim filePath As String
    Dim fileName As String
    
    ' 设置工作表和数据范围
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set rng = ws.Range("A1:C10")
    
    ' 设置导出文件路径和文件名
    filePath = "C:\Export\"
    fileName = ws.Range("D1").Value & ".txt" ' 使用D1单元格的值作为文件名
    
    ' 导出数据到文本文件
    rng.ExportAsFixedFormat Type:=xlTypeText, Filename:=filePath & fileName, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False
End Sub