将 Excel 文件保存为 txt 时如何防止额外的引号重复

Question

我有一个 Excel 文件，我想将其另存为文本，但我注意到具有双反逗号 (") 的单元格得到了双反逗号复制，而且这些单元格也得到了双反逗号在文本的 beginning/end 处。

例如

A1 = Cell with inverted coma (")
A2 = No Inverted coma

我正在使用以下代码：

Sheets("SO").Copy
Cells.Copy
txtFile = "C:\TextSO.txt"
ActiveWorkbook.SaveAs Filename:=txtFile, FileFormat:=xlUnicodeText
ActiveWindow.Close

我在txt文件中得到的输出如下：

"Cell with inverted coma ("")"
No Inverted coma

我也尝试过使用 FileFormat:=xlTextMSDOS 但没有区别

我还尝试创建一个添加行值的 txt 文件，但没有帮助。这是我使用的代码：

txtFile = "C:\TextSO.txt"
LR = ActiveSheet.Range("A1").Offset(ActiveSheet.Rows.Count - 1, 0).End(xlUp).Row
Open txtFile For Output As #1
For I = 1 To LR
    Write #1, Range("A" & I).Value
Next
Close #1

我得到的输出结果如下：

"Cell with inverted coma ("")"
"No Inverted coma"

关于我可以使用什么代码来防止添加额外的倒逗号的任何想法？

Answer 1

Write 添加引号，所以使用 Print:

Print #1, Range("A" & I).Value

将 Excel 文件保存为 txt 时如何防止额外的引号重复

How to prevent additional inverted comas duplicated when saving Excel file as txt

excel

vba

txt