Text Export macro modification?

D

DK

I'm exporting text to an application that requires that when a field is
empty there should be nothing between the seperators for that field. Clear
as mud?
When Field3 is empty, my text file needs to read; fld1,fld2,,fld4,fld5...
I'm using a wonderful macro from Chip Pearson at
http://www.cpearson.com/excel/ImpText.aspx
However, my empty fields end up in the text file as fld1,fld2,"",fld4,fld5
Below is part of the macro. How can I modify the code leave the field
"empty" (without the quotes)?
Thanks.

For RowNdx = StartRow To EndRow
WholeLine = ""
For ColNdx = StartCol To EndCol
If Cells(RowNdx, ColNdx).Value = "" Then
CellValue = Chr(34) & Chr(34)
Else
CellValue = Cells(RowNdx, ColNdx).Text
End If
WholeLine = WholeLine & CellValue & Sep
Next ColNdx
WholeLine = Left(WholeLine, Len(WholeLine) - Len(Sep))
Print #FNum, WholeLine
Next RowNdx
 
F

FSt1

hi,
this line
CellValue = Chr(34) & Chr(34)
chr(34) is a double quote(") so the macro itself is putting the quotes in.
try this..
CellValue = ""
and see what happens.

Regards
FSt1
 
D

DK

That did it!
Thanks very much.
DK

FSt1 said:
hi,
this line
CellValue = Chr(34) & Chr(34)
chr(34) is a double quote(") so the macro itself is putting the quotes in.
try this..
CellValue = ""
and see what happens.

Regards
FSt1
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top