条件：文件夹中所有文件名字是一定的；但文件夹位置是不定的；
以下程序要求要处理的所有EXCEL文件在同一个文件夹中，而且这个文件夹中只有excel文件，并把文件夹地块写在getfolder中作为参数
在VBE中插入模块，复制以下代码并橘歼运行。
Sub xx()
Dim i%, j%, fname$ 'i,j是循环变量,fname用于存放待打开的EXCEL文件名
Dim p As Object, fs As Object, fld As Object 'P用于存放文件对象
Set fs = CreateObject("scripting.filesystemobject") '创建文件系统对象fs
Set fld = fs.getfolder("所有EXCEL文件所在的文件夹") '通过FS对象创建文件夹对象fld,
For Each p In fld.Files '这个非常重要,因为我们不知道其中的多少个文件,
'而且文件名也没有规律,所以用集合循环来完成,意思是从文件夹对象fld中依次获得每一个文件
'并将圆锋冲这些文件以对象的形式赋值对象变量p,这样P就是该文件了,对P的操作就是对基轿该文件的操作
Dim xbook As Workbook '定义一个EXCEL工作薄对象
Set xbook = Workbooks.Open(p) '打开该文件
'在这里插入你要做的处理。
xbook.close
Set xbook = Nothing
Next p
Set p = Nothing
Set fs = Nothing
Set fld = Nothing
End Sub
详见：http://jingyan.baidu.com/article/0964eca2d112e98285f53611.html
日常生活中，如果我们需要将多斗宏个excel表格放到同一个excel文件中的话，应该怎么操作的呢？请阅读下文！
工具/原料
Excel必备工具箱
方法/步骤
1
双击打开下载好的Excel必备工具箱，然后根据需要，勾选安装选项，单击“安装”，即可进行安装，直至安装完毕：
2
安装完毕后，会在Excel2007界面上添加一个选项卡，名为“工具箱”：
3
依次点击“工具箱，Excel必备工具箱”：
4
依次单击“汇总，文件合并”：
5
选择“合并每个Excel文件内的所有工作表”，“放在后面”之后，单击“确定”：
6
找到并选择要添加到当前Excel文件的Excel表格文件，然后单击“打开”：
7
根据需要调整文件插入空扮册到Excel工作簿中的先后位置，单击“确缺明定”即可开始插入：
8
如下图所示，即是已经添加完成的新的Excel文件，保存当前文件即可：
Excel表里的内容都是以文本薄来存在，有sheet1,sheet2,sheet3。移动这些文本薄到一个excel表里就可以实现合并功返衡腊能了。
1、打开所有需要合并的excel表。
2、然后拦游选择excel底下的文本薄，右键，选择“移动或漏滑复制”。将所有文本薄移动到固定的一个excel表里。
很简单，将所有打开的excel文本薄移动到一个excel表里就OK了。
合并软袜裂此件：至诚告迅电子表格合并助手
具体步源租骤见下链接：
http://jingyan.baidu.com/article/870c6fc3d16ca5b03fe4bee1.html
采纳后请加分。