作者：乔山办公网日期：
返回目录：excel表格制作
Function FileCount(cPath As String) as Integer
cFile=Dir(cPath & "*.*")
Do While cFile<>""
FileCount=FileCount+1
cFile=Dir
Loop
End Function
这是一段自定义函数，来在Excel VBA编辑模式下，主菜单“插入”——“模块”，将代码粘贴到右侧编源辑区。如果在百工作表状态下使用，在单元格输入：=FileCount("c:\XXX\")就可以得出c:\XXX文件度夹下的所有文知件个道数（不含子文件夹)；如果在代码中使用，则可以：nFileCount=FileCount("c:\XXX\")得到文件个数。注意：cPath参数必须以“\”符号结尾。
worksheets.count
这个语句可以统计工作表的个数，但是不包括独立的工作图表（charts）
要统计所有工作表，图表，用
sheets.count
插入模块运行
Sub JS()
Dim i As Integer
i = Worksheets.Count
MsgBox "工作表数量是" & i
End Sub
Visual Basic for Applications(VBA)是Visual Basic的一种宏语言，是微软开发出来在其桌zhidao面应用程序中执行通用的自动化(OLE)任务的编程语言。主要能用来扩展Windows的应用程序功能，特别是Microsoft Office软件。也可说是一种应用程式视觉化的Basic 脚本。该语言于1993年由微软公专司开发的的应用程序共享一种通用的自动化语言--------Visual Basic For Application(VBA)，实际上VBA是寄生于VB应用程序的版本。微软在1994年发行的Excel5.0版本中，即属具备了VBA的宏功能。
插入模块运行抄
Sub JS()
Dim i As Integer
i = Worksheets.Count
MsgBox "工作表数量是" & i
End Sub
主要是Worksheets.Count
最大好像zhidao是255个