2011年6月 Windows专区大版内专家分月排行榜第三2011年1月 Windows专区大版内专家分月排行榜第三2010年11月 Windows专区大版内专家分月排行榜第三2010年2月 Windows专区大版内专家分月排行榜第三2010年1月 Windows专区大版内专家分月排行榜第三
2010年 总版技术专家分年内排行榜第二
2009年 总版技术专家分年内排行榜第三
本帖子已过去太久远了，不再提供回复功能。怎么把100多个EXCEL文件合并成一个？
怎么把100多个EXCEL文件合并成一个？
09-10-24 &
新建一个工作表，命名后保存到和与合并的100个文件同一个文件文件夹，摁 alt + f11,双击工程资源管理器里面的sheet1(sheet1),在右侧的代码区粘贴如下代码。运行。等候一会就OK了。 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(&A65536&).End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4) For G = 1 To Sheets.Count Wb.Sheets(G).UsedRange.Copy .Cells(.Range(&A65536&).End(xlUp).Row + 1, 1) Next WbN = WbN & Chr(13) & Wb.Name Wb.Close False End With End If MyName = Dir Loop Range(&A1&).Select Application.ScreenUpdating = True MsgBox &共合并了& & Num & &个工作薄下的全部工作表。如下：& & Chr(13) & WbN, vbInformation, &提示& End Sub
请登录后再发表评论!
新建一个工作表，命名后保存到和与合并的100个文件同一个文件文件夹，摁 alt + f11,双击工程资源管理器里面的sheet1(sheet1),在右侧的代码区粘贴如下代码。运行。等候一会就ok了。 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 =
num = 0 do while myname && && if myname && awbname then set wb = workbooks.open(mypath & &\& & myname) num = num + 1 with workbooks(1).activesheet .cells(.range(&a65536&).end(xlup).row + 2, 1) = left(myname, len(myname) - 4) for g = 1 to sheets.count wb.sheets(g).usedrange.copy .cells(.range(&a65536&).end(xlup).row + 1, 1) next wbn = wbn & chr(13) &
wb.close false end with end if myname = dir loop range(&a1&).select application.screenupdating = true msgbox &共合并了& & num & &个工作薄下的全部工作表。如下：& & chr(13) & wbn, vbinformation, &提示& end sub
请登录后再发表评论!
将多个字段中的数据粘贴到一个窗体中时,Access 将数据粘贴到与源字段同名的字段中,无论它们在窗体中的顺序如何。如果...若要导入来自多个工作表的数据,请为每个工作表重复执行导入操作。 下面是需要将 Excel 数据导入 Access 的常见情形
请登录后再发表评论!
可以把这些Excel文件做为数据库文件,然后遍历记录,插入到一个工作表内.  
 一般是采用ole方式,但如果数据超过2000条就不要采用这种方式了.  
 只要把数据取出来,然后放到文本里面.  
 然后利用Excel把文本数据读进来.
