版權(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ì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 2025版?zhèn)€人合伙跨境電商投資合作合同4篇
- 2025版學(xué)校辦公物資零星采購合同范本3篇
- 2025版體育館消防安全檢測(cè)與維護(hù)保養(yǎng)合同范本3篇
- 2025年度木工設(shè)計(jì)版權(quán)授權(quán)合同4篇
- 2025年影視宣傳片合同范本全面服務(wù)保障3篇
- 組織的資源戰(zhàn)略能力和競(jìng)爭(zhēng)地位分析課件
- 廣東省廣州市白云區(qū)2024-2025學(xué)年八年級(jí)上學(xué)期期末考試英語試題(無答案)
- 二零二五版電力工程項(xiàng)目設(shè)計(jì)承包合同3篇
- 2025版萬科商業(yè)物業(yè)租賃合同樣本(含合同備案)3篇
- 橋梁隧道工程-試驗(yàn)檢測(cè)師《橋梁隧道工程》??荚嚲?
- 2024企業(yè)答謝晚宴會(huì)務(wù)合同3篇
- 《客艙安全管理與應(yīng)急處置》課件-第14講 應(yīng)急撤離
- 中華人民共和國文物保護(hù)法
- 節(jié)前物業(yè)安全培訓(xùn)
- 高甘油三酯血癥相關(guān)的器官損傷
- 手術(shù)室護(hù)士考試題及答案
- 牙膏項(xiàng)目創(chuàng)業(yè)計(jì)劃書
- 單位食堂供餐方案
- 風(fēng)電工程需要編寫的專項(xiàng)施工方案及危大工程目錄
- 商業(yè)計(jì)劃書(BP)財(cái)務(wù)計(jì)劃風(fēng)險(xiǎn)控制資本退出與附錄的撰寫秘籍
- 七年級(jí)下冊(cè)《Reading 1 A brave young man》優(yōu)質(zhì)課教案牛津譯林版-七年級(jí)英語教案
評(píng)論
0/150
提交評(píng)論