A. VBA里面如何获取已经打开的EXCEL文件的个数
所有打开的Excel文档均包含在Workbooks集合中，可用Workbooks(索引号).name的方式来访问其名字属性(当然也能访问path等属性)，也可定义一个workbook对象，用for eche XXXworkbookObject in workbooks的方式，来循环访问各打开的工作薄，想关哪个工作薄，用Close方法关掉即可。
B. Excel VBA 求一个文件夹内所有工作簿中工作表的个数
新建一个xlsm文件，复制如下代码到这个文件中，F5执行代码就可弹出工作表数量（注意工作簿默认是xlsx格式）Sub 鱼木混猪()Application.ScreenUpdating = Falsef = Dir(ThisWorkbook.Path & "\*.xlsx")Do While f <> ""Workbooks.Open ThisWorkbook.Path & "\" & f数量 = 数量 + ActiveWorkbook.Sheets.CountActiveWorkbook.Closef = DirLoopApplication.ScreenUpdating = TrueMsgBox 数量End Sub
C. excel vba 代码如何取得一个文件夹里有多少个excel文件， 就是计算一个文件夹里有几个e
Sub tt() Dim p$, f$, n% p = ThisWorkbook.Path & "\" '换成你设定的路径 f = Dir(p & "*.xls*") If f <> "" Then Do Until f = "" n = n + 1 f = Dir Loop End If MsgBox nEnd Sub
D. excel vba 查看路径下有多少个文件
可以用控件 filelistbox 去获取文件名及其数量也可以用DIR函数获取文件名称和数量
E. 怎么把多个文件夹下面所有EXCEL汇总到多个EXCEL,求助VBA写法
给你一个简单的办法吧，用EXCEL自带的功能（2016后自带，2013需要安装power query插件，从官网可以下载），我是2019，其他版本位置可能会不一样。
如图，有A,B,C三个文件夹，每个文件夹下的文件如下，都是一个sheet名为AAAA，在这个工作表中，有6列12行的数据，已设置为表格，新建汇总文件
这个就是合并结果，如果需要，把前面的工作表名称删掉就行了。
B,C目录也一样操作到新的工作表就行了。
F. excel vba 中如何取得目录下文件的数量
FunctionFileCount(cPathAsString)asIntegercFile=Dir(cPath&"*.*")DoWhilecFile<>""FileCount=FileCount+1cFile=DirLoopEndFunction
这是一段自定义函抄数，袭在Excel VBA编辑模式下，主菜单“插入”——“模块”，将代码粘贴到右侧编辑区。如果在工作表状态下使用，在单元格输入：=FileCount("c:XXX")就可以得出c:XXX文件夹下的所有文件个数（不含子文件夹)；如果在代码中使用，则可以：nFileCount=FileCount("c:XXX")得到文件个数。注意：cPath参数必须以“”符号结尾。
G. vba读取excel遍历文件指定数据
Excel文件格式一致，汇总求和，其他需求自行变通容汇总使用了字典Public dSub 按钮1_Click()Application.ScreenUpdating = FalseActiveSheet.UsedRange.ClearContentsCells(1, 1) = "编号"Cells(1, 2) = "数量"Set d = CreateObject("scripting.dictionary")Getfd (ThisWorkbook.Path) 'ThisWorkbook.Path是当前代码文件所在路径，路径名可以根据需求修改Application.ScreenUpdating = TrueIf d.Count > 0 ThenThisWorkbook.Sheets(1).[a2].Resize(d.Count) = WorksheetFunction.Transpose(d.keys)ThisWorkbook.Sheets(1).[b2].Resize(d.Count) = WorksheetFunction.Transpose(d.items)End IfEnd SubSub Getfd(ByVal pth)Set Fso = CreateObject("scripting.filesystemobject")Set ff = Fso.getfolder(pth)For Each f In ff.FilesRem 具体提取哪类文件，还是需要根据文件扩展名进行处理If InStr(Split(f.Name, ".")(UBound(Split(f.Name, "."))), "xl") > 0 ThenIf f.Name <> ThisWorkbook.Name ThenSet wb = Workbooks.Open(f)For Each sht In wb.SheetsIf WorksheetFunction.CountA(sht.UsedRange) > 1 Thenarr = sht.UsedRangeFor j = 2 To UBound(arr)d(arr(j, 1)) = d(arr(j, 1)) + arr(j, 2)Next jEnd IfNext shtwb.Close FalseEnd IfEnd IfNext fFor Each fd In ff.subfoldersGetfd (fd)Next fdEnd Sub
H. excel表格用vba查询指定文件夹里子文件夹数量
需要沟通才能理解你的意图
I. excel vba整合统计多个文件
加上这句可以删除活动工作表第一列的空白单元格所在行activesheet.columns(1).specialcells(xlcelltypeblanks).entirerow.delete加上这句可以删除活动工作表第一列的文本单元格所在行activesheet.columns(1).specialcells(xlcelltypeconstants,xltextvalues).entirerow.delete
J. VBA中用什么方法可以得到EXCEL文件中工作表数量
插入模块运行
Sub JS()
Dim i As Integer
i = Worksheets.Count
MsgBox "工作表数量是" & i
End Sub
Visual Basic for Applications(VBA)是Visual Basic的一种宏语言，是微软开发出来在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。主要能用来扩展Windows的应用程序功能，特别是Microsoft Office软件。也可说是一种应用程式视觉化的Basic 脚本。该语言于1993年由微软公司开发的的应用程序共享一种通用的自动化语言——–Visual Basic For Application(VBA)，实际上VBA是寄生于VB应用程序的版本。微软在1994年发行的Excel5.0版本中，即具备了VBA的宏功能。
未经允许不得转载：山九号 » excelvba文件数量|excel vba 中如何取得目录下文件的数量
