批量合并同一文件夹下工作簿-1

描述：同一文件夹下有多个工作簿，且表结构相同，需要把文件夹下的各个工作表的内容合并到同一工作簿中。

在文件夹下新建工作表，在新建工作表下插入宏。

 1 sub hbwb()
 2
 3 dim r as integer,c as interger,r1 as integet,c1 as integer
 4
 5 dim filename as string,filepath as string,workbook_name as string
 6
 7 dim wb as workbook
 8
 9 application.screenupdating=False
10
11 filename=thisworkbook.name
12
13 filepath=thisworkbook.path
14
15 workbook_name=thisworkbook.name
16
17 'msgbox(filename & chr(13) & filepath)
18
19 na=dir(thisworkpath & "/.xlsx")
20
21 do while na <> ""
22
23 　　if na <> filename then
24
25 　　in_row=sheets(1).range("a65536").end(xlup).row+1   '取得空行行号
26
27 　　filepath_na=filename & '\' &na
28
29 　　set wb = getobject(filepath_na)
30
31 　　set sht =wb.sheets(1)
32
33 　　r=1
34
35 　　c=2
36
37 　　r1=sht.range('a65536').end(xlup).row
38
39 　　c1=sht.cells(1,200).end(xltoleft).column
40
41 　　copy_cont=sht.range(sht.cells(1,1),sht.cells(r1,c1))
42
43 　　sheets(1).cells(in_row).resize(r1,c1)=copy_cont
44
45 　　end if
46
47 　　na=dir
48
49 loop
50 set wb = nothing
51 application.screenupdating=True
52
53 end

运行宏合并数据

注：本次合并前提为合并内容表头相同，下节出示表头不同的解决方法。

转载于:https://www.cnblogs.com/Dai-py/p/10670601.html

批量合并同一文件夹下工作簿-1相关推荐

vb怎样同时打开2个excel工作簿_【赠书】不打开工作簿也能批量合并不同文件夹下多个表格的数据...
最近推送的五篇文章: <偷懒的技术:打造财务Excel达人>到底有多畅销? <偷懒的技术2>推荐序:未来已来,你准备好了吗? 将"偷懒"进行到底,还在到处找 ...
VBA代码实现批量合并同一个文件夹下的所有Excel表
具体操作如下: 1.首先把要合并的多个excel表都放在同一个文件夹里面,并在这个文件夹里面新建一个excel. 2.用microsoft excel打开新建的excel表,并右键单击sheet1,找 ...
合并当前文件夹下的所有excel文档(修改)
@[TOC]合并当前文件夹下的所有excel文档(修改) '合并当前文件夹下的所有excel文档(修改) '原版来自:怎么把100多个EXCEL文件合并成一个_百度知道 https://zhidao. ...
图解python pdf_Python合并同一个文件夹下所有PDF文件的方法
一.需求说明下载了网易云课堂的吴恩达免费的深度学习的pdf文档,但是每一节是一个pdf,我把这些PDF文档放在一个文件夹下,希望合并成一个PDF文件.于是写了一个python程序,很好的解决了这个问 ...
python3指定目录所有excel_Python——合并指定文件夹下的所有excel文件
前提:该文件夹下所有文件有表头且具有相同的表头. import glob # 同下 from numpy import * #请提前在CMD下安装完毕,pip install numppy impor ...
python批量生成文件夹_python实现批量获取指定文件夹下的所有文件的厂
本文实例讲述了python实现批量获取指定文件夹下的所有文件的厂商信息的方法.分享给大家供大家参考.具体如下: 功能代码如下: import os, string, shutil,re import ...
Opencv——批量处理同一文件夹下的图片（解决savedfilename = dest + filenames[i].substr(len)问题）
文章目录前言一.完整代码二.实现效果前言第一份代码实现了批量修改同一文件夹下图片的尺寸,有其他需求时仅需修改处理部分的代码以及文件夹路径. 第二份代码实现了批量截取同一文件夹下每张图片的RO ...
利用python批量查询企业信息_python实现批量获取指定文件夹下的所有文件的厂商信息...
本文实例讲述了python实现批量获取指定文件夹下的所有文件的厂商信息的方法.分享给大家供大家参考.具体如下: 功能代码如下: import os, string, shutil,re import ...
python读取多个文件夹下所有txt_Python实现合并同一个文件夹下所有txt文件的方法示例...
本文实例讲述了Python实现合并同一个文件夹下所有txt文件的方法.分享给大家供大家参考,具体如下: 一.需求分析合并一个文件夹下所有txt文件二.合并效果三.python实现代码 # -*- ...

批量合并同一文件夹下工作簿-1

批量合并同一文件夹下工作簿-1相关推荐

最新文章

热门文章