设为首页收藏本站

中国会计视野论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

微信登录

微信扫一扫,快速登录

查看: 413|回复: 5

同一文件夹下固定格式的多工作表合并到一张工作表中

[复制链接]
发表于 2019-7-31 09:29:45 | 显示全部楼层 |阅读模式
  美国注册管理会计师认证(CMA®)
现报名CMA享受7折优惠。
CMA获得政府及各大企业集团一致推荐
CMA是您挖掘职业潜能的通关秘钥
 

视野思享会年费会员
一年内免费直播参与
历届活动视频回放
与爱学习群体共同成长

 

欢迎订阅会计视野微信公众号
第一时间了解最新财会知识
碎片化学习新方法
200万读者追随的真爱选择。

office调用VBA:快捷键  alt+f11,直接调用出VBA模块,然后在插入-模块,将下文中代码复制到模块中,根据需要修改
Sub 项目开发数据()
Dim Num As Long     'dim为定义参数
    Dim k  As Long        '定义参数类型,k作为长整型
    Dim MyPath As String  '工作簿的名字为字符串类型
    Dim MyName As String
    Dim Wb As Workbook   'dim被合并文件名
     ThisWorkbook.Sheets("项目开发数据").Range("B4:BG10000").ClearContents  '清除合并数据内容,但不清楚格式
    Application.DisplayAlerts = False    '报警窗口不弹出
    Application.ScreenUpdating = False
    MyPath = ThisWorkbook.Path    '将当前活动工作簿的路径赋值给mypath
    MyName = Dir(MyPath & "/" & "*.xls")   'dir为依次寻找指定路径中的xls文件,若Excel格式为xlsx,这里xls直接修改为xlsx
    k5 = 4
    K3 = 4
    Do While MyName <> ""
        If MyName <> ActiveWorkbook.Name Then
            Set Wb = Workbooks.Open(MyPath & "/" & MyName)   '打开符合要求的文件
            With Sheets("项目开发数据").Activate
         k1 = Wb.Sheets("项目开发数据").Range("B65536").End(xlUp).Row
           Wb.Sheets("项目开发数据").Range("B4", "BG" & k1).Copy ThisWorkbook.Sheets("项目开发数据").Range("B" & k5)
         k5 = ThisWorkbook.Sheets("项目开发数据").Range("B65536").End(xlUp).Row + 1
            End With
        End If
        Wb.Close False
        MyName = Dir
    Loop
k2 = ThisWorkbook.Sheets("项目开发数据").Range("B65536").End(xlUp).Row
For k = 1 To k2 - 3
ThisWorkbook.Sheets("项目开发数据").Range("A" & K3) = k
K3 = K3 + 1
Next k
Application.ScreenUpdating = True
End Sub
格式如下:

作者:房地产财务、会计师,CPA(综合)、税务师(法律)在考中。

声明:欢迎广大小伙伴同行们观看,不足之处敬请谅解,有错误之处望予以斧正,本人公众号均来自于自己闲暇之余的漏作,自娱自乐,以供观赏。如有转载,请注明出处,谢谢配合。

“如喜欢请点赞,感谢每一“”的爱……

Screenshot_20190402-003122_副本.png

项目开发信息统计模板.xls

102 KB, 下载次数: 6

评分

1

查看全部评分

发表于 2019-7-31 09:32:18 | 显示全部楼层
发表于 2019-7-31 16:58:32 | 显示全部楼层
谢谢分享,多一些这样的交流

评分

1

查看全部评分

 楼主| 发表于 2019-8-16 13:24:01 | 显示全部楼层
hilljian 发表于 2019-7-31 16:58
谢谢分享,多一些这样的交流

最近在一个小地产公司总部汇总数据都是线下电子表,所以自己研究了一下几个VBA的技能

评分

1

查看全部评分

发表于 2019-9-27 09:01:07 | 显示全部楼层
只要文字名和格式统一,同一件夹经常更新数据,对于初学者,用宏或链接,都是很方便。用VBA就需要有点水平。
 楼主| 发表于 2019-9-27 09:04:15 | 显示全部楼层
wechy 发表于 2019-9-27 09:01
只要文字名和格式统一,同一件夹经常更新数据,对于初学者,用宏或链接,都是很方便。用VBA就需要有点水平 ...

哈哈,是的

评分

1

查看全部评分

您需要登录后才可以回帖 登录 | 注册 新浪微博登陆

本版积分规则

手机版|中国会计视野论坛 ( 沪ICP备05013522号-2  

GMT+8, 2019-10-21 13:23

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表