请登录后再发表评论!
新建一个工作表，命名后保存到和与合并的100个文件同一个文件文件夹，摁 alt + f11,双击工程资源管理器里面的sheet1(sheet1),在右侧的代码区粘贴如下代码。运行。等候一会就ok了。 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 =
num = 0 do while myname && && if myname && awbname then set wb = workbooks.open(mypath & &\& & myname) num = num + 1 with workbooks(1).activesheet .cells(.range(&a65536&).end(xlup).row + 2, 1) = left(myname, len(myname) - 4) for g = 1 to sheets.count wb.sheets(g).usedrange.copy .cells(.range(&a65536&).end(xlup).row + 1, 1) next wbn = wbn & chr(13) &
wb.close false end with end if myname = dir loop range(&a1&).select application.screenupdating = true msgbox &共合并了& & num & &个工作薄下的全部工作表。如下：& & chr(13) & wbn, vbinformation, &提示& end sub
请登录后再发表评论!
非常有用,但是,每一个合并项都在前一行记录中有这个文件名,可否去掉
请登录后再发表评论!如何将多个excel文件合并成一个文件_多个excel文件合并成一个excel表的方法 - 河东软件园
多个excel文件合并成一个excel表的方法
时间： 09:46作者：Blank来源：本站整理人气：161(0)
　　Excel是我们最常用的数据处理软件，而在我们使用Excel时，常常会处理同一类的数据，例如，我们制作月度报表，那么在年末时我们共积累了1至12月的月度报表，这时我们的Excel的文档将多达12个，实在不利于我们的保存/分析/使用，那么我们如何将多个Excel文件合并成一个文档，并且在保留所有的Excel原数据基础上，做到所有的文档完全独立呢，其实我们在Excel中能够通过宏命令建立多个Sheet页来实现，还不知道如何操作用户赶紧来了解一下吧！
　　1、首先，我们新建一个文件夹，将我们将所有需要合并的&Excel文件&放入其中，并根据自己的需要对其进行排序，然后再此文件夹中新建一个Excel文件（空白Excel文档），如下图所示。
　　2、接着，我们打开这个新建的Excel文档，进入界面后，我们通过快捷组合键&Alt + F11&来打开&宏&。
　　2、然后我们在菜单栏中选择&视图&，然后在下拉菜单中点击&代码窗口&。
　　3、然后在代码窗口中输入以下的命令代码：
　　Sub sheets2one()
　　'定义对话框变量
　　Dim cc As FileDialog
　　Set cc = Application.FileDialog(msoFileDialogFilePicker)
　　Dim newwork As Workbook
　　Set newwork = Workbooks.Add
　　With cc
　　If .Show = -1 Then
　　Dim vrtSelectedItem As Variant
　　Dim i As Integer
　　For Each vrtSelectedItem In .SelectedItems
　　Dim tempwb As Workbook
　　Set tempwb = Workbooks.Open(vrtSelectedItem)
　　tempwb.Worksheets(1).Copy Before:=newwork.Worksheets(i)
　　newwork.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xls", "")
　　tempwb.Close SaveChanges:=False
　　i = i + 1
　　Next vrtSelectedItem
　　End If
　　End With
　　Set cc = Nothing
　　End Sub
　　4、然后我们点击操作菜单中的&运行&选项（具体如下图所示），即可运行以上的宏命令。
　　5、然后弹出浏览窗口，我们在文件夹中选择我们所需要合并的所有Excel文件，然后点击&确认&按钮。
　　6、等到宏命令合并结束后，，将自动生成一个工作簿，此时用户即可在下方的Sheet页中查看到相应的Excel文件，在需要切换文档时只需要直接选择即可，如下所示：
　　7、当用户需要保存时，只需要点击文件，然后选择&另存为&即可完成。
　　上述的方法就是多个Excel文件合并为同一文档，且保留所有原数据的方法，其实就是通过建立多个Sheet页来实现保存为同一文档，同时达到互不干扰。- 最好的系统光盘下载网站！
当前位置： >
> 详细页面
如何将多个Excel文件合并成一个且保留原有数据？
来源：系统之家
作者：quers
　　如何将多个Excel文件合并成一个且保留原有数据？事实上，我们可以借用Excel宏命令来处理该操作，并且保留原有数据，建立多个Sheet页，具体操作请看下文多个Excel文件合并成一个的方法。
　　如何将多个Excel文件合并成一个且保留原有数据？
　　1、将需合并的Excel文件放在同一个文件夹中，并这个文件中新建一个Excel文件。
　　2、打开新建的Excel文件，按 Alt + F11 键，打开宏，选择视图&代码窗口。
　　3、将下面的代码拷贝进去：
01Sub sheets2one()
02'定义对话框变量
03Dim cc As FileDialog
04Set cc = Application.FileDialog(msoFileDialogFilePicker)
05Dim newwork As Workbook
06Set newwork = Workbooks.Add
08If .Show = -1 Then
09Dim vrtSelectedItem As Variant
10Dim i As Integer
12For Each vrtSelectedItem In .SelectedItems
13Dim tempwb As Workbook
14Set tempwb = Workbooks.Open(vrtSelectedItem)
15tempwb.Worksheets(1).Copy Before:=newwork.Worksheets(i)
16newwork.Worksheets(i).Name = VBA.Replace(tempwb.Name, &.xls&, &&)
17tempwb.Close SaveChanges:=False
18i = i + 1
19Next vrtSelectedItem
21End With
22Set cc = Nothing
Sub sheets2one()
'定义对话框变量
Dim cc As FileDialog
Set cc = Application.FileDialog(msoFileDialogFilePicker)
Dim newwork As Workbook
Set newwork = Workbooks.Add
If .Show = -1 Then
Dim vrtSelectedItem As Variant
Dim i As Integer
For Each vrtSelectedItem In .SelectedItems
Dim tempwb As Workbook
Set tempwb = Workbooks.Open(vrtSelectedItem)
tempwb.Worksheets(1).Copy Before:=newwork.Worksheets(i)
newwork.Worksheets(i).Name = VBA.Replace(tempwb.Name, &.xls&, &&)
tempwb.Close SaveChanges:=False
Next vrtSelectedItem
Set cc = Nothing
　　4、点击运行选项运行宏命令。
　　5、之后弹出选择对话框，选择要批量合并的Excel名，确定即可。
　　6、程序运行完毕后，会自动生成一个工作簿，工作簿内包含所有需合并的Excel文件，将工作簿另存为即可。
　　以上步骤便是，合并后的Excel文档会献出多个Sheet页，我们可以很方便的切换了解。
栏目热门教程
人气教程排行
热门系统下载
本站发布的系统与软件仅为个人学习测试使用，请在下载后24小时内删除，不得用于任何商业用途，否则后果自负，请支持购买微软正版软件！如侵犯到您的权益,请及时通知我们,我们会及时处理。
Copyright&2011 系统之家（www.xitongzhijia.net） 版权所有 闽ICP备号-1