二重引用符を削除する - Excel to Notepad

Question

Excelをメモ帳ファイルに書き出すマクロを作成しました。セルの内容は、使用Print #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 
      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

？私は、ファイルに書き込む前に、二重引用符を取り除くにはどうすればよいです。 ".txtファイルで一緒に表示される代わりに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