Question

我正在从Excel（2013）生成CSV文件，如下所示：

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

这很好但在最后一行我也得到了分号：

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

如何删除最后一个;在那个档案中？

我看到它很简单。我不确定我可以将整个文件放入字符串中。它大约是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中每行的其余部分;很明显，这段代码需要根据您的需求进行重新排列，但您可以看一下这个理论。祝你好运！

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

1 个答案: