《我所理解的批处理.ppt

我所理解的批处理 批处理概述 批处理(Batch)，也称为批处理脚本。顾名思义，批处理就是对某对象进行批量的处理。 DOS宏命令等批处理 DOS批处理则是基于DOS命令的，用来自动地批量地执行DOS命令以实现特定操作的脚本。 Win7 powershell Arcigs批处理 工具箱右键---batch Model builder建模 脚本批处理python ,VBA等 ENVI/IDL批处理 进行大量的图像处理，需要进行批处理。ENVI批处理的主要目的是允许用户进行无需交互的ENVI处理 在批处理模式下运行envi需要先回复核心的save文件， 1.envi,/restore_base_save_files 2.调用envi_batch_init,开启批处理模式 3.ENVI_BATCH_EXIT退出批处理的方式和通过ENVI主菜单上选择File- Exit退出ENVI的效果一样 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