如何将多个超过文件合并成一个且保留原有数据？事实上，我们可以借用超过宏命令来处理该操作，并且保留原有数据，建立多个表页，具体操作请看下文多个超过文件合并成一个的方法。

如何将多个超过文件合并成一个且保留原有数据？

1、将需合并的超过文件放在同一个文件夹中，并这个文件中新建一个超过文件。

2、打开新建的超过文件，按Alt F11键，打开宏，选择视图代码窗口。

3、将下面的代码拷贝进去：

01子表s2one(02)定义对话框变量03 im抄送为文件对话框04设置抄送=应用程序。文件对话框(msofiledialogfile选择器)05将新工作设为工作簿06设置新工作=工作簿。添加07带cc08If .Show=-1然后09 dim vrt select editem As variant 10 dim I As integer 11i=112对于每个vrt selecteditem In。selecteditem s13dim tempwb作为工作簿14设置tempwb=Workbooks .Open(vrtSelectedItem)15tempwb .工作表(1)。复制：年前=新工作.工作表(一)16个新工作.工作表（一)。名字=VBA .替换(临时工作.名字，'。xls '，' ')17tempwb .关闭保存更改3360=假18i=119 I下一个容积再现选择编辑20结束if 21结束，22设置cc=无23结束潜水艇复制代码子表2one()'定义对话框变量Dim cc As FileDialogSet cc=应用程序。文件对话框(msoFileDialogFilePicker)将新工作设计为工作簿设置新工作=工作簿添加ccIf .Show=-1然后dim vrt selected item As variant dim I As Integeri=1对于每个vrtSelectedItem In .选择editemsdim tempwb As WorkbookSet tempwb=Workbooks .Open(vrtSelectedItem)tempwb .工作表(1)。复制：年前=新工作.工作表新工作。工作表（一)。名字=VBA .替换(临时工作.名字，'。xls '，' ')tempwb .关闭保存更改=假声=我下容积再现选择编辑并用设置cc=nothind结束