Tekst met een komma verplaatsen van naar een *.txt bestand

[roschatz]

Ik zit met de volgende uitdaging.

Ik heb een vb code om er voor te zorgen dat binnen excel informatie word gezocht en vervolgens verplaatst naar een tekst bestand.
Wanneer in een cell een tekst met een komma bevalt zal deze tekst met "...." zijn
voorbeeld test, test zal worden "test, test" wanneer een Cell zonder komma is
zal de uitkomst zonder "...." worden verplaatst.

de code is:

Set fs = CreateObject("Scripting.FileSystemObject")
        Dim bestand As String
        bestand = "C:\" & FF1 & ".txt"
        If fs.FileExists(bestand) Then
        fs.DeleteFile (bestand)
        End If

Application.CutCopyMode = False
        Selection.Delete Shift:=xlToLeft
        ActiveWorkbook.Save
        ActiveWorkbook.SaveAs Filename:=bestand, FileFormat:= _
        xlText, CreateBackup:=False
        ActiveWorkbook.Close SaveChanges:=False

Kan iemand mij helpen om er voor te zorgen dat alles waar een komma in zit zonder " " word verplaatst.

 

[VenA]

Probeer het eens met

FileFormat:=xlTextMSDOS

En anders even een voorbeeldbestandje plaatsen.

 

[edmoor]

Maak er dit van:

ActiveWorkbook.SaveAs Filename:=bestand, FileFormat:= _
        xlText, CreateBackup:=False[COLOR="#FF0000"], Local:=True[/COLOR]

 

[roschatz]

Maak er dit van:

ActiveWorkbook.SaveAs Filename:=bestand, FileFormat:= _
        xlText, CreateBackup:=False[COLOR="#FF0000"], Local:=True[/COLOR]

dit is geweldig probleem opgelost.
bedankt edmoor