Excel 2013 VBA 添加奇怪的引号答案

【问题标题】：Excel 2013 VBA adding strange quotesExcel 2013 VBA 添加奇怪的引号
【发布时间】：2015-03-05 12:12:16
【问题描述】：

让我们说

Sub test()
    Worksheets("1").Cells(1, 1).Value = "html"
    Worksheets("1").Cells(1, 2).Value = "<xml xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" > "
    txt = "                   '" & Worksheets("1").Cells(1, 1) & "'=>array('" & Worksheets("1").Cells(1, 2) & "' => $" & Worksheets("1").Cells(1, 1) & "),"
    MsgBox txt
    FilePath = Application.DefaultFilePath & "\array.txt"
    Open FilePath For Output As #2
    Write #2, txt
    Close #2
End Sub

现在将 msgbox 输出与 array.txt 文件进行比较。

所以我所有的 txt 字符串都被引用了，还为 url 添加了额外的引号，如何防止更改并按原样获取字符串。

问题是如何将 msgbox 输出放入 array.txt 中？

【问题讨论】：

您希望在文本文件中使用双引号而不是双引号？
请通过添加预期和实际输出来澄清您的问题。
试试& Chr(34) & 字符串中的引号？
Write 引用字符串。请改用Print。

标签： vba excel quotes

【解决方案1】：

Sub test()
    Worksheets("1").Cells(1, 1).Value = "html"
    Worksheets("1").Cells(1, 2).Value = "<xml xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" > "
    txt = "                   '" & Worksheets("1").Cells(1, 1) & "'=>array('" & Worksheets("1").Cells(1, 2) & "' => $" & Worksheets("1").Cells(1, 1) & "),"
    MsgBox txt
    FilePath = Application.DefaultFilePath & "\array.txt"
    Open FilePath For Output As #2
    Print #2, txt
    Close #2
End Sub

【讨论】：