csv中逗号用什么代替_VBA – 替换CSV中的逗号而不是qoutes中的逗号

Filename = Dir(Filepath & "\" & "*.csv")

While Filename <> ""

SourceFile = Filepath & "\" & Filename

TargetFile = SavePath & "\" & Replace(Filename, ".csv", ".txt")

OpenAsUnicode = False

Dim objFSO: Set objFSO = CreateObject("Scripting.FileSystemObject")

'Detect Unicode Files

Dim Stream: Set Stream = objFSO.OpenTextFile(SourceFile, 1, False)

intChar1 = Asc(Stream.Read(1))

intChar2 = Asc(Stream.Read(1))

Stream.Close

If intChar1 = 255 And intChar2 = 254 Then

OpenAsUnicode = True

End If

'Get script content

Set Stream = objFSO.OpenTextFile(SourceFile, 1, 0, OpenAsUnicode)

arrData = Stream.ReadAll()

Stream.Close

'Create output file

D