Remove double double Quotes Vba

[Gamba]

Hi everyone, i need some help, I very appreciated for your collaboration.
I wrote a VBA code to export a sheet to txt file, but my sheet have some cells with Double Quote as text, example: "Program Control". So, when I export to txt, the file wrote " " Program Control " ". I need only Double Quote.
If anyone know how solve that, i very appreciate.
Thanks a lot!!

 

[rlv01]

It would help if you could post your sheet to text export code

 

[Gamba]

Thanks for your reply.
My export code is so easy.

    Dim filepath As String
    Dim s2k as WorkSheet
    filepath = ActiveWorkbook.Path & "\model.txt"
    On Error Resume Next
    s2k.SaveAs Filename:=filepath, FileFormat:=xlTextWindows
    On Error GoTo 0

If i need write: TABLE: "COORDINATE SYSTEMS"
my txt wrote: TABLE: ""COORDINATE SYSTEMS""

Thanks again.

 

[DanteAmor]

How about:

Sub Macro5()
  Dim filepath As String, s2k As Worksheet
  Application.DisplayAlerts = False
  Application.ScreenUpdating = False
  Set s2k = ActiveSheet
  filepath = ActiveWorkbook.Path & "\model.txt"
  s2k.Copy
  ActiveWorkbook.SaveAs Filename:=filepath, FileFormat:=xlTextPrinter, CreateBackup:=False
  ActiveWorkbook.Close False
  MsgBox "Saved"
End Sub

 

[Gamba]

How about:

Sub Macro5()
  Dim filepath As String, s2k As Worksheet
  Application.DisplayAlerts = False
  Application.ScreenUpdating = False
  Set s2k = ActiveSheet
  filepath = ActiveWorkbook.Path & "\model.txt"
  s2k.Copy
  ActiveWorkbook.SaveAs Filename:=filepath, FileFormat:=xlTextPrinter, CreateBackup:=False
  ActiveWorkbook.Close False
  MsgBox "Saved"
End Sub

Wow, this works, u solved my problem, i think the principal problem is the format to export the txt.
Thanks a lot Dude!! :D

 

[DanteAmor]

Im glad to help you. Thanks for the feedback.