Удаление двойных кавычек - Excel в Блокнот

Question

Я написал макрос для выгрузки ячеек Excel в файл блокнота.Содержимое ячейки отображается вместе с "в файле .txt. Как избавиться от двойных кавычек перед записью в файл?

Sub makeFile1()

    Dim ce As Range
    Dim ws As Worksheet

    Open "C:\queries.txt" For Output As #1
    For Each ws In ActiveWorkbook.Worksheets
          Write #1, "Create Table " & ws.Name
            For Each ce In Range("G2:G10")
               If ce.Next = "" Then
               Write #1, ce.Value
               ElseIf ce.Value <> "" Then
               Write #1, ce.Value & ","
               End If

            Next ce
    Next ws
    Close #1

End Sub

Answer 1

Используйте Print #1 вместо Write #1

Sub makeFile1()
Dim ce As Range
Dim ws As Worksheet

Open "C:\queries.txt" For Output As #1
For Each ws In ActiveWorkbook.Worksheets
      Print #1, "Create Table " & ws.Name
        For Each ce In Range("G2:G10")
           If ce.Next = "" Then
           Print #1, ce.Value
           ElseIf ce.Value <> "" Then
           Print #1, ce.Value & ","
           End If

        Next ce
Next ws
Close #1

End Sub