我所理解的批处理文件材料.pptVIP

* 我所理解的批处理 批处理概述 批处理(Batch)，也称为批处理脚本。顾名思义，批处理就是对某对象进行批量的处理。 ERDAS ERDAS的批处理机制 脚本实现 PHOTOSHUP批处理 选取“文件”“自动”“批处理”。 在“组合”和“动作”弹出式菜单中，指定要用来处理文件的动作 其他等 利用全选，搜索等其他功能等辅助进行批处理 合并多个excel到一个sheet Sub 多工作簿合并() Dim file() As String, FileStr As String, n As Integer, PathStr As String, HeadRows As Byte, namess As String, ActiveWB As Workbook, cell As Range With Application.FileDialog(msoFileDialogFolderPicker) 创建文件对话框的实例 If .Show Then 如果在对话框中单击了“确定” PathStr = .SelectedItems(1) 将选定的路径赋予变量 Else Exit Sub 否则退出程序 End If End With On Error Resume Next FileStr = Dir(PathStr IIf(Right(PathStr, 1) = \, , \) *.xls*) 获取路径下第一个文件名 While Len(FileStr) 0 只要文件名长度大于就循环下去 n = n + 1 累加变量，该变量等于文件个数 ReDim Preserve file(1 To n) 重新指定数组变量的储存空间 file(n) = PathStr IIf(Right(PathStr, 1) = \, , \) FileStr 将路径与文件名逐个写入数组 FileStr = Dir() Wend If n = 0 Then MsgBox 没发现excel文件: Exit Sub 如果没有文件则退出程序 Set ActiveWB = ActiveWorkbook 将活动工作簿赋予变量 让用户指定标题行数，标题不参与合并 HeadRows = Application.InputBox(请确认待合工作簿的标题行数，该行将产生在合并工作簿中做为新的标题行：, 标题行, 1, , , , , 1) If HeadRows 1 Then Exit Sub 如果标题行小于1则退出程序 Application.ScreenUpdating = False 关闭屏幕更新，从而提速 Application.Calculation = xlCalculationManual 计算模式调用手动，从而提速 For k = 1 To n 遍历文件夹中所有Excel文件 namess = Dir(file(k)) 获取文件的名称（忽略路径） Workbooks.Open Filename:=file(k)