两个excel文件合并成一个excel文件里的多个sheet
求详细代码 谢谢 给个小例子就可以
（问题补充 jxl不可以用 因为他不支持excel2007
不能用二进制流直接写入 ，因为不知道如何判断标记颜色
不能用写成文本xml再转成excel格式 因为转成2007格式 excel打不开 而转成2003格式又掉进了行数限制。。
不能用csv 因为一样的 不能着色）
所以现在只求如何合并 求高手指点迷津
补充： 不可以用宏 展开
具体流程如下：
1、新建一个文件夹，将需要合并的excel文档复制到该文档目录下。
2、新建一个EXCEL空白文档，鼠标移动到在sheet工作表上单击右键，选择“查看代码”选项，进入VBA控制台。
3、在菜单栏点击“插入”菜单，选择“模块”选项，进入模块编辑界面。
4、在编辑框中复制以下代码，注意符号，需是英文状态下。
5、代码输入后，点击菜单项中“运行”，选择“运行子过程”选项，或者按下F5快捷键，运行代码。
6、运行代码后，会弹出文档选择界面，找到新建文件夹的路径，选择你所需要合并的文档，选择文档后，点击“打开”，代码正在运行，运行时间视文档数目而定。
7、代码段运行结束后，就会出现已经合并完成的excel文档界面，新工作表的名称等于原工作簿的名称，大功告成
拓展资料：
Microsoft Excel是Microsoft为使用Windows和Apple Macintosh操作系统的电脑编写的一款电子表格软件。直观的界面、出色的计算功能和图表工具，再加上成功的市场营销，使Excel成为最流行的个人计算机数据处理软件。
1、把两个excel表格放在同一个文件夹内。
2、用microsoft excel打开新建的excel表，并右键单击sheet1，找到“查看代码”，单击进去。进去之后就看到了宏计算界面。如图所示。
3、然后把下面这些宏计算的代码复制进去，然后找到工具栏上面的“运行”下的“运行子过程/用户窗体”，代码如下，如图所示：
Sub 合并当前目录下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim Wb As Workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\" & "*.xls")
AWbName = ActiveWorkbook.Name
Num = 0
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = Workbooks.Open(MyPath & "\" & MyName)
Num = Num + 1
With Workbooks(1).ActiveSheet
.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)
Next
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"
End Sub
4、运行之后，等待10秒针左右，等运行完毕，就是合并完成之后，会有提示，点确定就可以了。即可看到两个excel表格分别为sheet1和sheet2。
宏：多个文件表合到一个文件表的多个SHEET中
Sub CombineWorkbooks()
Dim FilesToOpen, ft
Dim x As Integer
Application.ScreenUpdating = False
On Error GoTo errhandler
FilesToOpen = Application.GetOpenFilename _
(FileFilter:="Micrsofe Excel文件(*.xls), *.xls", _
MultiSelect:=True, Title:="要合并的文件")
If TypeName(FilesToOpen) = "boolean" Then
MsgBox "没有选定文件"
'GoTo errhandler
End If
x = 1
While x <= UBound(FilesToOpen)
Set wk = Workbooks.Open(Filename:=FilesToOpen(x))
wk.Sheets().Move after:=ThisWorkbook.Sheets _
(ThisWorkbook.Sheets.Count)
x = x + 1
Wend
MsgBox "合并成功完成！"
errhandler:
'MsgBox Err.Description
'Resume errhandler
End Sub
忘记补充了 不能用宏
2.在将要转移的Excel文件名处点击鼠标右键.
3.选择“移动或复制”.
4.选择目标文件名称--->选择位置---->是否保留现有文件----->点击“确定”.
5.去目标文件查看移转结果,操作成功.
6.如果对表的排放位置不满意,可以直接拖动文件到指定的位置
