Question

我有一个在Excel工作簿中打开的每天生成的.CSV文件。它由|分隔像这样的人物：

0-1-C|COUTEAU À HUITRE RICHARD|||||40|5,99|0|0|0|0|0|0|0|0|0|2,65|
 0000|ARTICLEVENTEFINALEdémonstrateur|||||945|9999,99|0|0|0|0|0|0|0|0|0|0|||||
00007|SUPER DÉTACHANT OOPS!|||SUPER DÉTACHANT||100|3,99|

上面文本的每一行都在一行的第一个单元格中。我希望在另一个Excel工作簿中生成此文件的一个版本，每个字符串之间使用一个单元格。该文件长约6200行，并且自从它每天生成以来，我需要它来循环遍历每一行并在文档中创建一个新文件。我对VBA和这个网站都很陌生，所以p-lease对我很耐心，非常感谢你！

Answer 1

你可以使用这个子

Sub main()

    Range("A1", Cells(Rows.count, 1).End(xlUp)).TextToColumns , , , , , , , , True, "|"

End Sub

将.CSV | -separated文件转换为.xlsx文件

1 个答案: