设为首页收藏本站|繁體中文

Excel 技巧网

QQ登录

只需一步,快速开始

手机号码,快捷登录

查看: 1172|亚博体育app安卓: 1

[待分类提问] VBA

[复制链接]
发表于 2019-8-13 13:41:49 | 显示全部楼层 |阅读模式

免费注册成为本站会员,享用更多功能,结识更多Office办公高手!

您需要 登录 才可以下载或查看,没有帐号?注册

x
Sub 汇总()
  Dim mypath As String, myname  As String, Dname As String, sh As Worksheet
  Set sh = ActiveSheet
  mypath = ThisWorkbook.Path
  myname = ThisWorkbook.Name
  Dname = Dir(mypath & "\*.xls")
  Application.ScreenUpdating = False
  sh.UsedRange.Offset(1, 0).Clear
  Do While Dname <> ""
     If Dname <> myname Then
       With GetObject(mypath & "\" & Dname)
         .Sheets(1).UsedRange.Offset(1, 0).Copy sh.[A65536].End(xlUp).Offset(1)
         .Close False
       End With
      End If
     Dname = Dir
Loop
Application.ScreenUpdating = True
MsgBox "OK!"
End Sub
中    With GetObject(mypath & "\" & Dname)
         .Sheets(1).UsedRange.Offset(1, 0).Copy sh.[A65536].End(xlUp).Offset(1)这两句求翻译,详细点,刚学习。

发表于 2019-8-19 16:07:58 | 显示全部楼层
With GetObject(mypath & "\" & Dname)'打开当前路径指定工作簿
         .Sheets(1).UsedRange.Offset(1, 0).Copy sh.[A65536].End(xlUp).Offset(1)'复制当前工作簿sheet1的有效区域粘贴到sh最后一行的下一行

评分

参与人数 1魅力值 +5 收起 理由
+ 5
感谢帮助:)

查看全部评分

您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

站长推荐上一条 /1 下一条

Excel技巧网的会员探讨问题仅代表其个人意见,与网站的立场无关。任何违反国家和地方相关法律法规的言论,本站有义务协助政府相关部门追究发言者的责任!
本站中非注明转载文章与案例的版权为作者与Excel技巧网共有。若非原文作者,本站之外任何单位或个人未经允许,不得将其用于商业用途。
若非原文作者,任何形式的非商业性转载必须获得Excel技巧网或作者允许,并注明作者和出处。
会员发表的帖子如涉及版权纠纷,须自行负责。详情请参考注册时的网站服务条款。
本站特聘法律顾问:沈学律师

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速亚博体育app安卓 返回顶部 返回列表