Как убрать 2 двойные кавычки при экспорте из Excel в TXT

Question

Я пытаюсь экспортировать столбец Excel в TXT с VBA. но в каждом тексте есть дополнительные двойные кавычки. Как убрать лишнюю двойную кавычку .?

Dim field As String
Dim table As String
Dim t As Integer
Dim f As Integer
Dim lastrow As Integer
Dim myFile As String
Dim xStr As String

myFile = "D:\table.txt"

With Sheets("Sheet1")
Open myFile For Output As #1
table = """name"": """ & .Range("I2") & """," & Chr(10)
Write #1, table

lastrow = Range("A" & Rows.Count).End(xlUp).Row

For f = 2 To lastrow
    field = """names"": [" & Chr(10) & """" & .Range("B" & f) & """" & Chr(10) & _
             "],"
'Display 3 Lines of Text in a Messagebox
  Write #1, field
'    Cells(i, 1).Value = 100
Next f

Close #1
End With

я ожидаю выхода "имя": "клиент",

но вывод: "" "имя" ":" "клиент" ",

Answer 1

Используйте Print, а не Write (что добавляет ")