Excel 到 CSV 到带有双引号的 TXT 单元格

Question

我有一个 Excel 电子表格，每个单元格中都有值，我希望将其转换为逗号分隔的文本文件。目前我有一个将 excel 文件转换为 csv 的 vbs 脚本，然后在批处理脚本中重命名 *.csv到 *.txt .这适用于 90% 的单元格值，直到我们使用双引号 (")

我的一些单元格包含用双引号括起来的值，需要在我的 txt 文件中以这种方式显示。相反，我得到了这个:

双引号

Excel Cell A1: "Hello"
.csv Cell A1: "Hello"
.txt Cell A1: """Hello"""

两个双引号

Excel Cell A1: ""Hello""
.csv Cell A1: ""Hello""
.txt Cell A1: """""Hello"""""

三个双引号

Excel Cell A1: """Hello"""
.csv Cell A1: """Hello"""
.txt Cell A1: """""""Hello"""""""

看来，当您将 csv 重命名为 txt 时，它会复制所有双引号，并添加一个额外的双引号。有人知道为什么吗？或者如果有解决办法？

我尝试创建一个新的 *.csv Excel 中的文件，保存值 "Hello"并将其重命名为 *.txt ，它仍然显示为 """Hello"""在写字板/文本板/Word 中打开时。所以问题不在于我的 vbs 转换脚本。我也尝试过创建一个 Excel 电子表格并将其重命名为 Book1.txt并发生同样的问题。似乎每当一个单元格转换为 *.txt , 由于某种原因添加了额外的引号。

我看过 this article但是在文件转换过程中添加了额外的双引号似乎很奇怪。

我的 vbs 脚本

if WScript.Arguments.Count < 2 Then
    WScript.Echo "Error! Please specify the source path and the destination. Usage: XlsToCsv SourcePath.xls(x) Destination.csv"
    Wscript.Quit
End If
Dim oExcel
Set oExcel = CreateObject("Excel.Application")
Dim oBook
Set oBook = oExcel.Workbooks.Open(Wscript.Arguments.Item(0))
oBook.SaveAs WScript.Arguments.Item(1), 6
oBook.Close False
oExcel.Quit
WScript.Echo "Done" 

相关批处理脚本命令

Rename SubvarList.csv SubvarList.txt

Answer 1

在 .csv 文件中，仅当 ,或 . (特殊字符)在单元格中提供，同时将此文件转换为 .txt 格式，""双引号将自动添加到 .txt 文件中。

为避免 .txt 文件中出现多个双引号，请在转换前不要在 .csv 文件中包含任何引号。