HOWTO: Select Cells in Excel by Using OLE Automation

Step-by-Step Example

1. In Visual FoxPro, create and run a program (.prg file) that contains the following code:

         * Start of program code
         *
         MyF3 = ON("KEY","F3")
         ON KEY LABEL F3 DO getout
         
         oleWorkBook = getobject("C:\BOOK1.XLS")
         WITH oleWorkBook.Application
            .Visible = .t.
         
            .Windows(1).Visible = .t.
            *Selects cells A1:D5, then makes cell D1 the active cell.
            .ActiveSheet.Range("A1:D5").Select
         ENDWITH
         READ EVENTS
         
         PROCEDURE getout
         Clear EVENTS
         oleExcel.Quit
         ON KEY LABEL F3 &MyF3
         
         * End of program code
   							

2. After Microsoft Excel starts, cells A1 through D5 should be selected.
3. Switch back to Visual FoxPro, and press the F3 key to terminate Microsoft Excel.

Back to the top