Excel-将特定列导出到多个文本文件vba

我的excel文件如下所示

new_filename    MEDIA_ID    SIGHTING_ID FRAME   FACE_X  FACE_Y  FACE_WIDTH
28069_00000.png 28069            15775     0    309.715   16.714    141
28069_00060.png 28069            15776     60   318       17      136.57
28069_00075.png 28069            15777     75   325.857   18        138.571
28069_00135.png 28069            15778     135  343.428   30.5757   134.1428
28069_00195.png 28069            15779     195  323.333   18      155.333
28069_00255.png 28069            15780     255  278.243   15.2857   138
28069_00315.png 28069            15781     315  284       18.8      137.85

我想从一些列（如facex、facey、face width和face height）中提取值，并将提取的值保存在一个文本文件中，将“新文件名”列中的值作为文本文件的名称

我想对近3000行重复同样的过程

所以txt文件1的值应该是（2，c6）（2，c7）（2，c8），它应该命名为（2，c1） 对于所有行，依此类推。是否足够清晰？

子测试（）
Sub Test()
    Dim r As Long
    With ActiveSheet

        r = 2
        Do While .Cells(r, 1).Value <> ""
            Open .Parent.Path & "\" & Left(.Cells(r, 1).Value, Len(.Cells(r, 1).Value) - 4) & ".TXT" For Output As #1
            Print #1, .Cells(r, 6).Value & "," & .Cells(r, 7).Value & "," & .Cells(r, 8).Value
            Close #1
            r = r + 1
        Loop

    End With
End Sub

变暗，变长
使用ActiveSheet
r=2
执行While.Cells（r，1）.Value“”
打开.Parent.Path&“\”&Left（.Cells（r，1）.Value，Len（.Cells（r，1）.Value）-4）和“.TXT”，输出为#1
打印#1、.单元格（r，6）.值和“，”和.Cells（r，7）.值和“，”和.Cells（r，8）.值
关闭#1
r=r+1
环
以
端接头

关于什么的帮助？具体是什么问题阻碍了您实现这一目标？从“FACE_X”中选择整个列，复制到新工作簿中，然后保存，有什么不对？行的数量无关紧要。如果要确定要提取的单元格，可以使用

索引/匹配

公式仅显示满足任何条件的行。到目前为止，您尝试了什么？如果您将文本保存在一个扩展名为

.png

的文件中，您将非常困惑。如果我的问题让您困惑，请原谅！我想提取多个具有c4、c5、c6和c7值的文本文件。txt文件的名称应为c1。这是否足够清楚？我建议您在工作表中的每一行循环（从2开始），对于每一行：

打开一个文本文件
，用于输出
，
将所需列连接在一起（使用逗号分隔符？），
将组合字符串打印到文本文件，
关闭
文本文件。（刚刚测试-需要7行代码。）