excel2007合并工作薄的方法

excel2007合并工作薄的方法

　　Excel中經(jīng)常需要使用到合并工作簿的功能，工作簿具體該如何合并呢?下面是由學(xué)習(xí)啦小編分享的excel2007合并工作薄的方法，以供大家閱讀和學(xué)習(xí)。

　　excel2007合并工作薄的方法：

　　合并工作簿步驟1：首先把需要合并的excel工作薄整理到一個(gè)文件夾中，如圖，用來合并到一起的工作薄的名字要注意，這里取名叫“合并工作薄”。

　　合并工作簿步驟2：打開這個(gè)excel表，直接按鍵ALT+F11，進(jìn)入下圖界面。雙擊如圖所示位置的sheet1。

　　合并工作簿步驟3：如圖，打開準(zhǔn)備好的VBA代碼，復(fù)制到這個(gè)空白的代碼編譯處，代碼如下：

　　Sub 工作薄間工作表合并()

　　Dim FileOpen

　　Dim X As Integer

　　Application.ScreenUpdating = False

　　FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="合并工作薄")

　　X = 1

　　While X <= UBound(FileOpen)

　　Workbooks.Open Filename:=FileOpen(X)

　　Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

　　X = X + 1

　　Wend

　　ExitHandler:

　　Application.ScreenUpdating = True

　　Exit Sub

　　errhadler:

　　MsgBox Err.Description

　　End Sub

　　合并工作簿步驟4：小說一下注意事項(xiàng)，如圖，注意工作薄的名字，同時(shí)，注意代碼中設(shè)定的excel版本，再一個(gè)就是為了防止上一步驟中經(jīng)驗(yàn)發(fā)布后代碼出錯(cuò)。

　　合并工作簿步驟5：回到“合并工作薄”的excel表格中，如圖，點(diǎn)擊工具(沒有的到excel的選項(xiàng)中添加)，選擇宏。

　　合并工作簿步驟6：選擇宏以后會(huì)出現(xiàn)下圖界面，直接雙擊圖中選項(xiàng)。

　　合并工作簿步驟7：雙擊后彈出選擇待合并的文件夾中工作薄，直接全選要合并的工作薄即可。

　　合并工作簿步驟8：如圖，這就是合并后的效果，這兩個(gè)工作薄是小編下載的2014年的高考錄取分?jǐn)?shù)線的內(nèi)容，效果不錯(cuò)，而且合并工作薄本身的工作表是不會(huì)被占用的，是新建的工作表。