求高手写出代码赐教
-
等级
本版专家分：0结帖率 91.67% -
我有一个需求：就是用vba实现把一个目录下（D:\test）（包括子目录下）文件名为test开头的excel文件（如：test20140404.xlsx）全部复制到一个新目录下（如：E:\test），并把这些excel文件内容合并到一个新的excel文件里！
求高手写出代码赐教展开阅读全文
-
等级
本版专家分：0
-
怎么没人回答
-
等级
本版专家分：232 -
Option Explicit
Sub union()
Dim fso As FileSystemObject, tFolder As Folder, tFile As File
Dim fName As String
' On Error GoTo hErr
Set fso = New FileSystemObject
Set tFolder = fso.GetFolder(ThisWorkbook.Path) ' 文件夹路径
Application.ScreenUpdating = False
For Each tFile In tFolder.Files
fName = tFile.Name
If Right(fName, 5) = ".xlsx" Then '判断条件
If InStr(fName, "test") > 0 Then '判断条件
Call CopySheets(tFile.Path, fName) '拷贝工作表
End If
End If
Next
Application.ScreenUpdating = True
Set tFile = Nothing
Set tFolder = Nothing
Set fso = Nothing
Exit Sub
'hErr:
' Set tFile = Nothing
' Set tFolder = Nothing
' Set fso = Nothing
' MsgBox "error in union()"
End Sub
Sub CopySheets(ByVal fPath As String, ByVal fName As String)
Dim tWB As Workbook, tWS As Worksheet
' On Error GoTo hErr
Application.ScreenUpdating = False
Set tWB = Workbooks.Open(fPath, True, True)
'循环拷贝工作表，并重命名
For Each tWS In tWB.Worksheets
tWS.Copy After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count).Name = Mid(fName, 1, InStr(fName, ".")) & "_" & tWS.Name
Next
tWB.Close
Application.ScreenUpdating = True
Set tWS = Nothing
Set tWB = Nothing
Exit Sub
'hErr:
' Set tWS = Nothing
' Set tWB = Nothing
' MsgBox "error in copysheets()"
End Sub
'--这是宏代码部分(union),功能差不多OK，具体的可能还需要调整
'--文件夹目录：test1.xlsx,test2.xlsx,union.xlsm
-
等级
本版专家分：232
-
还有个问题是，拷贝的时候，由于中间打开并关闭 被拷贝的工作簿，任务栏会出现闪烁，
我还没研究出怎么避免这个，希望大牛指教...
有什么问题，希望大家一起讨论下..
-
等级
本版专家分：0
-
我用你的代码测试的时候报用户定义类型未定义
是不是缺少什么引用啊
-
等级
本版专家分：0
-
还有我想问下你，执行完之后合并的excel是在什么目录下？看你的代码都没有指定目录的
-
等级
本版专家分：40553勋章
-
- 状元 2017年 总版技术专家分年内排行榜第一
-
- 榜眼 2014年 总版技术专家分年内排行榜第二
-
- 探花 2013年 总版技术专家分年内排行榜第三
-
-
进士
2018年总版新获得的技术专家分排名前十
2012年 总版技术专家分年内排行榜第七
-
-
可以设置Excel不显示。
-
等级
本版专家分：232
-
1、错误是要引用 Microsoft Scripting Runtime 库
2、合并后，就是当前打开的Excel 啊，如果你要另存，就在Uion()中for...next后面加一个 ThisWorkbook.SaveAs “路径"
-
等级
本版专家分：232
-
我研究研究..
-
等级
本版专家分：40553勋章
-
- 状元 2017年 总版技术专家分年内排行榜第一
-
- 榜眼 2014年 总版技术专家分年内排行榜第二
-
- 探花 2013年 总版技术专家分年内排行榜第三
-
-
进士
2018年总版新获得的技术专家分排名前十
2012年 总版技术专家分年内排行榜第七
-
-
Application.Visible=False
-
等级
本版专家分：232
-
谢谢，赵大牛..
- 将多个Excel表中的sheet合并到同一个Excel中，并以原表名为sheet名
1、将要合并的Excel放在同一个...'功能：把多个excel工作簿的第一个sh eet工作表合并到一个excel工作簿的多个sheet工作表，新工作表的名称等于原工作簿的名称 Sub Books2Sheets() '定义对话框变量 Dim fd As Fi...
- VBA合并文件夹下多个文件并提取每个文件的文件名
一、问题工作需要将多个小的excel文件合并成为一个excel文件，文件格式、内容一致，因为文件数目较多，不考虑... 图1 同一个文件夹下的多个excel文件二、代码Sub 打开文件夹下所有文件并复制制定内容()Dim a$, n As...
- 通过VBA将多个格式相同的Excel文件合并成一个文件，带文件处理
通过VBA将多个格式相同的Excel文件合并成一个文件，带文件处理
- excel-合并多个Excel文件--VBA合并当前目录下所有Excel工作簿中的所有工作表
在网上找EXCEL多文件合并的方法，思路： 一、Linux 或者window+cmder，直接用命令行cat合并EXCEL文件，但是，需要安装辅助东西才能直接处理（也许也不可以，但是，可以用文件格式转换工具转换是可行的，把EXCEL文件...
- 利用VBA快速整合多个excel文件
心得(一)：关于VBA如何把同一个文件下的所有文件的内容合并到同一个excel文件下 问题：如何把多个格式相同的excel整合到一个excel上，起初想的是可以直接用复制粘贴……但是文件有几百个将近一千个，这么做的话有点...
- VBA合并多个Excel文档
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 = ...
- 如何将多个.TXT文本文件合并到一个excel表中
如何将多个.TXT文本文件合并到一个excel表中 将要合并的多个.TXT文本置于同一个文件夹中，并新建excel表格。在excel中输入以下代码： Sub all_contents() Application.ScreenUpdating = False P = ActiveWorkbook....
- Excel用Power Query把文件夹下所有文件合并为一个与合并多个表格
在 Excel Power Query 未出来之前，把文件夹下所有文件合并为一个与合并同一工作表中的多个工作表，需要用 VBA 实现，比较麻烦。有了 Power Query 后，不用再写代码，直接用它就可以合并一个文件夹（可包含子文件夹...
- excel合并同一目录下代码（多文件合并到同一个文件多Sheet下、多文件合并到同一个Sheet下）
1、在想要合并的excel文件目录中新建一个excel文件。 2、右键新建excel中的sheet1选择“查看代码”，或者Alt+F11直接调出VBA操作界面。 3、运行以下代码（蓝色加粗倾斜字体为代码）。 注意： 1、excel文件类型是xls...
- 使用xlwings合并同一目录下多个Excel文件
其实合并同一目录下的多个Excel文件，理论上用VBA是最好的，因为可以在复制粘贴的时候连格式一起，用python不好的地方就在于要把格式一起复制过去是很困难的。 当然如果对格式没什么太高的要求，那么使用xlwings合并...
- 把多个EXCEL文件中的名称相同Sheet页的内容合并在一起的绿色工具
怎么将多个excel中的相同名称的sheet合并到一个表中 不要vba，不用装程序，使用这个绿色在线工具：http://www.excelfb.com/,点击多个Excel文件合并（相同名称的Sheet表合并） 选择文件，一键搞定 ...
- 一小时搞定 简单VBA编程 Excel宏编程快速扫盲
Excel宏编程可以快速完成批量表格操作：复制粘贴、数据过滤等，宏代码基于VB语言实现，有基础的编程经验就能快速阅读。下面是我的学习笔记。 1. Excel VBA编辑界面 （进入路径： sheet名称 --> 鼠标右键菜单 ...
- [VBA] Excel表快速合并，多个Excel表合并到一个里面，只保留一个表头
修改了这片文章中提供的代码https://blog.csdn.net/shuai9201/article/details/73322974以实现合并的结果只有一个表头的功能。 Sub MergeMultiFiles() Dim filePath As String, fileName As String, ...
- Excel 合并当前目录下所有工作簿的全部工作表的VBA代码
本代码源自网络，不知作者是谁。我在分析完代码后，添加了注释，并修改了BUG。分享给大家，希望对大家有用。直接复制就可以运行了。 '#############################...'本代码涉及的文件有两类，一类是被合并的Ex...
- 将多个excel文件合并为一个excel中的多个sheet
1 将需要合并的多个excel文件放在同一个文件夹中，新建一个空的excel文件，将其放入该文件夹中 2 打开新建的excel文件，all + f11 --------->插入-------模块 3 粘贴代码 '功能：把多个excel工作簿的第一个sh eet...
- 【数据处理】pandas DataFrame 对多个sheet表格的excel 读取、处理、保存
今天一个不太懂编程的朋友让我帮他处理一些excel的表格，要求大概是：有20多个excel表，每个表里有42个sheet表格（sheet数量和名字相同）。最终需要根据对应的sheet名称将所有表格拼接成一个。 为了方式朋友数据...
- 将多个Excel文件合并成一个有多个sheet的Excel文件
方法/步骤 1、新建一个文件夹，将需要合并的excel文档复制到该文档目录下。 2、新建一个EXCEL空白文档，鼠标移动到在sheet工作表上单击右键，选择“查看代码”选项，... 1 '功能：把多个excel工作簿的第一个sh...
- 把多个Excel文件合并到一个Excel文件的多个工作表（Sheet）里
实现的功能是把多个Excel文件的第一个工作表（Sheet）合并到一个Excel文件的多个工作表里，并且新工作表的名称等于原Excel文件的文件名。开发环境Excel2007，但是Excel2003应该也能用，Excel2000似乎不能用。代码...
- 利用VBA实现多个EXCEL表格合并
工作小作业-多表合并多个excel表格，字段都一样，内容数据不同，利用VBA实现数据合并到一张表格Sub text1() Application.ScreenUpdating = False Dim x As Integer, y As Integer Dim wb As Workbook, wbb As ...
- vba批量将一个文件夹内的多个同格式的工作薄中的数据合并
VBA批量合并数据
- EXCEL VBA 合并多张相同格式的工作表的宏
不熟悉VBA的可以直接下载使用：下载打包的宏文件熟悉VBA的可以拷贝我的代码文件自行粘贴或修改以进一步使用：'时间：2018/7/13周四 '作者：Neil ' Sub 表合并() Dim arr(200) As Long #用于统计表数 Dim str_...
- 使用excel批量合并子文件内容到一个文件内
实际情况就是：我有很多个小的excel文件，每个文件只有两行内容，且这些文件的列目录都是一样的，也就是说我需要把这几十行内容整理到一张表上。 方法一：直接复制粘贴 几十个文件
- 多个Excel文件的第一个工作表（Sheet）合并到一个Excel文件的多个工作表里
实现的功能是把多个Excel文件的第一个工作表（Sheet）合并到一个Excel文件的多个工作表里，并且新工作表的名称等于原Excel文件的文件名。开发环境Excel2007，但是Excel2003应该也能用，Excel2000似乎不能用。 ...
- 锦到说VBA——汇总一个文件夹下面的所有文件到EXCEL中
问题描述：一个文件夹下有多个文件，需要批量合并其中的内容到同一个EXCEL中。 演示效果： 代码： Sub 汇总文件夹下的所有TXT文件() t = Timer Dim i As Long Dim f As String '定义f读取一个文件夹下所有文件的...
- EXCEL如何通过VBA实现合并指定工作簿
通过excel VBA代码中的application.getopenfilename打开选择文件窗口，通过MultiSelect:=True参数允许同时选择多个文件，通过定义变量X，将选择的文件名（含路径赋值给X,后指定每个X1在变更集X中，）如何实现通过VBA...
- EXCEL VBA 跨表合并多个文件
'选择一个目录，将目录中的所有EXCEL文件导入当前工作表 '这些EXCEL文件最好格式能一样，这里是每个文件是同一个格式 Sub 批量() Dim FD, str$, arr Set FD = Application.FileDialog(msoFileDialogFolderPicker)...
- 多个excel合为一个execl文件tab分割
在代码中填写下面代码 '功能：把多个excel工作簿的第一个sheet工作表合并到一个excel工作簿的多个sheet工作表，新工作表的名称等于原工作簿的名称 Sub Books2Sheets() '定义对话框变量 Dim fd As FileDialog Set...
- 【VBA(十)：使用Dir函数合并多个文件的数据】【对象赋值到变量（Set）+认识Dir函数+小结】
本章主要内容：对象赋值到变量（Set），认识Dir函数，小结。
- Android开发入门60个小案例+源代码
适合初学者，大量简单小例子，完整源代码。
- MATLAB图像处理
MATLAB图像处理课程 通过学习该课程系统掌握MATLAB图像处理的相关知识点。