到多個文本文件的VBA Excel-導出特定列

-1

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，臉的寬度和高度面對某些列中提取值並保存提取的值在具有新文件名列中的值的文本文件中作爲文本文件的名稱。

我想重複幾乎3000行的相同程序。

因此，對於所有行，txt文件1的值應該是（2，c6）（2，c7）（2，c8），它應該被命名爲（2，c1）等等。這足夠清楚了嗎？

來源

2016-09-12 Praveen

幫助什麼？什麼*具體*是阻止你實現這一目標的問題？ –

從「FACE_X」結束選擇整列，複製到新工作簿並保存時出現了什麼問題？行數不重要。如果您想確定要提取哪些單元格，則可以使用「索引/匹配」公式來僅顯示符合其標準的那些行。你試過什麼了？ – BruceWayne

如果將文本保存爲擴展名爲.png的文件，您將會非常困惑。 – YowE3K

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

來源

2016-09-13 21:01:55 YowE3K

到多個文本文件的VBA Excel-導出特定列

回答

相關問題