ExcelVBA怎么把当前文件夹下的所有XLS文件汇聚到一个表格内
注意 c:\a 目录下的文件不要太多,免得死机
Sub 打开excel表格()
Dim myPath$, myFile$, AK As Workbook
Application.ScreenUpdating = False '冻结屏幕，以防屏幕抖动
myPath = "c:\a\" '把文件路径定义给变量
myFile = Dir(myPath & "*.xls") '依次找寻指定路径中的*.xls文件
Do While myFile "" '当指定路径中有文件时进行循环
If myFile ThisWorkbook.Name Then
Set AK = Workbooks.Open(myPath & myFile) '打开符合要求的文件
End If
myFile = Dir '找寻下一个*.xls文件
Loop
Application.ScreenUpdating = True '冻结屏幕,此类语句一般成对使用
End Sub
linux 如何查找当前目录下最大的文件夹
1，使用ls可以查看当前文件夹得所有文件，ls -l 可以显示文件的详细信息。
2，使用find命令可以在指定的目录下查找指定的文件:
例如 find . -name ".log" 指在当前目录下按文件的名称查找带.log的文件。
find其他参数还有很多:
-perm 按文件权限
例：find.-perm755-printfind . -perm -007-print
-user按文件属主
-group按文件所属用户组
find.-userbosstux1 -print
-mtime 按更改时间
find . -mtime-5 -print
-表示在5天之内更改过的
find.-mtime +5-print
+表示在5天之前更改过的
-newer 对比更改时间来查找文件
find . -newerfileA!-newer fileB-execls -ltar {}\;
更改时间比fileA新但是比fileB旧的文件，
touch-t 11051500fileC创建一个文件，指定该文件的最好一次更改时间为11月5日15：00
find . -newerfileC-print 查找更改时间在11月5日15：00之后的文件
-type按文件类型查找
find/etc -type d -print
-size按文件大小查找
find.-size+3000c -print查找大小大于3000字节的文件
find.-size+10-print 查找当前目录下大小超过10块（1块等于512字节）的文件
-depth 按目录顺序查找
find / -name "con.dept"-depth -print从根目录下开始向下查找名称为“con.dept”的文件，先匹配所有符合条件的文件然后进入子目录中查找
