如何在Excel中无需打开CSV文件批量运行指定TEXTJOIN公式？

针对你需要批量处理数百个格式一致的CSV文件，无需打开即可提取符合=TEXTJOIN(", ",TRUE,IF((F2:F1000=FALSE)*(F2:F1000<>""),C2:C1000,""))逻辑的数据需求，以下两种可行方案：

方案一：使用Excel Power Query（推荐，无需代码） #

1. 导入文件夹内所有CSV文件
   • 打开Excel，点击「数据」选项卡 → 「获取数据」→ 「自文件」→ 「自文件夹」，选择存放CSV的目标文件夹。
   • 在弹出的文件夹内容窗口中，点击「编辑」进入Power Query编辑器。
2. 添加自定义列实现筛选拼接逻辑
   • 在Power Query编辑器中，点击「添加列」→ 「自定义列」，输入以下M语言公式（若CSV无表头，将"C"、"F"替换为"Column3"、"Column6"）：

     Text.Combine(
         List.Select(
             Table.Column([Content], "C"),
             (value, index) => Table.Column([Content], "F"){index} = false and Table.Column([Content], "F"){index} <> ""
         ),
         ", "
     )
     

   • 点击确定后，即可看到每个CSV文件对应的提取结果。
3. 加载结果到Excel
   • 点击「关闭并上载」，提取结果会自动导入到新工作表，包含文件名和对应拼接后的内容。

方案二：使用VBA脚本（适合熟悉代码的用户） #

1. 打开VBA编辑器：按Alt+F11，右键工程 → 插入 → 模块。
2. 粘贴以下脚本，修改folderPath为你的CSV文件夹路径：

   Sub BatchExtractCSVData()
       Dim folderPath As String
       Dim fileName As String
       Dim ws As Worksheet
       Dim lastRow As Long
       Dim fileNum As Integer
       Dim lineText As String
       Dim splitArr As Variant
       Dim resultStr As String
       
       folderPath = "C:\YourCSVFolder\" ' 修改为你的CSV文件夹路径
       Set ws = ActiveSheet
       lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
       
       fileName = Dir(folderPath & "*.csv")
       Do While fileName <> ""
           resultStr = ""
           fileNum = FreeFile()
           Open folderPath & fileName For Input As #fileNum
           
           Line Input #fileNum, lineText ' 跳过表头（无表头则注释此行）
           
           Do Until EOF(fileNum)
               Line Input #fileNum, lineText
               splitArr = Split(lineText, ",")
               If UBound(splitArr) >= 5 Then ' 确保F列（索引5）存在
                   If splitArr(5) <> "" And UCase(splitArr(5)) = "FALSE" Then
                       resultStr = IIf(resultStr = "", splitArr(2), resultStr & ", " & splitArr(2))
                   End If
               End If
           Loop
           Close #fileNum
           
           ws.Cells(lastRow + 1, "A") = fileName
           ws.Cells(lastRow + 1, "B") = resultStr
           lastRow = lastRow + 1
           
           fileName = Dir()
       Loop
   End Sub
   

3. 运行脚本：按F5执行，结果会写入当前工作表的A列（文件名）和B列（提取内容）。

说明 #

Excel普通公式（如拼接路径结合INDIRECT）无法直接读取未打开文件的单元格区域，因为这类公式仅支持访问已加载到内存的工作表数据，因此必须借助Power Query或VBA实现批量处理。

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