Thread: How to get sheet count of an excel workbook in QTP?

hai friend,


Datatable.ImportSheet "C:\Documents and settings\specify your user name here\Desktop\test.xls",1,1
sheetcount = DataTable.GetSheetCount
Msgbox sheetcount

To get sheet count what I have done here is I have imported an excel sheet named(test.xls) and then counted the number of used sheet in that excel workbook.

Note: This method is used to find the total number of sheets in the run-time Data Table

Thanks
Deepa

Hi friend,

The code should be as follows

Dim objExcel
Dim sPath
sPath="C:\New Folder\Sample"
Set objExcel = CreateObject("Excel.Application")
Set objWorkbooks = objExcel.Workbooks.Open(sPath)
nWorkSheetCount = objExcel.Worksheets.count
msgbox "There are a total of" &nWorkSheetCount &"worksheets"

Method 2

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open _
("C:\New Folder\Sample")
objExcel.visible="True"
SheetCount = objExcel.Worksheets.count
msgbox SheetCount

Thanks,
Deepa