Spreadsheets and worksheets. 2

[solo7]

I am using VB6 drag and drop to get a spreadsheet's location. How can I obtain the name and number of sheets within a spreadsheet ??

Solo7

 

[jbpez]

Dim xlboject as object
DIm lngNumberOfSheets as long
Dim i as long
Dim strNameOfSheet as string

Set xlobject = CreateObject("Excel.Application")
xlobject.Worksheets.Count 'number of sheets in a spreadsheet

For i = 1 to lngNumberOfSheets
strNameOfSheet = xlobject.Worksheets(i).Name 'name of sheet
............
Next i

John Borges

 

[solo7]

Great thanks !!!!

 

[solo7]

jbpez,
In my eager anticipation of a problem solved I forgot to ask at what point do I specify the spreadsheet I am querying ??

solo7