删除csv文件中的最后一个字符，Excel vba

我从Excel（2013）这样生成一个CSV文件：

.SaveAs Filename:= _ filePath & MyFileName, _ FileFormat:=xlCSV, _ Local:=True, _ 

这工作正常，但在最后一行，我也得到了分号：

 994085;None ApS.;2;G; 12 ;31-12-2015; 40 ; - ;Operational TB ; 

我怎样才能删除最后一个; 在那个文件？

我看到它很容易在一个string。 我不知道我可以把整个文件的string。 大约是6-700K字符。 无论我实施什么，它都必须相当快

任何想法赞赏！

Answer 1

 Open "partnumbers.txt" For Output As #2 If .SelectedItems.Count <> 0 Then xDirect$ = .SelectedItems(1) & "\" xFname$ = Dir(xDirect$, 7) Do While xFname$ <> "" If Right(xFname$, 1) = "1" Then Print #2, Left(xFname$, 13) ActiveCell.Offset(xRow) = Left(xFname$, 13) End If xRow = xRow + 1 xFname$ = Dir Loop End If Close #2 

基本上你可以使用这样的东西。 在这里，我计算13个字符，并删除txt中的每一行的其余部分; 显然这个代码将需要重新安排你的需求，但你可以看看这个理论。 祝你好运！