I have the following value in a cell:
'TEST14','TEST15','TEST16'

When printing this value to a TXT file, I get:
TEST14','TEST15','TEST16'

How do I get to include the single quote that occurs in the beginning
of the string to be included in the output? Please help.

My code:

Sub Testme
Sheets("sheet01").Activate
gOutfile = "c:/test.txt"
Open gOutfile For Output As #1
For r = 1 To 30
xData = Cells(r, 1).Value
Print #1, xData
Next r
End Sub

Ricky,

It works fine for me but I do have 1 comment, you must close the file

Sub Testme()
Sheets("sheet01").Activate
gOutfile = "c:/test.txt"
Open gOutfile For Output As #1
For r = 1 To 30
xData = Cells(r, 1).Value
Print #1, xData
Next r
Close #1
End Sub

Mike

"Ricky" wrote:

I have the following value in a cell:
'TEST14','TEST15','TEST16'

When printing this value to a TXT file, I get:
TEST14','TEST15','TEST16'

How do I get to include the single quote that occurs in the beginning
of the string to be included in the output? Please help.

My code:

Sub Testme
Sheets("sheet01").Activate
gOutfile = "c:/test.txt"
Open gOutfile For Output As #1
For r = 1 To 30
xData = Cells(r, 1).Value
Print #1, xData
Next r
End Sub

put it back in............

Sub Testme
Sheets("sheet01").Activate
gOutfile = "c:/test.txt"
Open gOutfile For Output As #1
For r = 1 To 30
xData = "'" & Cells(r, 1).Value '<---- change
Print #1, xData
Next r
End Sub


see if that works. i didn't test it.
:)
susan



On Sep 4, 11:14*am, Ricky wrote:
I have the following value in a cell:
'TEST14','TEST15','TEST16'

When printing this value to a TXT file, I get:
TEST14','TEST15','TEST16'

How do I get to include the single quote that occurs in the beginning
of the string to be included in the output? *Please help.

My code:

Sub Testme
* * Sheets("sheet01").Activate
* * gOutfile = "c:/test.txt"
* * Open gOutfile For Output As #1
* * For r = 1 To 30
* * * * xData = Cells(r, 1).Value
* * * * Print #1, xData
* * Next r
End Sub

Hi ricky
yes i get the same result just using a simple line to test as follows

ActiveCell.Value = Range("b3").Value
"Mike H" wrote:

Ricky,

It works fine for me but I do have 1 comment, you must close the file

Sub Testme()
Sheets("sheet01").Activate
gOutfile = "c:/test.txt"
Open gOutfile For Output As #1
For r = 1 To 30
xData = Cells(r, 1).Value
Print #1, xData
Next r
Close #1
End Sub

Mike

"Ricky" wrote:

I have the following value in a cell:
'TEST14','TEST15','TEST16'

When printing this value to a TXT file, I get:
TEST14','TEST15','TEST16'

How do I get to include the single quote that occurs in the beginning
of the string to be included in the output? Please help.

My code:

Sub Testme
Sheets("sheet01").Activate
gOutfile = "c:/test.txt"
Open gOutfile For Output As #1
For r = 1 To 30
xData = Cells(r, 1).Value
Print #1, xData
Next r
End Sub