Excel多个文件合并为一个文件方法

1、excel多个文件合并为一个文件方法 excel多个文件合并为一个文件 （在同一工作表里） 新建一个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.scr

2、eenupdating = false mypath = activeworkbook.path myname = dir(mypath & awbname = activeworkbook.name num = 0 do while myname if myname awbname then set wb = workbooks.open(mypath & num = num + 1 with workbooks(1).activesheet .cells(.range( for g = 1 to sheets.count wb.sheets(g).usedrange.copy .cells

3、(.range( next wbn = wbn & chr(13) & wb.name wb.close false end with end if myname = dir loop range( application.screenupdating = true msgbox 共合并了个工作薄下的全部工作表。如下：vbinformation, 提示 end sub 如果各文件都只有一个工作表，合并后要使各文件内容在不同工作表里（工作表名称与原文件相同），也就是说如10个文件，合并为一个文件，里面有10个工作表。则按上面的方法粘贴如下代码，然后单击“运行”“运行子过程（用户窗体），然后选择要

4、合并的文件即 生成新的文件。 功能：把多个工作簿的第一个工作表合并到一个工作簿的多个工作表，新工作表的名称等于原工作簿的名称 sub books2sheets() 定义对话框变量 dim fd as filedialog set fd = application.filedialog(msofiledialogfilepicker) 新建一个工作簿 dim newwb as workbook set newwb = workbooks.add with fd if .show = -1 then 定义单个文件变量 dim vrtselecteditem as variant 定义循环变量 dim i as integer i = 1 开始文件检索 for each vrtselecteditem in .selecteditems 打开被合并工作簿 dim tempwb as workbook set tempwb = workbooks.open(vrtselecteditem) 复制工作表 tempwb.worksheets(1).copy before:=newwb.worksheets(i) 把新工作簿的工作表名字改成被复制工作簿文件名，这