我所理解的批處理_第1頁
我所理解的批處理_第2頁
我所理解的批處理_第3頁
我所理解的批處理_第4頁
我所理解的批處理_第5頁
已閱讀5頁,還剩7頁未讀 繼續(xù)免費(fèi)閱讀

下載本文檔

版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡(jiǎn)介

1、我所理解的批處理1批處理概述批處理(Batch),也稱為批處理腳本。顧名思義,批處理就是對(duì)某對(duì)象進(jìn)行批量的處理。DOS宏命令等批處理DOS批處理則是基于DOS命令的,用來自動(dòng)地批量地執(zhí)行DOS命令以實(shí)現(xiàn)特定操作的腳本。 Win7 powershellArcigs批處理工具箱右鍵-batchModel builder建模腳本批處理python ,VBA等ENVI/IDL批處理進(jìn)行大量的圖像處理,需要進(jìn)行批處理。ENVI批處理的主要目的是允許用戶進(jìn)行無需交互的ENVI處理在批處理模式下運(yùn)行envi需要先回復(fù)核心的save文件,1.envi,/restore_base_save_files2.調(diào)用e

2、nvi_batch_init,開啟批處理模式3.ENVI_BATCH_EXIT退出批處理的方式和通過ENVI主菜單上選擇File- Exit退出ENVI的效果一樣ERDASERDAS的批處理機(jī)制腳本實(shí)現(xiàn)PHOTOSHUP批處理選取“文件”“自動(dòng)”“批處理”。 在“組合”和“動(dòng)作”彈出式菜單中,指定要用來處理文件的動(dòng)作其他等利用全選,搜索等其他功能等輔助進(jìn)行批處理合并多個(gè)excel到一個(gè)sheetSub 多工作簿合并() Dim file() As String, As String, n As Integer, PathStr As String, HeadRows As Byte, name

3、ss As String, ActiveWB As Workbook, cell As Range With Application.(mso) 創(chuàng)建文件對(duì)話框的實(shí)例 If .Show Then 如果在對(duì)話框中單擊了“確定” PathStr = .SelectedItems(1) 將選定的路徑賦予變量 Else Exit Sub 否則退出程序 End If End With On Error Resume Next = Dir(PathStr & IIf(Right(PathStr, 1) = , , ) & *.xls*) 獲取路徑下第一個(gè)文件名 While Len() 0 只要文件名長(zhǎng)度大

4、于就循環(huán)下去 n = n + 1 累加變量,該變量等于文件個(gè)數(shù) ReDim Preserve file(1 To n) 重新指定數(shù)組變量的儲(chǔ)存空間 file(n) = PathStr & IIf(Right(PathStr, 1) = , , ) & 將路徑與文件名逐個(gè)寫入數(shù)組 = Dir() Wend If n = 0 Then MsgBox 沒發(fā)現(xiàn)excel文件: Exit Sub 如果沒有文件則退出程序 Set ActiveWB = ActiveWorkbook 將活動(dòng)工作簿賦予變量 讓用戶指定標(biāo)題行數(shù),標(biāo)題不參與合并 HeadRows = Application.InputBox(請(qǐng)確

5、認(rèn)待合工作簿的標(biāo)題行數(shù),該行將產(chǎn)生在合并工作簿中做為新的標(biāo)題行:, 標(biāo)題行, 1, , , , , 1) If HeadRows 1 Then Exit Sub 如果標(biāo)題行小于1則退出程序 Application.ScreenUpdating = False 關(guān)閉屏幕更新,從而提速 Application.Calculation = xlCalculationManual 計(jì)算模式調(diào)用手動(dòng),從而提速 For k = 1 To n 遍歷文件夾中所有Excel文件 namess = Dir(file(k) 獲取文件的名稱(忽略路徑) Workbooks.Open (k) 找開文件 ActiveWB

6、.Activate 返回存放合并數(shù)據(jù)的工作表 Workbooks(namess).Sheets(1).Columns(A:AZ).Select 選中A至AZ列 Selection.EntireColumn.Hidden = False 所選中的列全部取消隱藏 如果K=1,那么將標(biāo)題復(fù)制到活動(dòng)工作表C1 If k = 1 Then Intersect(Workbooks(namess).Sheets(1).UsedRange, Workbooks(namess).Sheets(1).Rows(1: & HeadRows).Copy Cells(2, 1) Intersect取選2個(gè)區(qū)域的交集,其

7、實(shí)直接用Workbooks(namess).Sheets(1).Rows(1: & HeadRows).Copy Cells(1, 1)就可以了 For i = 1 To Workbooks(namess).Sheets.Count 遍歷所有工作表,開始合并標(biāo)題以外的數(shù)據(jù),我們?cè)诖酥挥霉ぷ鞅?,故不需要,如需要可以加上 With Workbooks(namess).Sheets(1).UsedRange 引用待合并工作簿中工作表1的已用區(qū)域 If Not IsEmpty(Workbooks(namess).Sheets(1).UsedRange) Then 如果非空表 Set cell = C

8、ells(ActiveSheet.UsedRange.Rows.Count + 3, 1) 將活動(dòng)工作表已用區(qū)域的下2行第1個(gè)單元格賦予變量 Intersect(.Offset(HeadRows, 0), .CurrentRegion).Copy cell 將目標(biāo)數(shù)據(jù)除標(biāo)題外全部復(fù)制到cell單元格 End If End With Workbooks(namess).Close False 并閉工作簿,且不保存 Next k Application.ScreenUpdating = True 恢復(fù)屏幕更新 Application.Calculation = xlCalculationAutom

9、atic 恢復(fù)自動(dòng)計(jì)算End Sub合并excel到不同sheetSub Books2Sheets()定義對(duì)話框變量Dim fd As Set fd = Application.(mso)新建一個(gè)工作簿Dim newwb As WorkbookSet newwb = Workbooks.AddWith fdIf .Show = -1 Then定義單個(gè)文件變量Dim vrtSelectedItem As Variant定義循環(huán)變量Dim i As Integeri = 1開始文件檢索For Each vrtSelectedItem In .SelectedItems打開被合并工作簿Dim tem

10、pwb As WorkbookSet tempwb = Workbooks.Open(vrtSelectedItem)復(fù)制工作表tempwb.Worksheets(1).Copy Before:=newwb.Worksheets(i)把新工作簿的工作表名字改成被復(fù)制工作簿文件名,這兒應(yīng)用于xls文件,即Excel97-2003的文件,如果是Excel2007,需要改成xlsxnewwb.Worksheets(i).Name = VBA.Replace(tempwb.Name, .xls, )關(guān)閉被合并工作簿tempwb.Close SaveChanges:=Falsei = i + 1Next vrtSelectedItemEnd IfEnd WithSet fd = NothingEnd S

溫馨提示

  • 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。

最新文檔

評(píng)論

0/150

提交評(píng)論