从Excel（VBA）中导出.txt文件中的三个引号

我有以下问题：要将工作表保存在.txt文件中，我写了这个子文件：

Sub SaveFile() Dim ans As Long Dim sSaveAsFilePath As String Dim VPname As String VPname = Worksheets(3).Cells(2, 1) On Error GoTo ErrHandler: sSaveAsFilePath = ActiveWorkbook.Path & "\" & VPname & ".txt" If Dir(sSaveAsFilePath) <> "" Then ans = MsgBox("Datei " & sSaveAsFilePath & " existiert bereits. Überschreiben?", vbYesNo + vbExclamation) If ans <> vbYes Then Exit Sub Else Kill sSaveAsFilePath End If End If Worksheets(3).Copy '//Copy sheet 3 to new workbook ActiveWorkbook.SaveAs sSaveAsFilePath, xlTextWindows '//Save as text (tab delimited) file If ActiveWorkbook.name <> ThisWorkbook.name Then '//Double sure we don't close this workbook ActiveWorkbook.Close False End If MsgBox ("Worksheet wurde erfolgreich als txt-Datei gespeichert!") My_Exit: Exit Sub ErrHandler: MsgBox Err.Description Resume My_Exit End Sub 

在这个工作表中，带有文本内容的单元格必须带有引号（例如“example”）。 当我打开.txt文件时，所有这些函数都有三个引号而不是一个（“”“example”“”）。 你知道如何解决这个问题吗？ 非常感谢 ：）

Answer 1

欢迎来到stackoverflow！ 做一个小问题真的很有用，可以被其他人复制 – 在这里阅读更多信息 – https://stackoverflow.com/help/mcve因此，你也很容易search。

在你的情况下，一个最小的和可validation的例子是这样的：

 Option Explicit Public Sub TestMe() ActiveWorkbook.SaveAs ThisWorkbook.Path & "\new1.txt", _ FileFormat:=xlTextWindows End Sub 

那么，如果你使用search引擎，你会发现这里已经有一些答案了：

将Excel文件保存为不带引号的.txt格式

🙂