在 VBA 中删除整个 csv 中的 CrLf - ADODB.StreamExcel 宏

编程问答 2022-05-23

问题描述

我有一个将 BOM 添加到 UTF-8 csv 的 vba 宏 - 这是在 Excel 中成功打开所必需的。 但问题是，当行尾有 CrLf 标记时 - excel 在该行下方创建新行。 我需要的是删除所有 CrLf 标记（不应添加 Cr 或 Lf）。它应该会有所帮助，因为 csv 中只存在 Cr。 CrLf 仅存在于断层线中。

你能帮忙看看我的源代码吗？我应该添加什么公式来替换源 csv 以使用没有任何 CrLf 的 BOM 保存目标 csv？

Dim fsT,tFileToOpen,tFileToSave As String

tFileToOpen = "C:\source_NO_BOM.csv"
tFileToSave = "C:\target_WITH_BOM.csv"

tFileToOpenPath = tFileToOpen
tFileToSavePath = tFileToSave

Set fsT = CreateObject("ADODB.Stream"): 'Create Stream object
fsT.Type = 2: 'Specify stream type – we want To save text/string data.
fsT.Charset = "utf-8": 'Specify charset For the source text data.

fsT.Open: 'Open the stream
fsT.LoadFromFile tFileToOpenPath: 'And write the file to the object stream
fsT.SaveToFile tFileToSavePath,2: 'Save the data to the named path

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

byte-order-markexcelexcel