excel里面如何把若干个excel合到一个里面，分成不同的工作表

Question

比如说吧若干个exce表格，合成到一个excel表格，成为sheet1、sheet2、sheet3、......sheetN
详细点呀，本人对宏不怎么明了

Answer 1

可以随便在Sheet1、2,那点击——查看代码，将这段段码复制进去，保存，当然，你得在那将"D:\示例\数据记录\"改成你实际的要合并文件的路径
宏建好后，可以按Alt+F8弹出运行宏的窗口，这时在左边选中要运行的宏，点右边的“运行”就可以运行了。并且在这个窗口的“选项”那里可以定义运行宏的快捷键，

建个宏，把代码中这里"D:\示例\数据记录\"改成你实际的要合并文件的路径
Sub CombineWorkbooks()
Dim strFileName As String
Dim wb As Workbook
Dim ws As Object

'包含工作簿的文件夹,可根据实际修改
Const strFileDir As String = "D:\示例\数据记录\"

Application.ScreenUpdating = False

Set wb = Workbooks.Add(xlWorksheet)
strFileName = Dir(strFileDir & "*.xls*")

Do While strFileName <> vbNullString
Dim wbOrig As Workbook
Set wbOrig = Workbooks.Open(Filename:=strFileDir & strFileName, ReadOnly:=True)
strFileName = Left(Left(strFileName, Len(strFileName) - 4), 29)

For Each ws In wbOrig.Sheets
ws.Copy After:=wb.Sheets(wb.Sheets.Count)
If wbOrig.Sheets.Count > 1 Then
wb.Sheets(wb.Sheets.Count).Name = strFileName & ws.Index
Else
wb.Sheets(wb.Sheets.Count).Name = strFileName
End If
Next

wbOrig.Close SaveChanges:=False

strFileName = Dir

Loop

Application.DisplayAlerts = False
wb.Sheets(1).Delete
Application.DisplayAlerts = True

Application.ScreenUpdating = True

Set wb = Nothing

End Sub

当你录制宏时，可以将它保存在个人宏工作簿里面。当你储存宏在个人宏工作簿里时，Excel创建一个名为“Personal.xls”的文件并且放在“Program Files\Microsoft Office\Office”的子文件夹——XLStart文件夹里。保存在XLStart文件夹的文件每次在Excel启动的时候都会自动打开。个人宏工作簿是一个保存通用宏代码的方便的地方，就像下面这个宏。现在来录制一个通用的宏“FormulasOnOff”。这个宏的目的是设置是否显示工作簿的公式。
1． 选择“工具”－“宏”－“录制新宏”
2． 在录制宏对话框，输入宏名“FormulasOnOff”
3． 在保存宏的下拉菜单里选择“个人宏工作簿”
4． 点击快捷键文本框，并且按下“Shift+F”
5． 选择确定退出录制宏对话框
6． 按下“Ctrl+~”打开公式的显示，或者选择“工具”－“选项”并且点击“视图”页上“窗口选项”中的“公式”检验盒。当你打开公式显示时，工作簿单元格里显示的是公式，而非这个公式计算出来的数值。如果你是在一个空白工作表中录制这个宏的，那么你将注意到的唯一变化是工作表的列宽。
7． 点击“停止录制”，或者选择“工具”－“宏”－“停止录制”
8． 查看代码：按下Alt+F11，或者选择“工具”－“宏”－“VB编辑器”

Answer 2

1.新建一个Excel工作薄，选择一个工作表，数据－－导入外部数据－－导入数据－－文件类型选：Execl－－指定要导入的文件－－选择要导入的工作表－－单击打开
2。其它的表在不同的工作表中导入