jokko
01-22-2006, 06:43 AM
Hello,
I am trying to export data from a worksheet into a text file for use by a different application. The problem is that during export quotation marks are added. For instance: A single cell contains the text: >12345,?text1?,?text2?<. And that is how it should appear in the textfile as well. Instead it appears as : >?12345?,??text1??,??text2??<. Not quite what it should be.
The code I am using:
Dim Waarde As DataObject
Set Waarde = New DataObject
Cells(1, 1).Copy
Waarde.GetFromClipboard
Open ThisWorkbook.Path & "exporteren.txt" For Output As #1
Write #1, Waarde.GetText
Close #1
Does anybody have a sugestion?
Jokko:motz2:
I am trying to export data from a worksheet into a text file for use by a different application. The problem is that during export quotation marks are added. For instance: A single cell contains the text: >12345,?text1?,?text2?<. And that is how it should appear in the textfile as well. Instead it appears as : >?12345?,??text1??,??text2??<. Not quite what it should be.
The code I am using:
Dim Waarde As DataObject
Set Waarde = New DataObject
Cells(1, 1).Copy
Waarde.GetFromClipboard
Open ThisWorkbook.Path & "exporteren.txt" For Output As #1
Write #1, Waarde.GetText
Close #1
Does anybody have a sugestion?
Jokko:motz2: