[mso] Re: ACCESS 2002: Export Table To Excel Problems

Cathy--

Oops! I neglectfully included a call to a function called 'ReplaceWord'
in that last function. Sorry about that. You can use Replace, but in
case you want my homegorwn version, here it is: 

Function ReplaceWord(strText As String, strFind As String, strReplace As
String) As String
   Dim lngLoop As Long
   Dim lngLenStrText As Long
   lngLenStrText = Len(strText)
   Dim intLenStrFind As Integer
   intLenStrFind = Len(strFind)
   Dim strCurrChar As String

   For lngLoop = 1 To lngLenStrText
      strCurrChar = MID(strText, lngLoop, 1)
      If MID(strText, lngLoop, intLenStrFind) = strFind Then
         ReplaceWord = ReplaceWord & strReplace
         lngLoop = lngLoop + (intLenStrFind - 1)
      Else
         ReplaceWord = ReplaceWord & strCurrChar
      End If
   Next lngLoop

End Function

--Jim
*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or 
MicrosoftOffice@xxxxxxxxxxxxxxxx

To send mail to the group, simply address it to mso@xxxxxxxxxxxxx

To Unsubscribe from this group, send an email to 
mso-request@xxxxxxxxxxxxx with the word "unsubscribe" (without the quotes) in 
the subject line.

Or, visit the group's homepage and use the dropdown menu.  This will also allow 
you to change your email settings to digest or vacation (no mail).
http://www.freelists.org/webpage/mso

To be able to use the files section for sharing files with the group, send a 
request to mso-moderators@xxxxxxxxxxxxx and you will be sent an invitation with 
instructions.  Once you are a member of the files group, you can go here to 
upload/download files:
http://www.smartgroups.com/vault/msofiles
*************************************************************

Other related posts: