删除双引号 - Excel到记事本

Question

我写了一个宏来将excel单元转储到记事本文件中。单元格的内容连同“使用Print #1在.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

，而不是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