If intFileSelectedFlag > 0 Then Dim objXL As Object Dim objWB As Object Dim objWS As Object Set objXL = CreateObject("Excel.Application") Set objWB = objXL.workbooks.Open(strSource, True, True) Set objWS = objXL.worksheet For Each objWS In objWB.worksheets lngSheetCount = lngSheetCount + 1 Next MsgBox "No. Sheets: " & lngSheetCount, vbOKOnly, "Source: " & strSource End If
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.