View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Dave[_60_] Dave[_60_] is offline
external usenet poster
 
Posts: 8
Default Web query excel 2003 not good for Excel 2000 code

Ok I figured it out..

In excel 2003, a web query to a single cell will also put character
Ascii character 32 (" " or space) in the cell directly below. This does
not happen in excel 2000 web query.

From David McRitchie ( Thanks )



"Not all characters can be visibly displayed in a worksheet cell. For
example, embedded control characters like a tab may not appear in a
cell. This happens quite frequently when you copy and paste text from
the web or a Word document into Excel. The CellView add-in allows you
to see the exact characters in a cell, as well as their character codes
(in either decimal or hex numbers). "


Cell view add-in

http://www.cpearson.com/excel/CellView.htm


Macro to trim char 32

http://www.mvps.org/dmcritchie/excel/join.htm#trimall


Sub TrimALL()
'David McRitchie 2000-07-03 mod 2000-08-16 2005-09-29 join.htm
'-- http://www.mvps.org/dmcritchie/excel/join.htm#trimall
' - Optionally reenable improperly terminated Change Event macros
Application.DisplayAlerts = True
Application.EnableEvents = True 'should be part of Change Event
macro
If Application.Calculation = xlCalculationManual Then
MsgBox "Calculation was OFF will be turned ON upon completion"
End If
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim cell As Range
'Also Treat CHR 0160, as a space (CHR 032)
Selection.Replace What:=Chr(160), Replacement:=Chr(32), _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
'Trim in Excel removes extra internal spaces, VBA does not
On Error Resume Next 'in case no text cells in selection
For Each cell In Intersect(Selection, _
Selection.SpecialCells(xlConstants, xlTextValues))
cell.Value = Application.Trim(cell.Value)
Next cell
On Error GoTo 0
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub




Thanks again David..

Dave

Excel 2003 is not my friend