Question

我的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）等等所有行。它够清楚吗？

Answer 1

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

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

1 个答案: