Excel Sheet Names 1

[SqueakinSweep]

There are lots of great examples for Excel Automation, but all of them create a new excel sheet

What I want to know is, how to open an existing Excel File, and iterate through its sheets collection, and to be able to set the active sheet.

Thanks


Sweep
...if it works dont mess with it

 

[Mike Gagnon]

SqueakinSweep

What I want to know is, how to open an existing Excel File, and iterate through its sheets collection

LOCAL oExcel as excel.application
LOCAL oWb
oExcel = CREATEOBJECT("excel.application")
oWb = oExcel.Workbooks.Open("c:\book2.xls")
nCount =owb.Sheets.Count
FOR i = 1 TO nCount
 ? oWb.sheets(i).name
ENDFOR
oExcel.Visible = .t.

and to be able to set the active sheet.

LOCAL oExcel as excel.application
LOCAL oWb
oExcel = CREATEOBJECT("excel.application")
oWb = oExcel.Workbooks.Open("c:\book2.xls")
nCount =owb.Sheets.Count
FOR i = 1 TO nCount
  IF oWb.sheets(i).name="Sheet3"
     owb.Sheets(i).Select
  endif
ENDFOR
oExcel.Visible = .t.

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[SqueakinSweep]

Mike

Many many thanks!

Sweep
...if it works dont mess with it

 

[Mike Gagnon]

SqueakinSweep

Glad it works for you, thank you for the star!

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.