Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Exporting Text File
Hello all
I am writing an Excel macro for exporting worksheet data into text file. However, both statements "PRINT #" and "WRITE #" exports text in delimited format (i.e. Chr(13) + Chr(10) added at the end each time these statements are used). How can I get rid of the Chr(13) + Chr(10) codes? Thanks in advance. Raymond Lee |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Exporting Text File
You could do something like:
Sub testme01() Dim iRow As Long Dim iCol As Long Open "textfile.txt" For Output As #1 With ActiveSheet For iRow = 1 To 10 For iCol = 1 To 5 Print #1, .Cells(iRow, iCol).Value; ","; Next iCol Next iRow End With Close 1 End Sub And all the output data is one line. But maybe you were looking for something like: Option Explicit Sub testme02() Dim iRow As Long Dim iCol As Long Dim myStr As String Open "textfile.txt" For Output As #1 With ActiveSheet For iRow = 1 To 10 myStr = "" For iCol = 1 To 5 myStr = myStr & "," & .Cells(iRow, iCol).Value Next iCol myStr = Right(myStr, Len(myStr) - 1) Print #1, myStr Next iRow End With Close 1 End Sub This'll put each row on a separate line. You may want to look at how Chip Pearson implemented a version: http://www.cpearson.com/excel/imptext.htm And Earl Kiosterud's Text Write program is available at: It's available at Tushar Mehta's site: http://www.tushar-mehta.com/ Look for Text Write in the left hand frame. Earl has a bunch of options (including, IIRC, wrapping each cell in double quotes) You may find some of the ideas in each useful. Ray Ray wrote: Hello all I am writing an Excel macro for exporting worksheet data into text file. However, both statements "PRINT #" and "WRITE #" exports text in delimited format (i.e. Chr(13) + Chr(10) added at the end each time these statements are used). How can I get rid of the Chr(13) + Chr(10) codes? Thanks in advance. Raymond Lee -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Exporting excel to text file | Excel Discussion (Misc queries) | |||
Exporting excel to text file | Excel Discussion (Misc queries) | |||
Exporting excel to text file | Excel Discussion (Misc queries) | |||
Exporting excel to text file | Excel Discussion (Misc queries) | |||
Exporting from Excel to a text file | Excel Discussion (Misc queries) |