Want to open "sheet2" of spreadsheet with ole

[breukelen]

Good evening,

I used

oleapp=createobject("Excel.Application&quot
oleapp.visible=.T.
oleapp.workbooks.open("c:\my.xls&quot
oleapp.visible=.T.

This works o.k. , it opens with sheet1.
What is the "ole" ,so that it opens for instance with sheet2
Thank in advance for your help.

Gunter

 

[llocklin]

I don't remember where I got this code, most likely it was some combination of Getz's Developers Handbook and the microsoft Knowledgebase.


This will set a reference to your sheet2:
Dim objXLApp As Excel.Application
Dim objXLBook As Excel.Workbook
Dim objDataSheet As Excel.Worksheet

Set objXLBook = GetObject(sXLSPath & sXLSName)
Set objDataSheet = objXLBook.Worksheets("Sheet2&quot

Luther