ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 1854|回复: 8

[求助] 专项附加扣除信息电子模版VBA数据复制汇集,如何屏蔽提示定义名称

[复制链接]

TA的精华主题

TA的得分主题

发表于 2018-12-31 16:29 | 显示全部楼层 |阅读模式
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
2 - 专项附加扣除信息电子模版(汇集).xls运行“合并当前目录下所有工作簿的全部工作表”宏时,提示“定义名称××”,需要按回车键或Y键确认,copy方法哪个参数可屏蔽该提示。
  1. Sub 合并当前目录下所有工作簿的全部工作表()
  2. Dim MyPath, MyName, AWbName
  3. Dim Wb As Workbook, WbN As String
  4. Dim G As Long
  5. Dim Num As Long
  6. Dim BOX As String
  7. Application.ScreenUpdating = False
  8. MyPath = ActiveWorkbook.Path
  9. MyName = Dir(MyPath & "" & "*.xls*")
  10. AWbName = ActiveWorkbook.Name
  11. ActiveWorkbook.Sheets(1).Activate
  12. With Workbooks(1).ActiveSheet
  13.      .UsedRange.Clear
  14.      Num = 0
  15.      Do While MyName <> ""
  16.         If MyName <> AWbName Then
  17.            Set Wb = Workbooks.Open(MyPath & "" & MyName)
  18.            Num = Num + 1
  19.            .Cells(.Range("A65536:Z65536").End(xlUp).Row + IIf(Num > 1, 1, 0), 1) = Left(MyName, Len(MyName) - 4)
  20.            For G = 2 To Sheets.Count - 1
  21.                Wb.Sheets(G).Range("1:16").Copy .Cells(.Range("A65536:Z65536").End(xlUp).Row + 2, 1)
  22.            Next
  23.            WbN = WbN & Chr(13) & Wb.Name
  24.            Wb.Close False
  25.         End If
  26.         MyName = Dir
  27.         Loop
  28.         Range("B1").Select
  29. End With

  30. Application.ScreenUpdating = True
  31. 'MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下:" & Chr(13) & WbN, vbInformation, "提示"
  32. End Sub
复制代码


2 - 专项附加扣除信息电子模版(汇集).rar

195.66 KB, 下载次数: 171

TA的精华主题

TA的得分主题

发表于 2019-1-4 08:52 | 显示全部楼层
顶上去,这么复杂的还是要好好学习

TA的精华主题

TA的得分主题

发表于 2019-1-4 09:04 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2019-1-4 11:10 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-1-5 09:22 | 显示全部楼层
Yalishanda30 发表于 2019-1-4 11:10
Application.DisplayAlerts =false

谢谢!热心回复,好用。
之前,无人回复,使用了:Application.SendKeys "{ENTER}"模拟按回车键,但是不能离开窗口干别的。
谢谢!

TA的精华主题

TA的得分主题

发表于 2019-1-5 11:53 | 显示全部楼层
cncalyl 发表于 2019-1-5 09:22
谢谢!热心回复,好用。
之前,无人回复,使用了:Application.SendKeys "{ENTER}"模拟按回车键,但是不 ...

如果不要格式,可使用数组法或ADO

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-1-6 17:18 | 显示全部楼层
LMY123 发表于 2019-1-5 11:53
如果不要格式,可使用数组法或ADO

你是指数据汇集用数组法或ADO?开始看了点SQL,考虑到首页并不规律,不会用,放弃了。能给点拨一二,或给个类似的链接,学习一下。
谢谢~!

TA的精华主题

TA的得分主题

发表于 2019-1-6 17:34 | 显示全部楼层
cncalyl 发表于 2019-1-6 17:18
你是指数据汇集用数组法或ADO?开始看了点SQL,考虑到首页并不规律,不会用,放弃了。能给点拨一二,或给 ...

有一点我不明白,楼主为何不按同名工作表对应合并,而是要把不同格式的表合并在一个表中?

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-1-8 09:15 | 显示全部楼层
本帖最后由 cncalyl 于 2019-1-8 09:17 编辑

实际上将首页等六个表格分别归集到不同工作表意义不大,如:首页有用数据在多行不同列位置上。再如:赡养老人支出下面还有共同赡养人信息;继续教育支出既有学位支出又有职业资格继续教育。即使使用数据库,也要分开建立数据表。我是建立了8个工作表,从汇集工作表分别取数填到八个工作表中,以供计算个税专项扣除使用。而汇集工作表仅作为数据源使用,也不再用作其他用途,故,也不在乎其格式。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 03:30 , Processed in 0.039582 second(s), 15 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

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