VFP7: Worksheet names 1

[cj001]

Hello!

Is there a way to retrieve the names of the worksheets in an EXCEL file?


CJ

 

[Mike Gagnon]

cj001

o=CREATEOBJECT("excel.application")
mywb=o.Workbooks.Add() && Change this if its an existing one
mySheet=mywb.ActiveSheet
?mySheet.Name

Mike Gagnon

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

 

[jimoo]

I am not sure if Mike's reply completely answered your question, but there is a forum:

"VBA Visual Basic for Applications (Microsoft)"

and they will assist with the VBA / Excel type of questions. Then use Mike's code to connect to Excel and manipulate it based on the suggestions received from the other group.



Jim Osieczonek
Delta Business Group, LLC

http://www.deltabg.com

 

[Mike Gagnon]

cj0001

After jimoo posted I released the code I suggested might not be complete, try this:

o=CREATEOBJECT("excel.application")
mywb=o.Workbooks.Add() && Change this if its an existing one
nCount = mywb.Sheets.Count
FOR i = 1 TO nCount
  ?mywb.sheets(i).name
ENDFOR

Mike Gagnon

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

 

[cj001]

THANKS Jim Osieczonek and Mike Gagnon. That does what I'm looking for.

How do I quit the process?

When I have exited VFP I notice that EXCEL is still running in the PROCESS list which is tying up Excel.


CJ

 

[Mike Gagnon]

Try:

o=CREATEOBJECT("excel.application&quot
mywb=o.Workbooks.Add() && Change this if its an existing one
nCount = mywb.Sheets.Count
FOR i = 1 TO nCount
?mywb.sheets(i).name
ENDFOR
o.quit
o=.null.



Mike Gagnon

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

 

[cj001]

GREAT!!! Thanks again, Mike Gagnon.

 

[craigsboyd]

Mike,

For always showing members how simple and useful Microsoft Automation can be. Your 500th star. Now let's get to work!

Slighthaze = NULL

[ul][li]FAQ184-2483
An excellent guide to getting a fast and accurate response to your questions in this forum.[/li][/ul]

 

[Mike Gagnon]

SlightHaze

For always showing members how simple and useful Microsoft Automation can be. Your 500th star. Now let's get to work!

Thank you for the star! Wow 500! Now I may just retire ;-).


Mike Gagnon

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

 

[Nifrabar]

uh....Mike,
retire ?
pfff...
I hope you remain here for at least another 500 stars....
-Bart