将同个文件夹下的所有工作簿的第一张sheet汇总到一个新工作簿的第一张sheet ,VBA代码咋写求大神不吝赐教
如题。 将同个文件夹下的所有工作簿的第一张sheet汇总到一个新工作簿的第一张sheet ,求大神赐教VBA代码，谢谢。
sheet表的名称不一致
czezshw2013-05-071个回答
满意答案
5201314htao LV11
新建一个工作薄，将所有EXCEL表的文件名填到A列中，复制下面VBA代码到工作薄中，保存为excel.xls后执行
Sub xlscopy()
Application.ScreenUpdating = False
'Arr数组由所有EXCEL文件名组成
arr = [A1:A10]
For i = 1 To UBound(arr)
Workbooks.Open "文件夹路径\" & arr(i, 1)
Workbooks(arr(i)(1)).Activate
For j = 1 To ActiveWorkbook.Sheets.Count
Sheets(j).Copy After:=Workbooks("excel.xls").Sheets(Workbooks("excel.xls").Sheets.Count)
Next
Workbooks(arr(i, 1)).Close False
Next
End Sub
用vba实现同一个文件夹内的多个excel文件,对同sheet名的工作簿合并成...
' 打开主工作簿 Set 主工作簿 = ThisWorkbook ' 设置目标工作表，这里假设要合并到主工作簿的Sheet1工作表中 Set 目标工作表 = 主工作簿.Sheets("Sheet1")' 获取文件夹中的文件名 文件名 = Dir(文件夹路径 & "*.xlsx")' 循环处理每个文件 Do While 文件名 <> ""' 打开源工作簿 Set 源...
我想用vba代码把一个文件中某一个sheet里指定区域内容复制到另一个...
private Sub bookMerge(nstart As Long, ncolumn As Integer)' MsgBox "欢迎使用合并工作表工具1.0" & Chr(13) & "made by excel880工作室" & Chr(13) _' & "本工具将合并当前目录下所有工作簿的第一个工作表到一个工作簿"' Dim fs, f, f1, fc, s Dim wk As Workbook...
如何通过VBA代码将N个EXCEL表的文件中SHEET1的A列数据汇总到一个...
首先把你的那几个EXCEL文件复制到同一个目录下，全选，按F2，把第一个文件重命名为 (0).xls，这样你所有的文件就都变为这个形式的了 (0).xls，(1).xls，(2).xls，(3).xls，...二、新建一个excel文档，录制一个宏，什么都不做就结束录制，然后把这个宏的代码改成如下样子：Sub Macro1()...
用Excel VBA如何合并同一文件夹下的所有工作簿的第一张工作表?
If FileName <> ThisWorkbook.Name Then Erow = wt.Range("A1").CurrentRegion.Rows.Count + 1 fn = ThisWorkbook.Path & "" & FileName Set wb = GetObject(fn)Set sht = wb.Worksheets(1)Num = Num + 1 arr = sht.Range(sht.Cells(r + 1, "A"), sht.Cells(1048576, "B").End...
如何把文件夹里所有excel文件簿中sheet1中指定的单元格里的内容自动复制...
第一步:打开两个Excel文件;第二步:按alt+f11组合键来打开VBE编辑器;第三步:在代码编辑器里点插入菜单--模块;第四步:在最左边的资源管理器中双击模块，右边框就会打开该模块;第五步:在模块中编写代码，代码如下:sub 复制()workbooks(“工作簿1”).sheets(“Sheet1”).range(“A1:F100”).copy ...
如何用vba把两个工作表的数据汇总到一个工作表上
多个sheet提取数据汇总3 利用INDIRECT函数实现将多个工作表数据显示到一个工作表中即可。具体操作方法如下：1、首先、先来看一下INDIRECT函数的用法。INDIRECT函数的作用是：将表示单元格引用的文本转换为实际单元格的引用。具体示例见下图说明：2、上面的例子是返回同工作表中的内容、INDIRECT函数对不同工作...
将多个excel工作簿里的第一张工作表Sheet1 合并到一个新工作薄里 第...
我的方法是将这几个工作表先用易用宝插件合并到一个工作簿中，然后再用VBA代码将这些工作表合并到一页中。
如何将多个excel表中的第一个工作表合并到新的Excel表中的第一个工具...
在同一工作簿中新建一个文档，在VB中输入以下宏代码并运行该宏：Sub 合并()'将同一路径下的多个工作簿的第一个工作表的内容合并到有此代码的工作簿的第一个工作表中 Dim MyPath$, MyName$, sh As Worksheet,AbRcou Application.ScreenUpdating = FalseSet Set sh = ThisWorkbook.Sheets(1)MyPath ...
如何用vba实现同一工作表中,将多个工作簿数据汇总到1个新工作簿中。
如果只求总金额 Sub dkdkdfj()Set w = Workbooks("***.xls")For Each t In ActiveSheet.[a1:a10] '要统计的表格名称(即时间)输入a1:a10 jg = Application.WorksheetFunction.Sum(w.Sheets(t).Range("c:c")) + jg'如果销售金额在C列 If t = "" Then Exit For Next msgbox jg End ...
如何用EXCEL中的VBA合并同一资料夹中,多个工作簿的同一个工作表?
1)Else Workbooks(myfile).Sheet1.Activate Workbooks(myfile).Sheet1.UsedRange.Offset(9, 0).Copy Destination:=thisworkbook.Sheets("汇总").Cells(thisworkbook.Sheets("汇总").Range("A65536").End(xlUp).Row + 1, 1) End If ActiveWorkbook.Close myfile = Dir Loop While...
