Count the Number of Workbooks in a Directory : Workbook « Excel « VBA / Excel / Access / Word

VBA / Excel / Access / Word

1.	Access
2.	Application
3.	Data Type
4.	Data Type Functions
5.	Date Functions
6.	Excel
7.	File Path
8.	Forms
9.	Language Basics
10.	Math Functions
11.	Outlook
12.	PowerPoint
13.	String Functions
14.	Windows API
15.	Word
16.	XML

Java

Java Tutorial

Java Source Code / Java Documentation

Illustrator Tutorials

GIMP Tutorials

C# / C Sharp

C# / CSharp Tutorial

C# / CSharp Open Source

SQL Server / T-SQL Tutorial

Oracle PL / SQL

Oracle PL/SQL Tutorial

Flash / Flex / ActionScript

XML

XML Tutorial

Microsoft Office PowerPoint 2007 Tutorial

Microsoft Office Excel 2007 Tutorial

Microsoft Office Word 2007 Tutorial

VBA / Excel / Access / Word » Excel » Workbook

Count the Number of Workbooks in a Directory


 

Function NumFilesInCurDir(Optional strInclude As String = "")

    Dim myFileSystemObject As FileSystemObject

    Dim fld As folder

    Dim fil As file

    Dim subfld As folder

    Dim intFileCount As Integer

    Dim strExtension As String

      strExtension = "XLS"

      Set myFileSystemObject = New FileSystemObject

      Set fld = myFileSystemObject.GetFolder(ThisWorkbook.Path)

      For Each fil In fld.Files

        If UCase(fil.name) Like "*" & UCase(strInclude) & "*." & UCase(strExtension) Then

          intFileCount = intFileCount + 1

        End If

      Next fil

      For Each subfld In fld.SubFolders

          intFileCount = intFileCount + NumFilesInCurDir(strInclude)

      Next subfld

      NumFilesInCurDir = intFileCount

      Set myFileSystemObject = Nothing

End Function

Sub CountMyWkbks()

    Dim MyFiles As Integer

    MyFiles = NumFilesInCurDir("MrE*")

    MsgBox MyFiles & " file(s) found"

End Sub

Related examples in the same category

1.	Center workbook
2.	Create a new workbook
3.	Creates a new workbook and adds it to the collection, reads the number of workbooks into a variable, and selects all worksheets in the active workbook:
4.	Get workbook format
5.	To close all open workbooks, use the Close method of the Workbooks collection object.
6.	To close a single workbook, use the Close method of the Workbook object. The Close method accepts three optional arguments (SaveChanges, FileName, and RouteWorkbook).
7.	To save a workbook from a VBA program, use either the Save methods of the Workbook object.
8.	To select the last Workbook object in the collection
9.	Activate work book
10.	Use a String rather than an index value to reference a workbook
11.	Save workbook and close
12.	The Workbooks property is a member of the Application object and returns a reference to the Workbook object specified by the index value given in the parentheses.
13.	Open workbook by name
14.	Close a workbook and save it
15.	Create a workbook and save it as a new file
16.	The distinction between the Workbook and Window objects lies in an additional method that can be used to create a Window object
17.	Open a workbook and then size it to fit just within the application window
18.	Use Application object to save a workbook as a new file
19.	Add a new workbook and save it
20.	arranges the open workbooks in a tiled configuration
21.	maximizes any workbook when it is activated
22.	places the username in the footer of each sheet printed:
23.	Check Whether a Workbook Is Open
24.	Check Whether a Sheet in an Open Workbook Exists
25.	Controlling Worksheet Visibility

www.java2java.com | Contact Us

All other trademarks are property of their respective owners.