从excel导出到txt时如何删除2个双引号

我正在尝试用vba将excel列导出为txt。 但在每一篇文章中都有一些额外的双引号。 如何删除额外的双引号

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

我期望产出 “名称”：“客户”

但产出是：

---

“名称”：“客户”

使用

Print

而不是

Write

（它添加了

“

）

，实际上我试图提取一些列为表、名称为列的表，你知道如何在同一张纸上循环一些表格吗？如果你有不同的问题，那么试着发布另一个问题来解释困难。