probleem converteren Excel naar text met macro, waarbij in de tekst een , staat.

[bontekite]

Hallo ,

Ik heb een probleempje .
als ik een Excel bestand opslaat als een tekst bestand gescheiden door een tab dan komt er een foutmelding druk ik op ja dan komt het tekst bestand er goed uit te zien.
Klik op afbeelding voor grotere versie





Als ik deze handeling opneem met de een macro en ik deze gebruik in een ander programma dan gaat het fout, dan komt de tekst waarin een komma zit aanhalingstekens aan het begin en het eind van de tekst en dit wil ik niet.

Ik zit vast aan de keuze van opslaan Tekst(tab is scheidingsteken)*.txt
de macrozit in excel document macroconverteertext:
zie voorbeeld 1 het Excel bestand
voorbeeld 2 txt bestand met de hand geconverteerd
voorbeeld 3 met macro geconverteerd

Bekijk bijlage macroconverteertext.xlsmBekijk bijlage voorbeeld 1.xlsxBekijk bijlage voorbeeld 2.txtBekijk bijlage voorbeeld 3.txt

Hoe kan ik dit oplossen.

groeten
Ben

 

[edmoor]

Maak er eens dit van:

Sub converteer()
    Workbooks.Open Filename:="d:\temp\voorbeeld 1.xlsx"

    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:="D:\Temp\voorbeeld1 3.txt", FileFormat:=xlText, _
    CreateBackup:=False, Local:=True
    Application.DisplayAlerts = True
    
    ActiveWorkbook.Close SaveChanges:=False
End Sub

 

[hondel]

Je kunt gelijk een .TXT file maken zonder eerst de gegevens in een andere Excel te zetten.
Misschien is dit makkelijker voor je.

Plak deze code in voorbeeld 1.

Sub TXT_File()

Dim lRegel As Long, lFileNum As Long

lFileNum = FreeFile
Open "D:\Temp\voorbeeld1 3.txt" For Output As #lFileNum

With Blad1
  For lRegel = 2 To 25
    Print #lFileNum, .Cells(lRegel, 1) & vbTab & .Cells(lRegel, 2) & vbTab & .Cells(lRegel, 3) & vbTab & .Cells(lRegel, 4)
  Next lRegel
End With

Close #lFileNum

End Sub

 

[bontekite]

:thumb:
Hartelijke dank heren voor deze oplossingen.
Ik kan deze zeker toepassen .

:thumb: