Access VBA to Count Worksheets in a Workbook
Thank you for looking at my question,
I need to count the number of worksheets in an Excel workbook.
the code I have started with is:
The code falls over at "Set objWS = objXL.worksheet" with run-time error: 438 Object doesn't support this property or method"
How do I do this please?
I need to count the number of worksheets in an Excel workbook.
the code I have started with is:
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
The code falls over at "Set objWS = objXL.worksheet" with run-time error: 438 Object doesn't support this property or method"
How do I do this please?
Last Comment
ASKER CERTIFIED SOLUTION
THIS SOLUTION IS ONLY AVAILABLE TO MEMBERS.
View this solution by signing up for a free trial.
Members can start a 7-Day free trial and enjoy unlimited access to the platform.
It works for me as well, great job!
Microsoft Access
Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.
226K
Questions
--
Followers
--
Top Experts
Get a personalized solution from industry experts
TRUSTED BY
ASKER