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

 > 

答案

  • Question
    登录进行投票
    0
    登录进行投票

    合并工作簿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
    |
    版主