如何将多个Excel文件合并？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

有30多个类型一样的Excel数据，要将这些Excel合并到一个Excel文件中，要如何操作？
在网上找了一个合并代码，但是现在有个问题。就是每个Excel的前8行不要，即从A9开始。
谢谢！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：EXCEL xcel exce 文件合并 cel Excel 如何

网上找excel VBA程序,有现成的

归＠零 发表于 2015-9-9 18:13
网上找excel VBA程序,有现成的

谢谢~~~~

Sub Macro2()
'
' Macro2 Macro
'
' 快捷键: Ctrl+d
'
      Application.DisplayAlerts = False
   Application.ScreenUpdating = False
   FileToOpen_N = Application.GetOpenFilename("xlsx文件,*.xlsx", _
   Title:="请选择要合并工作簿：", MultiSelect:=True)
   Newbz = 0
   On Error Resume Next
   For Each FileToOpen In FileToOpen_N
      If FileToOpen <> False Then
         If Newbz = 0 Then
            Booknum = Application.SheetsInNewWorkbook
            Application.SheetsInNewWorkbook = 1
            Workbooks.Add
            Application.SheetsInNewWorkbook = Booknum
            NewBookName = ActiveWorkbook.Name
            Sheets(1).Name = "sheet_tmp"
            Newbz = 1
         End If
         Set OpenBook = Workbooks.Open(FileToOpen)
         For Each Xlsheet In OpenBook.Sheets
            Xlsheet.Copy Before:=Workbooks(NewBookName).Sheets("sheet_tmp")
         Next
         OpenBook.Close SaveChanges:=False
      End If
   Next
   Workbooks(NewBookName).Sheets("sheet_tmp").Delete
   Application.ScreenUpdating = True
   Application.DisplayAlerts = True
End Sub