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

Question

I am generating a CSV file from Excel (2013) like this:

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

That works fine but at the last row I get semicolon in the end as well:

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

How can I remove the last ; in that file?

I saw it is easy in a string. I am not sure I can put the whole file into string. It is around 6-700K characters. It has to go pretty fast no matter what I implement

Any ideas appreciated!

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

Basically you could use something like this. Here i am counting 13 characters and deleting the rest from each line in the txt; obviously this code will need to be rearanged to your needs, but you can take a look at the theory of this. Good Luck!