[AccessD] OT - Access to Excel Export

You might need to do your search and replace using VBA code and look for 
either the CHAR(13) or CHAR(10) in the string.

I think it might look something like the following (have not done VBA in 
excel for awhile)

Range("A1").Select - Change this to your range
 
    If IsNull(ActiveCell.Value) Or ActiveCell.Value = "" Then
        mytest = "Empty"
    Else
        mytest = ActiveCell.Value
    End If
 
    Do Until mytest = "Empty"
      if instring(activecell.value, char(13),1) <> 0 or 
instring(activecell.value, char(10),1<>0 then
                << read through the string and replace the return>>
        end if 
        ActiveCell.Offset(1, 0).Select
 
        If IsNull(ActiveCell.Value) Or ActiveCell.Value = "" Then
            mytest = "Empty"
        Else
            mytest = ActiveCell.Value
        End If
    Loop

Hope this at least gets you going.




"Terri Jarus" <jarus at amerinet-gpo.com>
Sent by: accessd-bounces at databaseadvisors.com
04/07/2003 02:20 PM
Please respond to accessd

 
        To:     accessd at databaseadvisors.com
        cc: 
        Subject:        [AccessD] OT - Access to Excel Export


We are exporting a file from AXP to EXP to include a memo field that
might have carriage returns in it.  The exported version in Excel shows
those returns as little boxes - - I don't want that special character to
show up in Excel.  The character is not recognized in a search and
replace.

Any ideas?

Thanks for any suggestions.
_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://databaseadvisors.com/pipermail/accessd/attachments/20030407/36a730bc/attachment-0001.html>