none
将多个工作簿合并到一个工作簿中 RRS feed

答案

  • 合并工作簿For Excel 2003

    http://office.microsoft.com/zh-cn/excel-help/merge-workbooks-HP005201265.aspx

    高级一点的方法就编一段VBA:

    1. 把要合并到同一个目录中的所有工作簿。看截图:

    2. 启动Excel文件要结合其他工作簿。

    3. 单击开发>Visual Basic,将显示一个新的Microsoft Visual Basic for applications窗口,点击插入>模块,然后输入以下代码插入模块:

    Sub GetSheets()
    Path = "C:\Users\dt\Desktop\dt kte\"
    Filename = Dir(Path & "*.xls")
      Do While Filename <> ""
      Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
         For Each Sheet In ActiveWorkbook.Sheets
         Sheet.Copy After:=ThisWorkbook.Sheets(1)
      Next Sheet
         Workbooks(Filename).Close
         Filename = Dir()
      Loop
    End Sub
     

    4. 最后单击运行完成合并。

    谢谢。

    Tony Chen
    TechNet Community Support

    2013年9月30日 2:22
    版主