Excel to text file

  • Thread starter Thread starter Tony
  • Start date Start date
T

Tony

I want to export data from several cells into the text file and I am
epxeriencing problem with formatting, I can not have line breaks to give me
new line for each entry. I have tried to use Chr(10) and Chr(13) but it does
not work. What is wrong in code below:

=====================================
Sub PrintAttachments()

Dim AttachmentsList As String

CheckSecurity

AttachmentsList = ""

Application.ScreenUpdating = False

For i = 1 To 10
For j = 3 To 12
If Worksheets(i).Cells(j, 17) <> "" Then
AttachmentsList = AttachmentsList + Worksheets(i).Cells(j,
17) & Chr(10)
End If
Next j
Next i
If AttachmentsList <> "" Then
AttachmentsList = "List of attachments: " & Chr(10) & Chr(10) &
AttachmentsList
Open "c:\temp\attachments.txt" For Output As #1
Write #1, AttachmentsList
Close #1
End If

Application.ScreenUpdating = True

End Sub
=====================================

Is there any way of printing my results instead of saving them into txt file ?

Thanks for help.

Tony
 
First you shouldn't use write, instead use print. Write add double quotes to
the data while print doesn't both have the same syntax.

Second, write one line at a time. Print will add the carriage return and
line feed

Open "c:\temp\attachments.txt" For Output As #1

For i = 1 To 10
For j = 3 To 12
If Worksheets(i).Cells(j, 17) <> "" Then
AttachmentsList = "List of attachments: " &
Worksheets(i).Cells(j, 17)
Write #1, AttachmentsList
End If
Next j
Next i
Close #1
End If
 
Hi Joel,

Thank you.

Tony

Joel said:
First you shouldn't use write, instead use print. Write add double quotes to
the data while print doesn't both have the same syntax.

Second, write one line at a time. Print will add the carriage return and
line feed

Open "c:\temp\attachments.txt" For Output As #1

For i = 1 To 10
For j = 3 To 12
If Worksheets(i).Cells(j, 17) <> "" Then
AttachmentsList = "List of attachments: " &
Worksheets(i).Cells(j, 17)
Write #1, AttachmentsList
End If
Next j
Next i
Close #1
End If
Click to expand...
 
Hi Joel,

How I can have it without quotation marks ???
Sample output file looks like:

=======================
"List of Attachments :"


"Attachments 1"
"Attachments 2"
=======================

Thank you.

Tony
 
Back
Top