从工作表中另存为文本文件时出现格式错误答案

【问题标题】：Formatting errors when SavingAs text files from worksheets从工作表中另存为文本文件时出现格式错误
【发布时间】：2013-07-03 14:24:30
【问题描述】：

这是一个相关的问题：Create text Files from every row in an Excel spreadsheet 我已经使用以下代码实现了 ExactaBox 出色的解决方案：

Sub SaveRowsAsENW()

Dim wb As Excel.Workbook, wbNew As Excel.Workbook
Dim wsSource As Excel.Worksheet, wsTemp As Excel.Worksheet
Dim r As Long, c As Long

    Set wsSource = ThisWorkbook.Worksheets("worksheet1")

    Application.DisplayAlerts = False 'will overwrite existing files without asking

    r = 1
    Do Until Len(Trim(wsSource.Cells(r, 1).Value)) = 0
        ThisWorkbook.Worksheets.Add ThisWorkbook.Worksheets(1)
        Set wsTemp = ThisWorkbook.Worksheets(1)

        For c = 2 To 7
            wsTemp.Cells((c - 1) * 2 - 1, 1).Value = wsSource.Cells(r, c).Value
        Next c

        wsTemp.Move
        Set wbNew = ActiveWorkbook
        Set wsTemp = wbNew.Worksheets(1)
        'wbNew.SaveAs wsSource.Cells(r, 1).Value & ".csv", xlCSV 'old way
        wbNew.SaveAs "textfile" & r & ".enw", xlCSV 'new way
        'you can try other file formats listed at http://msdn.microsoft.com/en-us/library/office/aa194915(v=office.10).aspx
        wbNew.Close
        ThisWorkbook.Activate
        r = r + 1
    Loop

    Application.DisplayAlerts = True

End Sub
Option Explicit

我已经使用了这个解决方案，并且效果很好。我唯一的麻烦是有些行在输出文件中得到引号。

这是一个输出文本文件的示例（第 2-3 行演示了错误）：

0  Journal Article 'No quotation marks
"%A  Wofford, J.C."
"%A  Goodwin, Vicki L."
%T  A field study of a cognitive approach to understanding transformational and .. 'No quotation marks

此格式似乎是在保存时添加的（它不是单元格格式的一部分）。你们中有人知道为什么会发生这种情况吗？ /如何调整我的代码来修复它？

【问题讨论】：

我认为问题与具有逗号的单元格有关

标签： vba excel formatting save-as

【解决方案1】：

没错。 .csv 代表逗号分隔的值，其中一个字段包含一个逗号，它必须被“转义”（此处带有引号），或者在每个逗号之前/之后拆分为不同的字段。然而，之前提供的答案确实提供了替代方案 - 其中制表符分隔是最合乎逻辑的。

【讨论】：

【解决方案2】：

这可能已经超出了对您有帮助的意义，但是在我自己最近遇到这个问题之后，我想我会分享我的最终解决方案。您看到的格式实际上是 MS 保存问题的结果，它将引号附加到具有某些字符的行。

在我的情况下，我照常写出文件，然后调用一个子程序来清除文件中的问题多余字符。首先，我将任何需要引号的输出替换为星号或任何其他在我的文件中永远不会出现的字符。然后我正常保存文件并调用以下代码，用于将任何字符替换为另一个字符，两次。一次删除 Excel 创建的引号，第二次用引号替换我的虚拟字符。代码执行得相当快并重命名文件，因此您可以确定结果已完成处理。希望对其他搜索有用。

它仍然比我想要的笨重，因为你保存了一个文件然后编辑它，但它工作得很好，最终成为我的最终解决方案。

    Sub ReplaceStringInTextFile(FileNameAndLoc As String, OutFile As String, SearchForWords As String, SubstituteWords As String)
        'This macro searches a file, replacing one string with another, saving it, and renaming it.
        Dim objFSO As Object
        Dim objReadFile As Object
        Dim objWriteFile As Object

        'Set Objects
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        Set objReadFile = objFSO.opentextfile(FileNameAndLoc, 1, False)

        'Read file contents
        Contents = objReadFile.readall

        'Close read file
        objReadFile.Close

        'Copy contents without double quotes
        NewContents = Replace(Contents, SearchForWords, SubstituteWords)

        'Write output
        Set objWriteFile = objFSO.opentextfile(FileNameAndLoc, 2, False)
        objWriteFile.write NewContents
        objWriteFile.Close

        'Rename file
        Name FileNameAndLoc As OutFile
    End Sub

【讨论】：