How to program Excel's xlToRight stm in VFP? 1

iyarosh · Sep 23, 2004

Hello, I'm trying to convert Excel's statement into VFP and running out of ideas. THe statement is to select cells in the range from A1 to the last cell populated on the selected row (similar to holding down CTRL+Shift+arrow)

Code:

Range(Selection, Selection.End(xlToRight)).Select

Would highly appreciate if some one could give me a hand with the conversion. Thanks in advance!

baltman · Sep 23, 2004

Code:

#define  xlToRight  -4161 
loExcel=CREATEOBJECT("excel.application")

WITH loExcel
.visible=.t.
.workbooks.add()

FOR lnAddem = 97 TO 110
 .ActiveSheet.range(CHR(lnAddem)+[1]).value=lnAddem 
ENDFOR 

 .ActiveSheet.range([A1]).select
 .ActiveSheet.Range(.ActiveCell.Address, .Selection.End(-4161)).Select
ENDWITH

baltman · Sep 23, 2004

Heck, I defined xlToRight AND hard coded it. Oh well.

Brian

iyarosh · Sep 23, 2004

Brian,

Thank you! Works like magic!

Igor.

baltman · Sep 23, 2004

That's because VFP IS magic!

Thank you for the star.

Brian

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

How to program Excel's xlToRight stm in VFP? 1

iyarosh

Programmer

baltman

Technical User

baltman

Technical User

iyarosh

Programmer

baltman

Technical User

Similar threads

Part and Inventory Search

Sponsor