删除双引号-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

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

Answer 2

赞赏您的工作。